Crear un correo con archivo adjunto en Outlook y mostrarlo

Question

Quiero crear un correo con archivo adjunto en Outlook y mostrarlo antes de enviarlo, pero creo que he probado casi todas las muestras que he encontrado en la red sin suerte. Podría usar Indy, pero me gustaría utilizar Outlook para asegurarme de que el correo sea adecuado porque es para uso comercial.

Cualquier entrada para una función que toma Dirección, asunto, mensaje y datos adjuntos como parámetros y luego muestra el mensaje en Outlook antes de enviarlo.

Answer 1

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