Option Explicit

'需要引用? Microsoft CDO for Windows 2000 Library和 Microsoft ActiveX Data Objects 2.5 Library

Dim objConfig?? As CDO.Configuration

Dim objMessage? As CDO.Message

Dim Fields????? As ADODB.Fields

' Get a handle on the config object and it's fields

Set objConfig = New CDO.Configuration

Set Fields = objConfig.Fields

' Set config fields we care about

With Fields

.Item(cdoSendUsingMethod) = cdoSendUsingPort

.Item(cdoSMTPServer) = "smtp郵件服務器"

.Item(cdoSMTPServerPort) = 25 '端口，默認為25

.Item(cdoSMTPConnectionTimeout) = 10

.Item(cdoSMTPAuthenticate) = cdoBasic

.Item(cdoSendUserName) = "用戶名"

.Item(cdoSendPassword) = "密碼"

.Update

End With

Set objMessage = New CDO.Message '

Set objMessage.Configuration = objConfig

With objMessage

.To = "收件人地址"

.From = "Display Name "

.Subject = "SMTP Relay Test"

.TextBody = "SMTP Relay Test Sent @ " & Now()

.Send

End With

Set Fields = Nothing

Set objMessage = Nothing

Set objConfig = Nothing

End Sub

總結

以上是生活随笔為你收集整理的vb发送邮箱连接服务器失败,VB：如何用需要身份验证的SMTP邮件服务器发信的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。