Cara mengirim email beserta attachment melalui MS Outlook menggunakan Delphi 7

Email attach file menggunakan delphi 7

Untuk dapat mengirim email yang berisi attachment file melalui MS Outlook menggunakan bahasa pemrograman delphi memerlukan unit ComObj da perhatikan fungsi berikut yang merupakan bentuk sederhana dari script tersebut:

procedure SendOutlookMail(recipients,cc,subject,mailmessage,filename:string);
const
  olMailItem = 0;
var
  Outlook: OleVariant;
  vMailItem: variant;
  s:tstringlist;
  i:integer;
begin
  s:=tstringlist.Create;

  try
    Outlook := GetActiveOleObject('Outlook.Application');
  except
    Outlook := CreateOleObject('Outlook.Application');
  end;
  vMailItem := Outlook.CreateItem(olMailItem);
  vMailItem.Recipients.Add(recipients);
  vMailItem.cc:=cc;
  vMailItem.Subject := subject;
  vMailItem.Body := mailmessage;
  vMailItem.Attachments.Add(filename);
  vMailItem.Send;
  VarClear(Outlook);
  s.Destroy;
end;