Tạo thư có tệp đính kèm trong Outlook và hiển thị nó

Question

Tôi muốn tạo thư có tệp đính kèm trong Outlook và hiển thị nó trước khi gửi, nhưng tôi nghĩ tôi đã thử gần như mọi mẫu tôi tìm thấy trên mạng mà không có bất kỳ may mắn nào. Tôi có thể sử dụng Indy, nhưng tôi rất muốn sử dụng Outlook để đảm bảo rằng thư là phù hợp vì nó là dành cho doanh nghiệp sử dụng.

Bất kỳ đầu vào nào cho hàm nhận Địa chỉ, chủ đề, thư và tệp đính kèm dưới dạng tham số rồi hiển thị thư trong Outlook trước khi gửi.

Answer 1

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