求助如何在delphi控制outlook，特别是邮件附件？

Question

求助如何在delphi控制outlook，特别是邮件附件？

Answer 1

DELPHI 里调用 Outlook
const olMailItem = 0;var Outlook: OLEVariant;     MailItem: Variant;begin  try    Outlook := GetActiveOleObject('Outlook.Application');  except    Outlook := CreateOleObject('Outlook.Application');  end;
  MailItem := Outlook.CreateItem(olMailItem);  MailItem.Recipients.Add('[email protected]');  MailItem.Subject := 'your subject';  MailItem.Body := 'http://kingron.myetang.com';  MailItem.Attachments.Add('C:\Windows\system.dat');  MailItem.Send;
  Oulook := Unassigned;end;