Je veux envoyer un mail en utilisant VBScript et CDO

Question

Salut Ce code fonctionne très bien de l'extérieur de mon OFFICE.But ne fonctionne pas dans le réseau de bureau ... Est-ce que le port est bloqué est la raison ??????

Le code est ici. L'erreur est également mentionnée dans le dernier.

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") 

---

Erreur: la ligne 52, Char 1, erreur de transport n'a pas réussi à se connecter au serveur. code: 80040213 ..

Answer 1

Étant donné que vous utilisez des adresses GMAIL, je suppose que vous n'exécutez pas un serveur de messagerie sur la même machine que celle où vous exécutez ce script?

Si tel est le cas, vous devrez le configurer pour vous connecter au serveur distant. Cet article explique comment faire cela:

Regardez la section intitulée Envoi d'un email texte en utilisant l'authentification sur un serveur SMTP distant.

Je pense que le serveur est smtp.googlemail.com et le port est .

Answer 2

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

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

ici u peut trouver de nombreux exemples

Answer 3

Si vous utilisez le serveur SMTP de gmail puis d'abord essayer de telnet le serveur smtp og gmail sur le port 25. S'il est dit bloqué essayez le port 465. soit devrait fonctionner. quel que soit le port ouvert, utilisez-le sur le script yoru. Si aucun ne fonctionne, vous devez discuter avec votre administrateur réseau. les règles de pare-feu vous empêchent de communiquer via le réseau local du bureau.