Set?? objEmail = CreateObject("CDO.Message") With objEmail.Configuration.Fields With objEmail objEmail.Configuration.Fields.Update Msgbox "success" Set objEmail = Nothing
Const CDONameSpace = "
.Item(CDONameSpace+"sendusing") = 2
.Item(CDONameSpace+"smtpserver") = "smtp.21cn.com"
.Item(CDONameSpace+"smtpserverport") = 25
.Item(CDONameSpace+"smtpauthenticate") = 1
.Item(CDONameSpace+"sendusername") = "sleepwom"
.Item(CDONameSpace+"sendpassword") = "123456"
End With
.From???? = "sleepwom@21cn.com"
.To?????? = "sleepwom@163.com"
.Subject? = "Server down"
.Textbody = "Server1 is no longer accessible over the network."
End With
objEmail.Send
只有注冊用戶登錄后才能發表評論。 | ||
【推薦】100%開源!大型工業跨平臺軟件C++源碼提供,建模,組態!
![]() |
||
相關文章:
|
||
網站導航:
博客園
IT新聞
BlogJava
博問
Chat2DB
管理
|
||
|