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

On Error GoTo errinfo


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


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


.It