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"