Question

VB发邮件（只要发送）源码

300分VB发邮件源码，回答之前自己测试，不能使用就别回答了，浪费时间，SB和只会复制粘贴还有没答案要分的人直接gun

Answer 1

jmail组件发邮件看能不能达到你的满意~： Sub SendMail()
Dim jmail As Object
Set jmail = CreateObject("JMAIL.Message") ';建立发送邮件地对象
jmail.Silent = True ''一般不用改
jmail.Charset = "gb2312" ''信件地语言编码
jmail.ContentType = "text/html" ''信件地格式html或纯文本
jmail.From = "****@163.com" ''发信人邮箱
jmail.FromName = "****" ''发信人姓名
jmail.Subject = "" ''信件主题
jmail.AddRecipient "****" ''收信人地址
jmail.Body = "" ''信件正文
jmail.MailServerUserName = "****" ''服务器登陆用户名(您地邮件地址)
jmail.MailServerPassWord = "****" ''服务器登陆密码(您地邮件密码)
jmail.Send ("smtp.163.com") ''服务器地址
jmail.Close
Set jmail = Nothing
End Sub

Answer 2

调用MAPI控件加个按钮,name为"发送"Private Sub 发送_Click()
With MAPIMessages1
.MsgIndex = -1
.RecipDisplayName = "对方邮箱"
.MsgSubject = "标题"
.MsgNoteText = "内容"
.SessionID = MAPISession1.SessionID
.Send
End With
MsgBox "邮件发送完毕！", , "发送邮件"
End SubPrivate Sub Form_Load()
MAPISession1.SignOn
End Sub
由于现在很多人使用邮箱功能做病毒所以邮箱代码没有后台的(就算有也很难找到)你可一学习以下网页控件操作方法,用网页操作帮你完成,我自己没试过,但是觉得可以,方法:调用一个网页控件,从控件里面调到邮箱登录网址,发送用户名密码等信息给服务器,接着通过HTML操作登录邮箱以后的界面,把邮件发送出去.

Answer 3

'调用Microsfot MAPI Controls 6.0控件With MAPIMessages1
.MsgIndex = -1
.RecipDisplayName ="邮箱地址"
.MsgSubject = "主题"
.MsgNoteText = "内容" .SessionID = MAPISession1.SessionID
.Send (False)

End With
MsgBox "邮件发送完毕！", , "发送邮件"

Answer 4

WishBoy您好!关于您所提的问题我认为:/这里面有VB源码大全,控件大全.很高兴能为您解答这个问题!谢谢!

如果帮助到您，请记得采纳为满意答案哈，谢谢！祝您生活愉快！ vae.la

Answer 5

这300分给我吧，我把源码给你。12109253Q ^_^