Entry

I need a component in delphi 7 equal to TNMSMTP in delphi 6,Also i can't install it from delphi 6

Feb 13th, 2006 06:46
Hein du Plessis, Abbas Farahani,

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:= 'hein@cdesoftware.co.za';
  IpSmtpClient.Message.Sender:= 'hein@cdesoftware.co.za';
  IpSmtpClient.Message.MailTo.Add('hein@cdesoftware.co.za');
  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;