Outlook'ta ekli bir posta oluşturma ve görüntüleniyor

Question

Outlook'ta ekli bir posta oluşturmak ve göndermeden önce görüntülemek istiyorum, ancak hiç şanssız ağda bulduğum neredeyse her örneği denediğimi düşünüyorum. Indy'yi kullanabilirim, ancak iş kullanımı için olduğu için postanın uygun olduğundan emin olmak için Outlook'u kullanmayı çok isterim.

Adres, konu, ileti ve eki parametre olarak alan ve iletiyi göndermeden önce Outlook'ta görüntülenen bir işlev için herhangi bir girdi.

Answer 1

Bkz. 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;