Como Envio Correo con Copias?

[[enecumene]]

Hola Alejandro, que tal?, mira trata para la proxima vez usar las etiquetas para que el contenido del mensaje sea mas legible.

Código Delphi [-]
procedure TForm002.BitBtn5Click(Sender: TObject);
var
   smtp: TIdSMTP;
   mail: TIdMessage;
 begin
  {Buscar Correo del Destinatario}
  smtp := TIdSMTP.Create(Self);
  mail := TIdMessage.Create(Self);
  with smtp do
  begin
   Port    :=25;
   Host    :='nombrehost';
   Username:='';
   Password:='';
  end;
  with mail do
  begin
   Recipients.Add;
   {Adiciona Destinatario al Correo}
   Recipients[0].Name   :=EditDestinatario.Text; {Nombre del Destinatario}
   Recipients[0].Address:=EditDestino.Text; {Correo del Destinatario PARA}
   From.Name            :='xxxxx'; {Nombre del Remitente}
   From.Address         :='usuario@dominio';{Correo del Remitente}
   Subject              :=EditAsunto.Text {Asunto}
   Body.Text            :=Memo1.Lines.Text;
   {Adiciona Destinatario CC AL  Correo}
   if EditConCopia.Text<>''
    then begin                CCList.Add.Address:=EditConCopia.Text; 
{destino01@dominio;destino02@dominio;destinon@dominio}
         end;
  end;
  smtp.Connect;
  Screen.Cursor:=CrDefault;
  try
   try
    smtp.Send(mail);
    ShowMessage('Mensaje Enviado Satisfactoriamente');
   except
    on E: Exception do
     ShowMessage('Ocurrio un Error al Intentar enviar Automaticamente el Mensaje');
   end;
  finally
   if smtp.Connected then
      smtp.Disconnect;
  end;
  mail.Free;
  smtp.Free;
end;

Saludos.

[[BlueSteel]]

Hola Alejandro73

Mira, veo que trabajas con el componente TIdMessage.. bueno, si observas sus propiedades te podras dar cuenta que existe

BccList, la cual genera un listado con Address, Name y Text

para agregar Cc, tendrias que usar algo así como

Código Delphi [-]
 
IdMessage.BccList[0].Address := direccion_correo@dominio
idMessage.BccList[1].Address := direccion_correo2@dominio

en realidad no he probado esto.. pero deberia andar por ahí el asunto.. espero que te sirva.. suerte

[Alejandro73]

Gracias

Primero que todo como se utilizan las etiquetas? y segundo tengo en una sola linea las direcciones de las copias y me pregunto como puedo agregarlas una a uno como dices Blusteel


Alejandro

[[BlueSteel]]

Empezado por Alejandro73

Gracias

Primero que todo como se utilizan las etiquetas? y segundo tengo en una sola linea las direcciones de las copias y me pregunto como puedo agregarlas una a uno como dices Blusteel
Alejandro

los de las etiquetas es sencillo, una vez escrito lo que quieres poner debes seleccionarlo y despues precionas el boton de tipo que sea.. delphi.. sql.. php.. etc..

si tienes todas las direcciones,, bastaria que ellas esten separadas entre sí por punto y coma (... y se las agregas

suponiendo que tienes esto

Código Delphi [-]
 
listado_direcciones_con_copia.text := '[email protected]; [email protected]; [email protected]';
BccList[0].Address := listado_direcciones_con_copia.text;

aunque seria bueno que especifíques desde donde obtienes las direcciones de correos, si estas las ingresan en el momento. o las capturas desde otro lado...

si las capturas... puedes hacer algo asi

Código Delphi [-]
correo_copia : String;
 
correo_copia := ''; // antes de agregar limpias
 
// este codigo que viene.. deberia estar cada vez que agregas una dirección.. si las seleccionas de algun lado por ej.
correo_copia := Concat(correo_copia,';',ConCopia.Text);

espero que te sirva...

[[enecumene]]

Empezado por Alejandro73

Gracias

Primero que todo como se utilizan las etiquetas? y segundo tengo en una sola linea las direcciones de las copias y me pregunto como puedo agregarlas una a uno como dices Blusteel


Alejandro

Hola:



en la parte donde esta encerrada son las etiquetas del foro, como usarla? ejemplo, para codigos delphi se encierra el codigo asi:

[ DELPHI ] codigo [ /DELPHI ]

quedaria asi

Código Delphi [-]
codigo

o tambien seleccionando la parte del codigo y presionar en el menu del panel el icono que parece una casita.

espero que te sirva.

Saludos.

[Alejandro73]

Gracias a Ambos

Luego les cuento como me fue

[[BlueSteel]]

aprovechando el hilo.. te dejo el codigo que utilizo para enviar correo desde delphi.. con archivo adjunto

Código Delphi [-]

     With IdMessage Do
     Begin
          Body.Clear;
          Body.Add(vMensaje.Text);
          From.Text := 'cuenta@dominio';
          Recipients.EMailAddresses := vPara.Text;
          // Aquí deberias poner BccList[0].Address := direccion_correo@dominio
          Subject := vAsunto.Text;
          Priority := TidMessagePriority(mpHighest);
          TidAttachment.Create(IdMessage.MessageParts,Archivo.pdf);
     End;

     With IdSMTP do
     Begin
          Username := 'cuenta';
          Password := 'contaseña';
          Host     := 'IP o nombre de la maquina';
          Port     := 25;
          try
             Connect;
             Try
                Send(IdMessage);
             Finally
                Disconnect;
             End;
             ShowMessage('Se envio el archivo en forma correcta');
          Except
                On E: EIdProtocolReplyError Do
                   ShowMessage('E-Mail no se ha podido enviar');
                On E: EFOpenError Do
                   Begin
                        ShowMessage('E-Mail no se ha podido enviar' + #13 +
                                    'Fichero Adjunto desconocido o erróneo.');
                   end;
                On E: EIdSocketError Do
                   Begin
                        ShowMessage('E-Mail no se ha podido enviar'+ #13 +
                                    'Host desconocido o incorrecto.');
                   end
                Else
                   ShowMessage('Fallo en el envio de email');
          End;
         If Connected Then Disconnect;
     End;
     Close;

[richy08]

Empezado por BlueSteel

aprovechando el hilo.. te dejo el codigo que utilizo para enviar correo desde delphi.. con archivo adjunto


Código Delphi [-]

With IdMessage Do
Begin
Body.Clear;
Body.Add(vMensaje.Text);
From.Text := 'cuenta@dominio';
Recipients.EMailAddresses := vPara.Text;
// Aquí deberias poner BccList[0].Address := direccion_correo@dominio
Subject := vAsunto.Text;
Priority := TidMessagePriority(mpHighest);
TidAttachment.Create(IdMessage.MessageParts,Archivo.pdf);
End;

With IdSMTP do
Begin
Username := 'cuenta';
Password := 'contaseña';
Host := 'IP o nombre de la maquina';
Port := 25;
try
Connect;
Try
Send(IdMessage);
Finally
Disconnect;
End;
ShowMessage('Se envio el archivo en forma correcta');
Except
On E: EIdProtocolReplyError Do
ShowMessage('E-Mail no se ha podido enviar');
On E: EFOpenError Do
Begin
ShowMessage('E-Mail no se ha podido enviar' + #13 +
'Fichero Adjunto desconocido o erróneo.');
end;
On E: EIdSocketError Do
Begin
ShowMessage('E-Mail no se ha podido enviar'+ #13 +
'Host desconocido o incorrecto.');
end
Else
ShowMessage('Fallo en el envio de email');
End;
If Connected Then Disconnect;
End;
Close;

Hola bluee steel heestado leyendo tu post para enviar correos a que maquina te refieres con Host? gracias de antemano

[richy08]

Ya encontre la solucion muy buen post Gracias.