在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;