发信人: plindge()
整理人: fishy(2000-05-23 14:06:48), 站内信件
|
=======================================================
Welcom To Plindge Studio http://plindge.yeah.net
E-Mail: [email protected]
=======================================================
(2)How To Send An E-Mail.
大家好！在VB中调用缺省的电子邮件软件来发E-Mail也许大家都会，
近来不少网友问能否直接加入主题呀，内容呀之类的问题，答案是
肯定的。Let's Go！
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
Public Function SendEmail(ByVal EmailAddress As String, _
Optional Subject As String, Optional Body As String) _
As Boolean
Dim lWindow As Long
Dim lRet As Long
Dim sParams As String
sParams = EmailAddress
If LCase(Left(sParams, 7)) <> "mailto:" Then _
sParams = "mailto:" & sParams
If Subject <> "" Then sParams = sParams & "?subject=" & Subject
If Body <> "" Then
sParams = sParams & IIf(Subject = "", "?", "&")
sParams = sParams & "body=" & Body
End If
lRet = ShellExecute(lWindow, "open", sParams, _
vbNullString, vbNullString, SW_SHOW)
SendEmail = lRet = 0
End Function
Usage Example:
SendEmail "[email protected]", "Hello,Aming...", _
"品琳居是个好地方..."
' 程序在OutLook、TheBat中测试通过，FoxMail中不行。
' To Be Continue...
--
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 202.103.160.26]
|
|