Q&A

  • 메일 클라이언트로 파일첨부하여 보내기
SMTP 같은 콤포넌트로 보내는거 말고 현재 컴퓨터에 설정된 아웃룩 같은 메일 클라이언트로 파일을 첨부하여 보내는 방법이 없을까요?
알집(AlZip) 같은 경우 Context 메뉴를 호출하여 메일에 파일을 첨부할 수 있던데 말입니다.

ShellExecute로 메일 클라이언트를 띄울 수 있으나 파일을 첨부할 방법을 몰라 이렇게 도움을 구합니다.
1  COMMENTS
  • Profile
    Black}{ole 2002.02.25 08:04
    안녕하세요.

    쉘 명령어로 하는 방법:

    procedure TForm1.Button1Click(Sender: TObject);
    var
      Address, Subject, Body, Attachment, MailToCmd: string;
    begin
      Address := 'Enter@address.here';
      Subject := 'Email subject';
      Body := 'Email body';
      Attachment := '"aaaaa.emf' + '"';
      MailToCmd := 'mailto:' + Address + '?' + 'Subject=' + Subject + '&' + 'Body='
        + Body + '&Att:filename=' + Attachment;
      ShellExecute(Handle, 'open',
                   PChar(MailToCmd),
                   nil,
                   nil,
                   SW_SHOWNORMAL);
    end;



    쉘 명령러 참조 사이트:
    http://msdn.microsoft.com/workshop/networking/predefined/mailto.asp

    ole를 이용해 하는 예제는 자료실에 올렸습니다.
    아래사이트 참조하세요.
    http://www.djpate.freeserve.co.uk/AutoOutl.htm


    그럼..20000.