Tworzenie maila z załącznikiem w Outlooku i wyświetlanie go - delphi, outlook, mailing

Chcę utworzyć wiadomość e-mail z załącznikiemOutlook i wyświetlaj go przed wysłaniem, ale myślę, że wypróbowałem prawie każdą próbkę znalezioną w sieci bez żadnego szczęścia. Mogłabym używać Indy, ale bardzo chciałbym użyć Outlooka, aby mieć pewność, że poczta jest właściwa, ponieważ jest przeznaczona do użytku biznesowego.

Dowolne wejście dla funkcji, która pobiera adres, temat, wiadomość i załącznik jako parametry, a następnie wyświetla komunikat w programie Outlook przed wysłaniem.

Odpowiedzi:

Widzieć Metoda 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;