可以用Jmail
需要文件Jmail.dll 告诉我邮箱 我发给你
需要先注册一下组件 如果Jmail.dll在c:\jmail.dll
那么在运行里输入regsvr32 /s c:\jmail.dll
也可以直接用VB注册 代码:
shell "regsvr32 /s c:\jmail.dll"
之后就可以用它发邮件了 代码:
Sub SendMail(Optional ByVal sSubject As String, _
Optional ByVal sBody As String, _
Optional ByVal sFileName As String)
Dim jmail
Set jmail = CreateObject("jmail.Message")
jmail.Charset = "gb2312"
jmail.Silent = False
jmail.Priority = 1 '邮件状态,1-5 1为最高
jmail.MailServerUserName = "12345" 'Email帐号
jmail.MailServerPassWord = "123456789" 'Email密码
jmail.FromName = "邮件" '发信人姓名
jmail.From = "12345@126.com" '发邮件地址地址
jmail.Subject = Text1.text 'Text1做标题
jmail.AddRecipient "zzzzz@vvvvv.com" '收信人地址
jmail.Body = text2.text 'text2做内容
jmail.Send ("smtp.126.com") 'SMTP服务器,如smtp.sohu.com
Set jmail = Nothing
End Sub
本内容试读结束,登录后可阅读更多
下载后可阅读完整内容,剩余1页未读,立即下载