Sending an email from Delphi with Outlook

于 2007-05-17 04:45:17 发布 · 123 阅读

文章标签：

本文介绍了一种使用Delphi编程语言通过Outlook应用程序接口发送带有附件的电子邮件的方法。该过程包括创建Outlook邮件项，设置收件人地址，定义邮件主题和正文，并添加本地文件作为附件。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

program MailWithOutlook;

procedure SendOutlookMail;
const
  olMailItem = 0;
var
  Outlook: OleVariant;
  vMailItem: variant;
begin
  try
    Outlook := GetActiveOleObject('Outlook.Application');
  except
    Outlook := CreateOleObject('Outlook.Application');
  end;
  vMailItem := Outlook.CreateItem(olMailItem);
  vMailItem.Recipients.Add('dummy@hotmail.com');
  vMailItem.Subject := 'test email';
  vMailItem.Body := 'This is a test';
  vMailItem.Attachments.Add('C:\temp\sample.txt');
  vMailItem.Send;

  VarClear(Outlook);
end;

begin

end.