VB調用默認的發EMAIL的程序﹐有點復雜。請教各位﹗在線等﹗急﹗

Question

一個窗體中有3個Text Box,一個CommandButton。
        txtTo: [email protected]
   txtSubject: 你好
txtAttachment: d:\aa\aa\aa.doc (假設我知道路徑。這裡只用來做個測試﹗)
當點擊按鈕後﹐自動調出默認的發EMAIL的程序(如Outlook等)﹐並且﹐默認的郵件程序的郵件接收者﹐主題和附件自動填入txtTo﹐txtSubject和txtAttachment中的內容。請各位幫忙﹗先謝謝了﹗

Answer 1

ShellExecute 0, "Open", "mailto:" & Trim(Text1.Text) & "?Subject=" & Text2.Text & "&body=" & Text3.Text, 0, 0, 0
可我又在窗體中加了個COMMONDIALOG控件﹐想用來作加府件﹐也讓府件自動填上﹐請問有其他方法嗎﹖謝謝了 ﹗

Answer 2

......有无必要啊.既然有装了OutLook,可以直接用OutLook提供的Email控件(具体名称忘记了)来发送啊,根本不必调用OutLook.如果不是OutLook而是其他发送工具,就更加不可能了,例如FoxMail根本没有提供足够的参数让你自动填写那么多的信息.

Answer 3

ShellExecute 0, "Open", "mailto:" & Trim(Text1.Text) & "?Subject=" & Text2.Text & "&body=" & Text3.Text, 0, 0, 0
这个可行的,我运行过的.但现在,我想:
Private Sub cmdSender_Click()
Dim NewMail As New jmail.Message ShellExecute 0, "Open", "mailto:" & Trim(Text1.Text) & "?Subject=" & Text2.Text & "&body=" & Text3.Text, 0, 0, 0  ‘?出默?的EMAIL程序,并且自?填充??等.
  
    NewMail.AddAttachment Text4.Text '我想用他自?填充到默?的EMAIL程序的附件中End Sub就??附件??,我弄不好.能?我????先了!