Creazione di una mail con allegato in Outlook e visualizzazione

Question

Voglio creare una mail con allegato in Outlook e visualizzarla prima di inviarla, ma penso di aver provato quasi tutti i campioni che ho trovato in rete senza fortuna. Potrei usare Indy, ma mi piacerebbe molto usare Outlook per essere sicuro che la posta sia corretta perché è per uso aziendale.

Qualsiasi input per una funzione che richiede Indirizzo, oggetto, messaggio e allegato come parametri e quindi visualizza il messaggio in Outlook prima di inviarlo.

Answer 1

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