# Re: 我不想用MAPI送信

Posted by Honey on February 23, 1999 at 11:04:54:

In Reply to: 我不想用MAPI送信 posted by superman on February 11, 1999 at 17:57:39:

: 用MAPI似乎一定要安装MS Mail or Exchange
: 我觉得此法不好ㄝ,请问有无用其他方式解决?

: 因我只是用来送信,不用来收信

那就用外部的程式去寄信
先用以下宣告
PRIVATE Declare Function _
ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" _
(ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long

后呼叫
dim dd as string
DD="honey0@tcts1.seed.net.tw"
CALL ShellExecute(ME.hwnd, "open", "mailto:" & _
DD, "", "", 5)

Follow Ups: