Ver Mensaje Individual
  #6  
Antiguo 16-03-2018
nincillo nincillo is offline
Miembro
 
Registrado: may 2017
Posts: 151
Reputación: 7
nincillo Va por buen camino
Cita:
Empezado por duilioisola Ver Mensaje
Puedes utilizar esto también:
http://www.delphifaq.com/faq/delphi/network/f236.shtml

Envía correos utilizando el cliente de correo por defecto del ordenador.

Si tienes mas de un adjunto puedes modificar esa parte con esto:
Código Delphi [-]
  ArchivosAdjuntos := TStringList.Create;
  try
     ArchivosAdjuntos.Add('C:\Fotos\Foto1.jpg');
     ArchivosAdjuntos.Add('C:\Fotos\Foto2.jpg');
     ArchivosAdjuntos.Add('C:\Fotos\Foto3.jpg');
     SendMailMAPI('Prueba', 'Esto es una prueba', ArchivosAdjuntos, 'Pepito Perez', 'pepito.perez@gmail.com', 'Fulanito Ggarcia', 'fulanito.garcia@hotmail.com')
  finally
     ArchivosAdjuntos.Free;
  end;

function TDMListados.SendMailMAPI(const Subject, Body:string; Adjuntos: TStrings; SenderName, SenderEMail, RecepientName, RecepientEMail: string): integer;
var
...
  Archivo : string;
...
  // Adjuntos es un TStringList con la dirección de los archivos a adjuntar.
  if Adjuntos.Count > 0 then
  begin
     GetMem(Attachments, SizeOf(TMapiFileDesc) * Adjuntos.Count);

     for i := 0 to Adjuntos.Count - 1 do
     begin
        Archivo := Adjuntos[i];
        Attachments[i].ulReserved := 0;
        Attachments[i].flFlags := 0;
        Attachments[i].nPosition := ULONG($FFFFFFFF);
        Attachments[i].lpszPathName := StrNew(PChar(Archivo));
        Attachments[i].lpszFileName := StrNew(PChar(ExtractFileName(Archivo)));
        Attachments[i].lpFileType := nil;
     end;
     MapiMessage.nFileCount := Adjuntos.Count;
     MapiMessage.lpFiles := @Attachments^;
  end;
...
Que buena pinta tiene!!!.
Le voy a pegar un vistazo a ver si lo puedo integrar con el resto del programa que tengo hecho hasta ahora.

Muchas gracias.
Responder Con Cita