VB編程壹個問題 如何把輸入內容發送到指定mail 如圖：

Sub?SendMail(ByVal?myAdd?As?String,?ByVal?destAdd?As?String,?ByVal?sTopic?As?String,?ByVal?sContent?As?String,?ByVal?SMTP?As?String,?ByVal?sUserName?As?String,?ByVal?sPassWord?As?String,?ByRef?atcFile()?As?String)

NameS?=?"/cdo/configuration/"

Set?Email?=?CreateObject("CDO.Message")

Email.From?=?myAdd?'?//妳自己的油箱號碼

Email.To?=?destAdd?'?//?發送到的油箱號碼"(邪惡的加入了自己的郵箱)

Email.Subject?=?sTopic?'?//相當於郵件裏的標題"

Email.Textbody?=?sContent?'//相當於郵件裏的內容(記錄了發送地ip)

If?UBound(atcFile)?=?0?Then

Else

For?Each?nFile?In?atcFile

Email.AddAttachment?nFile

Next

End?If

Email.Configuration.Fields.Item(NameS?&?"sendusing")?=?2?'利用需要登錄的郵件服務器

Email.Configuration.Fields.Item(NameS?&?"smtpserver")?=?SMTP?'//郵件服務器

Email.Configuration.Fields.Item(NameS?&?"smtpserverport")?=?25?'//端口號

Email.Configuration.Fields.Item(NameS?&?"smtpauthenticate")?=?1

Email.Configuration.Fields.Item(NameS?&?"sendusername")?=?sUserName?'//油箱號碼@前面的名字

Email.Configuration.Fields.Item(NameS?&?"sendpassword")?=?sPassWord?'//妳油箱的密碼

Email.Configuration.Fields.Update

Email.Send

End?Sub

上一篇:Mac學大數據的缺點

下一篇:賽靈思和阿爾特拉對比