delphi – 在Outlook中创建带附件的邮件并显示它

发布时间：2020-12-15 04:12:35 所属栏目：大数据来源：网络整理

导读：我想在Outlook中创建带附件的邮件并在发送之前显示它,但我想我已经尝试了几乎我在网上找到的所有样本而没有任何运气. 我可以使用Indy,但我非常希望使用Outlook来确保邮件是正确的,因为它是出于商业用途. 函数的任何输入,将地址,主题,消息和附件作为参数,然后

我想在Outlook中创建带附件的邮件并在发送之前显示它,但我想我已经尝试了几乎我在网上找到的所有样本而没有任何运气.
我可以使用Indy,但我非常希望使用Outlook来确保邮件是正确的,因为它是出于商业用途.

函数的任何输入,将地址,主题,消息和附件作为参数,然后在发送之前在Outlook中显示消息.

解决方法

见 MailItem.Display Method.

uses
  comobj;

..

procedure DisplayMail(Address,Subject,Body: string; Attachment: TFileName);
var
  Outlook: OleVariant;
  Mail: Variant;
const
  olMailItem = $00000000;
begin
  try
    Outlook := GetActiveOleObject('Outlook.Application');
  except
    Outlook := CreateOleObject('Outlook.Application');
  end;
  Mail := Outlook.CreateItem(olMailItem);
  Mail.To := Address;
  Mail.Subject := Subject;
  Mail.Body := Body;
  if Attachment <> '' then
    Mail.Attachments.Add(Attachment);
  Mail.Display;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  DisplayMail('mailaddress','subject','message','attachmentfile');
end;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!