Option Explicit

Private Sub Form_Load()

Dim NameSpace As String

Dim Email As Object

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

Set Email = CreateObject("CDO.Message")

Text1 = “”‘郵件的內(nèi)容

With Email

.From = "******" '發(fā)件郵箱(此時要改為正確的發(fā)件郵箱)

.To = "******" '收件郵箱(此時要改為正確的收件郵箱)

.Subject = "1.txt" '郵件主題

.TextBody = Text1 '郵件內(nèi)容

With Email.Configuration.Fields

.Item(NameSpace & "sendusing") = 2

.Item(NameSpace & "smtpserver") = "smtp.163.com"

.Item(NameSpace & "smtpserverport") = 25 '端口，不要改！

.Item(NameSpace & "smtpauthenticate") = 1

.Item(NameSpace & "sendusername") = "******@163.com" '郵箱用戶名(此時要改為正確的發(fā)件郵箱)

.Item(NameSpace & "sendpassword") = "******" '郵箱密碼(此處寫正確密碼)

.Update

End With

.Send

End With

If Err.Number <> 0 Then

MsgBox "無法發(fā)送郵件：" & Err.Description

Else

MsgBox "郵件發(fā)送成功", vbInformation

End If

Set Email = Nothing

End Sub