RoboMailer is a Mass Mailing component which also handles personalization:

  • Simple to use component
  • Hides the pitfalls of mail sending from you
  • Allow personalization for every mail with extra data tags
  • Equally simple to send one mail or 20.000 mails
Cromis RoboMailer download: Version 1.0.0 (14.09.2010)
You will need ICS internet components if you want to use RoboMailer. You can get it here.

The demo bellow shows the basic usage of RoboMailer. If you have trouble using the code or have any other questions, please contact me directly using the “Contact” page.

Sample usage:

procedure TfMain.sbSendMailClick(Sender: TObject);
begin
  RoboMailer.PlainText.LoadFromFile(ePlainTextContent.FileName);
  RoboMailer.HTMLText.LoadFromFile(eHMTLContent.FileName);
  RoboMailer.MailSubject := eMailSubject.Text;
  RoboMailer.FromName := eFromAdrress.Text;
  RoboMailer.UserPass := eUserPassword.Text;
  RoboMailer.UserName := eUserName.Text;
  RoboMailer.Host := eServerName.Text;
 
  // set the charset for the mail content
  RoboMailer.Charset := eContentEncoding.Text;
 
  // check to authenticate
  if eUserName.Text <> '' then
    RoboMailer.AuthType := smtpAuthLogin
  else
    RoboMailer.AuthType := smtpAuthNone;
 
  // set the list of mail attachemnts
  if FileExists(eMailAttachments.FileName) then
    RoboMailer.Attachments.LoadFromFile(eMailAttachments.FileName);
 
  // set the list of mail images
  if FileExists(eMailImages.FileName) then
    RoboMailer.Images.LoadFromFile(eMailImages.FileName);
 
  // set mails the status to sending
  lbSendingStatus.Caption := 'STATUS: SENDING';
 
  FMailsList := TstringList.Create;
  try
    FMailsList.LoadFromFile(eTargetMailList.FileName);
    RoboMailer.SendMailList(FMailsList);
  finally
    FMailsList.Free;
  end;
end;