Send mail from Outlook with OLE
lazarus / 34-Windows

----------------------------------------------------------------------
bambamns · 2012-11-18 06:44

HI,

If you wont to send mail with Outlook using OLE here is the code :
Code: [Select]uses comobj;

procedure TForm1.SendBtnClick(Sender: TObject);

const olMailItem = 0;

var  Outlook: OLEVariant;
     MailItem: variant;
     podatak: variant;

begin


  try
   Outlook := GetActiveOleObject('Outlook.Application');
  except
   Outlook := CreateOleObject('Outlook.Application');
  end;

  MailItem := Outlook.CreateItem(olMailItem);
   podatak := ToEdit.Text;
  //MailItem.Recipients.Add(podatak); // not working
  //MailItem.To := podatak; // not working
  MailItem.Cc := podatak;
   podatak := SubjectEdit.Text;
  MailItem.Subject := podatak;
   podatak := BodyMemo.Text;
  MailItem.Body := podatak;
  //MailItem.HTMLBody // if you wont HTML in message body
   podatak := AttachEdit.Text;
  MailItem.Attachments.Add(podatak);
  //MailItem.Display;
  MailItem.Send;

  //Outlook.Quit;
  Outlook := Unassigned;
  SendBtn.Enabled := true;

end;                                                               

It is very important to have installed and configured outlook account
on computer.

I hope it helps.

----------------------------------------------------------------------
anis2505 · 2012-11-18 11:00

Thanks