Как отправить электронное письмо из сценария vbs - на компьютере, который не может подключиться к Интернету (он находится в моей не интернет-зоне).Как отправить электронное письмо с помощью сценария vbs
Я взломал следующее вместе с моим поисковым роботом, но, похоже, требуется позвонить на сервер Microsoft. Как насчет ситуации, когда я не могу связаться с microsoft.com?
sch = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = CreateObject("CDO.Configuration")
With cdoConfig.Fields
.Item(sch & "sendusing") = 2 ''cdoSendUsingPort
.Item(sch & "smtpserver") = "my_internal_mail_server"
.update
End With
Set objEmail = CreateObject("CDO.Message")
set objEmail.configuration = cdoConfig
objEmail.From = "[email protected]"
objEmail.To = "[email protected]"
objEmail.Subject = "Server is down!"
objEmail.Textbody = "Run out the guns!!!"
objEmail.Send
MsgBox "Script Complete"
(у меня есть внутренний сервер SMTP ... проблема того, чтобы опрашивать сервер MS)
Является ли SMTP-сервер на этом компьютере или удаленном? –
SMTP-сервер находится на другой машине, но доступен из не-интернет-зоны. – BIBD