Я хочу отправить письмо с использованием VBScript и CDO

Question

Привет! Этот код работает нормально со стороны моего ОФИСА. Но он не работает в офисной сети ... Порт заблокирован - причина ??????

Код здесь.Ошибка также упоминается в последнем.

MsgBox("Hello world")
Const cdoSendUsingPickup = 1 'Send message using the local SMTP service pickup directory.
Const cdoSendUsingPort = 2 'Send the message using the network (SMTP over the network).

Const cdoAnonymous = 0 'Do not authenticate
Const cdoBasic = 1 'basic (clear-text) authentication
Const cdoNTLM = 2 'NTLM

Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Example CDO Message"
objMessage.From = """xyz"" <mymail@gmail.com>"
objMessage.To = "anothersmail@gmail.com"
objMessage.TextBody = "hi it's me...." & vbCRLF & "this is wrking so we hav solved the issue."

'==This section provides the configuration information for the remote SMTP server.

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing ) = 2

'Name or IP of Remote SMTP Server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver ) = "smtp.gmail.com"

'Type of authentication, NONE, Basic (Base64 encoded), NTLM
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate ) = cdoBasic

'Your UserID on the SMTP server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername ) = "mymail@gmail.com"

'Your password on the SMTP server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword ) = "****************"

'Server port (typically 25)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport ) = 465

'Use SSL for the connection (False or True)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpusessl ) = True

'Connection Timeout in seconds (the maximum time CDO will try to establish a connection to the SMTP server)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout ) = 60

objMessage.Configuration.Fields.Update

'==End remote SMTP server configuration section==

objMessage.Send
MsgBox("Hello world") 

---

Ошибка: строка 52, символ 1, ошибка транспорта не удалось подключиться к серверу.код: 80040213 ..

Answer 1

http://www.paulsadowski.com/WSH/cdo.htm

http://forums.aspfree.com/asp-development-5/cdo-message-1-error-80040220t-47913.html

здесь вы можете найти много примеров

Answer 2

Если вы используете SMTP-сервер gmail, то сначала попробуйте подключиться к серверу smtp og gmail через порт 25. Если он заблокирован, попробуйте порт 465. Любой из них должен работать. какой бы порт ни был открыт, используйте его на вашем скрипте. Если ничего не работает, вы должны обсудить это с администратором сети. Правила брандмауэра не позволяют вам общаться по локальной сети офиса.

Answer 3

Поскольку вы используете адреса GMAIL, я предполагаю, что вы не используете почтовый сервер на той же машине, где вы запускаете этот скрипт?

Если это так, вам придется настроить его для подключения к удаленному серверу. В этой статье описывается, как это сделать: VBScript для отправки электронной почты с использованием CDO

Посмотрите на раздел Отправка текстового электронного письма с использованием аутентификации на удаленном SMTP-сервере.

Я думаю, что сервер smtp.googlemail.com , а порт 587 .