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

Question

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

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

Answer 1

参见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;