Outlook में अनुलग्नक के साथ एक मेल बनाना और इसे प्रदर्शित करना

Question

मैं Outlook में अनुलग्नक के साथ एक मेल बनाना चाहता हूं और इसे भेजने से पहले इसे प्रदर्शित करना चाहता हूं, लेकिन मुझे लगता है कि मैंने बिना किसी किस्मत के नेट पर पाया लगभग हर नमूना प्रयास किया है। मैं इंडी का उपयोग कर सकता था, लेकिन मैं यह सुनिश्चित करने के लिए Outlook का उपयोग करना चाहता हूं कि मेल उचित है क्योंकि यह व्यावसायिक उपयोग के लिए है।

पैरामीटर के रूप में पता, विषय, संदेश और अनुलग्नक लेने वाले फ़ंक्शन के लिए कोई भी इनपुट और फिर इसे भेजने से पहले Outlook में संदेश प्रदर्शित करता है।

Answer 1

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;