vb发送邮件

Question

Option Explicit 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 
Private Const SW_SHOW = 5 Private Sub Command1_Click() 
Call ShellExecute(Me.hwnd, "open", "mailto:[email protected]?subject=MySubject&Attach=""c:\Test.zip""", _ 
vbNullString, vbNullString, vbNormarlFocus) 
End Sub 
上面的程序将 c:\Test.zip 作为附件发送出去