este es utilizando las componente TWinshoeSMTP.
Código:
procedure SendMail;
var
sToo : TStringList;
sText : TStringList;
i : integer;
begin
sToo := TStringList.Create;
sText := TStringList.Create;
try
sToo.Add('nelsont6@hotmail.com')
SMTP.Host := '10.10.10.11';
sToo.Append('j.betancur@excelec.com');
msg.Too := sToo;
msg.Subject := 'JIBM';
sText.Append('este es desde mi programa sin thread por el momento');
msg.Text := sText;
msg.From := 'j.betancur@excelec.com';
msg.Attachments.AddAttachment('c:\cursocpp.pdf');
SMTP.Send(msg);
except
end;
end;