2020国产成人精品视频,性做久久久久久久久,亚洲国产成人久久综合一区,亚洲影院天堂中文av色

分享

用VB發(fā)郵件

 Ark.xu 2012-04-10

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ā)件郵箱(此時(shí)要改為正確的發(fā)件郵箱)

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

.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" '郵箱用戶名(此時(shí)要改為正確的發(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

    本站是提供個(gè)人知識(shí)管理的網(wǎng)絡(luò)存儲(chǔ)空間,所有內(nèi)容均由用戶發(fā)布,不代表本站觀點(diǎn)。請(qǐng)注意甄別內(nèi)容中的聯(lián)系方式、誘導(dǎo)購買等信息,謹(jǐn)防詐騙。如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容,請(qǐng)點(diǎn)擊一鍵舉報(bào)。
    轉(zhuǎn)藏 分享 獻(xiàn)花(0

    0條評(píng)論

    發(fā)表

    請(qǐng)遵守用戶 評(píng)論公約

    類似文章 更多