Hola adjunto ejemplo de codigo que permite enviar archivos adjuntos.
Saludos
Código Delphi
[-]
function correo(chostcorreo, cusername, cPassword, cDestinatario, cAsunto, cArchivo: String; cportcorreo: Integer; lsCuerpo: TStringList): Boolean;
var
IdMessage1: TIdMessage;
begin
idMessage1.Clear;
idMessage1.ContentType := 'text/html';
idMessage1.FromList.EMailAddresses := cUserName;
idMessage1.Recipients.EMailAddresses := cDestinatario;
idMessage1.Subject := cAsunto;
idMessage1.Body.AddStrings(lsCuerpo);
if FileExists(cArchivo) then
TIdAttachmentFile.Create( idMessage1.MessageParts, cArchivo );
form1.idSMTP1.Username := cUserName;
form1.idSMTP1.Password := cPassword;
form1.idSMTP1.Host := cHostCorreo;
form1.idSmtp1.Port := cPortCorreo;
if not form1.idSMTP1.Connected then
form1.idSMTP1.Connect;
form1.idSMTP1.Send(IdMessage1);
Result := True;
end;
ejemplo de llamada:
Código Delphi
[-]
var
slLista : TstringList;
begin
slLista := TStringList.Create();
slLista.Add( 'CUERPO' );
...
correo('smtp.live.com', 'pepito', 'pass123', 'mailDesdeElQueSeEnvia@Dominio.com.ar','asunto','C:\archivo.txt',587,slLista);
Saludos
Nicolas Perichon