VB發郵件

Private Sub Command1_Click()

Dim objEmail As Object

Set objEmail = CreateObject("CDO.Message")

objEmail.From = "目的郵箱"

objEmail.To = "發送到的郵箱"

objEmail.Subject = "vb郵件"

objEmail.Textbody = "計算結果 "

objEmail.Configuration.Fields.Item("/cdo/configuration/sendusing") = 2

objEmail.Configuration.Fields.Item("/cdo/configuration/smtpserver") = "smtp.163.com" '發信服務器，假設為163郵箱

objEmail.Configuration.Fields.Item("/cdo/configuration/smtpserverport") = 25

objEmail.Configuration.Fields.Item("/cdo/configuration/smtpauthenticate") = 1

objEmail.Configuration.Fields.Item("/cdo/configuration/sendusername") = " 原郵箱賬號"

objEmail.Configuration.Fields.Item("/cdo/configuration/sendpassword") = "原郵箱密碼"

objEmail.Configuration.Fields.Update

objEmail.Send

End Sub