So senden Sie E-Mail mit vbscript und remote-smtp-server. Ich bin verbunden über einen proxy

Habe ich versucht zu schreiben, ein vbscript zum E-mail Verwendung von Google Mail smtp-aber es funktioniert nicht, weil ich bin verbunden mit dem internet über proxy.
Unten ist mein code.

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

wenn ich diesen code ausführen, es gibt mir Fehler "transport failed to connect to the server"
Kann jemand mir ein Beispiel. Ich bin verbunden mit dem internet über proxy.

Dank
Waqar

InformationsquelleAutor Waqar | 2011-02-12

  1. 1

    Da Ihr code nicht mit dem server verbinden, bevor Sie selbst sich Gedanken über Ihren code, haben Sie sichergestellt, dass Sie eine Verbindung mit dem server auf diesem port?

    Der einfachste Weg, um dies zu überprüfen, ist über Telnet. Angenommen, Sie haben Telnet auf Ihrem Computer installiert ist, öffnen Sie einfach eine Eingabeaufforderung, und geben Sie telnet smtp.gmail.com 465. Wenn das fehlschlägt, dann kann der code nicht. Der häufigste Grund für das scheitern ist durch eine firewall blockiert Sie aus über port 465 und da erwähnst du einen proxy, ich würde davon ausgehen, dass dies ein problem sein könnte als gut.

    Wenn es Ihnen gelingt, eine Verbindung auf diesem port finden die akzeptierte Antwort auf diese Frage zum Beispiel für vbscript-code (und auch ein Vorschlag, dass du stattdessen könnte ein einfacher SMTP-Befehl Linie Werkzeug, wenn das besser funktionieren würde).

    InformationsquelleAutor Hans Olsson

  2. 1

    Eine andere Sache zu sehen (ich hatte das gleiche Problem), ist sicherzustellen, dass die DNS-Einstellungen auf der Netzwerkkarte sind korrekt.

    Gab ich meinem server eine statische IP-Adresse, aber ich denke, übersprang die DNS-Server-Adressen, damit nichts gelöst werden könnten. Nur ein versehen meinerseits, aber dachte, ich würde es erwähnen.

    InformationsquelleAutor Rick

  3. 0

    Wie Sie mit Hilfe eines Internet-proxy, müssen Sie die Verwendung von urlproxyserver Field für die Verbindung. so etwas muss getan werden: 

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

    Weiter, incase, wenn Sie jemals verwenden Sie einen proxy-aber eine Verbindung zu einer lokalen IP,möchten Sie vielleicht überspringen Sie die proxy-scan.Dies kann mit urlproxybypass Field und es sollte verwendet werden, wie dies unten 

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

    Mehr info finden Sie hier und hier. Ein Beispiel finden Sie hier

    hoffe, das hilft.

    InformationsquelleAutor Travis G

Schreibe einen Kommentar