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;