vb如何自动发送电子邮件

On Error GoTo errinfo

NameSpace = "

"

Set Email = CreateObject("CDO.Message")

Email.From = "619123143@qq.com" '你的邮箱地址

Email.To = "495511306@qq.com" '要发往的地址

Email.Subject = "Artilect Help" '邮件主题

Email.Textbody = Text1.Text '邮件内容

'Email.AddAttachment "c:\1.txt" '附件，可以添加多个 这里必须是完整本地路径 例如 "c:\1.txt" 如果不需要附件可以删掉此行

With Email.Configuration.Fields

.Item(NameSpace & "sendusing") = 2

.Item(NameSpace & "smtpserver") = "smtp.qq.com" '发送邮件服务器

.Item(NameSpace & "smtpserverport") = 25

.Item(NameSpace & "smtpauthenticate") = 1

.Item(NameSpace & "sendusername") = "619123143" '邮箱用户名

.Item(NameSpace & "sendpassword") = "15964753132wxwx" '密码

.Update

End With

Email.Send

Exit Sub

errinfo: '错误处理

MsgBox "抱歉，我不会回答您的问题！", 16, "Artilect Error"

标签：vb,电子邮件,发送