Outlook에서 첨부 파일이있는 메일 작성 및 표시

Question

Outlook에서 첨부 파일이있는 메일을 만들어 전송하기 전에 표시하고 싶습니다.하지만 인터넷에서 거의 모든 샘플을 찾았습니다. Indy를 사용할 수는 있지만 업무용 메일이기 때문에 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;