http://www.faqts.com/knowledge_base/...html/aid/26658
I use the Indy controls that comes with Delphi 7, IpSmtpClient.
Sample:
procedure TfrmMain.btnTestClick(Sender: TObject);
var Body: TStringList;
MimePart : TIpMimeEntity;
begin
SMTPPostOutID:= 0;
Body:= TStringList.Create;
Body.Text:= 'This is a test from CDE Postman';
IpSmtpClient.Domain:= SMTPDomain;
IpSmtpClient.DefaultPort:= SMTPPort;
IpSmtpClient.Message.NewMessage;
IpSmtpClient.Message.From:= '
[email protected]';
IpSmtpClient.Message.Sender:= '
[email protected]';
IpSmtpClient.Message.MailTo.Add('
[email protected]');
IpSmtpClient.Message.Subject:= 'This is a test from IPro';
MimePart:= IpSmtpClient.Message.GetBodyHtml(True);
MimePart.EncodeBodyStrings(Body, '');
IpSmtpClient.Message.ContentType:= 'multipart';
IpSmtpClient.Message.ContentSubtype:= 'mixed';
IpSmtpClient.SendMail(SMTPServer,true);
LogMessage('Test message sent');
Body.Free;
end;
Parece que funciona correctamente pero tengo problemas para encontrar la libreria o la clase que contiene el tipo "TIpMimeEntity"...