VB发送邮件代码（不使用任何控件）

On Error GoTo errinfo


NameSpace = "http://schemas.microsoft.com/cdo/configuration/"


Set Email = CreateObject("CDO.Message")


Email.From = "[email protected]" '你的邮箱地址


Email.To = "[email protected]" '要发往的地址


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"