Traté de escribir un vbscript para correo mediante smtp de gmail, pero no es trabajo porque estoy conectado a internet a través de proxy.
A continuación es mi código.


Set objMessage = CreateObject("CDO.Message") 
objMessage.Subject = "Example CDO Message" 
objMessage.From = "[email protected]" 
objMessage.To = "[email protected]" 
objMessage.TextBody = "This is some sample message text."

'==This section provides the configuration information for the remote SMTP server.
'==Normally you will only change the server name or IP.
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"

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

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

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

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

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


objMessage.Configuration.Fields.Update

'==End remote SMTP server configuration section==

objMessage.Send

cuando estoy ejecutando este código me da un error «El transporte no se pudo conectar con el servidor»
¿Alguien puede proporcionarme un ejemplo. Estoy conectado a internet a través de proxy.

Gracias
Waqar

InformationsquelleAutor Waqar | 2011-02-12

3 Comentarios

  1. 1

    Ya que su código no puede conectar con el servidor, incluso antes de preocuparse de su código, ha hecho usted seguro de que usted puede conectar con el servidor de todos en ese puerto?

    La forma más sencilla de comprobar esto es a través de Telnet. Asumiendo que usted tiene Telnet instalado en su equipo, abra un símbolo del sistema y escriba telnet smtp.gmail.com 465. Si esto falla, entonces el código no puede hacerlo cualquiera. La razón más común para esta falla es debido a un firewall que bloquea el uso de el puerto 465 y ya que mencionas a un proxy, yo supongo que esto podría ser un problema así.

    Si se las arreglan para conectar en el puerto, ver la aceptación respuesta a esta pregunta por ejemplo el código de vbscript (y también una sugerencia de que podría utilizar en su lugar un SMTP simple herramienta de línea de comandos si eso iba a funcionar mejor).

  2. 1

    Otra cosa a tener en cuenta (yo tuve el mismo problema) es asegurarse de que la configuración de DNS en el adaptador correcto.

    Me dio mi servidor una dirección IP estática, pero supongo que omiten las direcciones de Servidor DNS, por lo que nada podía ser resuelto. Sólo un descuido de mi parte, pero pensé que mencionar.

  3. 0

    Como usted está usando un proxy de Internet, usted necesita usar urlproxyserver Field para la conexión. algo como esto necesita ser hecho:

    objMessage.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/urlproxyserver") = "yourproxy:port" 

    Además, en caso si usted nunca usar un proxy, pero conectarse a una IP local,puede Que quiera saltarse el proxy de escaneo.Esto se puede hacer utilizando urlproxybypass Field y debe ser utilizado como este por debajo de

    objMessage.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/urlproxybypass") = "<local>"

    Más información se puede encontrar en aquí y aquí. Un ejemplo puede ser encontrado aquí

    espero que esto ayude.

Dejar respuesta

Please enter your comment!
Please enter your name here