delphi - Outlookで添付ファイル付きのメールを作成して表示する

Question

Outlookで添付ファイル付きのメールを作成し、送信する前に表示したいのですが、ネット上で見つけたほとんどすべてのサンプルを試してみましたが、運が悪かったと思います。Indyを使用することもできますが、ビジネス用であるため、Outlookを使用してメールが適切であることを確認したいと思います。

アドレス、件名、メッセージ、添付ファイルをパラメータとして受け取り、送信する前にOutlookにメッセージを表示する関数の入力。

Answer 1

MailItem.Display メソッドを参照してください。

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;