Sending an email from Delphi with Outlook

最新推荐文章于 2022-02-25 23:02:56 发布

最新推荐文章于 2022-02-25 23:02:56 发布 · 138 阅读

文章标签：

#Delphi #C #C++ #C#

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

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.