Email senden mit VBScript

  • VBScript

Es gibt 9 Antworten in diesem Thema. Der letzte Beitrag () ist von NaiiV.

    Email senden mit VBScript

    Guten Tag,

    Ich wollte per VBS ein Email senden aber erhalte immer ein Transporter Fehler.
    Nach einiger Zeit auf Google, denke ich das der Fehler bei meinen Login Daten ist.
    Ich bin mir nicht sicher welches mein Username ist zum mit dem Gmail SMTP-Server zu verbinden.
    Ich habe es mit meinen normalen Login Daten ausprobiert, leider ohne Erfolg.

    Ich habe diesen Code aus dem Netz.

    Quellcode

    1. on error resume next
    3. Const schema = "http://schemas.microsoft.com/cdo/configuration/"
    4. Const cdoBasic = 1
    5. Const cdoSendUsingPort = 2
    6. Dim oMsg, oConf
    8. ' E-mail properties
    9. Set oMsg = CreateObject("CDO.Message")
    10. oMsg.From = "myMailgmail.com" ' or "Sender Name <from@gmail.com>"
    11. oMsg.To = "yourMail@mail.com" ' or "Recipient Name <to@gmail.com>"
    12. oMsg.Subject = "Test from VBScript"
    13. oMsg.TextBody = "If you can read this, the script worked!"
    15. ' GMail SMTP server configuration and authentication info
    16. Set oConf = oMsg.Configuration
    17. oConf.Fields(schema & "smtpserver") = "smtp.gmail.com" 'server address
    18. oConf.Fields(schema & "smtpserverport") = 465 'port number
    19. oConf.Fields(schema & "sendusing") = cdoSendUsingPort
    20. oConf.Fields(schema & "smtpauthenticate") = cdoBasic 'authentication type
    21. oConf.Fields(schema & "smtpusessl") = True 'use SSL encryption
    22. oConf.Fields(schema & "sendusername") = "myMailgmail.com" 'sender username
    23. oConf.Fields(schema & "sendpassword") = "myPassword" 'sender password
    24. oConf.Fields.Update()
    26. ' send message
    27. oMsg.Send()
    29. ' Return status message
    30. If Err Then
    31. resultMessage = "ERROR " & Err.Number & ": " & Err.Description
    32. Err.Clear()
    33. Else
    34. resultMessage = "Message sent ok"
    35. End If
    37. Wscript.echo(resultMessage)

    Falls du einen Weg gefunden hast, gib Bescheid.

    Ich habe auch mal stundenlang versucht GMail SMTP mit Hilfe der CDO-Methoden zum Fliegen zu bringen.
    Ich habe am Ende beschlossen dass Collaboration Data Objects und GMail nicht kompatibel sind.

    Die Technik funktioniert mit allen anderen SMTP-Servern problemlos.
    Aber für GMail habe ich auch keine Lösung gefunden.
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

    Ich weiß.
    Möglicherweise hat Google seit dem verlinkten Beitrag etwas verändert.
    Ich hatte es vor ein paar Wochen in allen möglichen Varianten versucht und konnte weder auf dem SSL-Port noch auf dem TLS-Port Erfolg vermelden.
    Selbst Modifikationen undokumentierter CDO-Parameter brachten nichts.

    Ich möchte nicht behaupten, dass es nicht geht.
    Aber so einfach wie in dem Artikel ist es AFAIR nicht mehr.
    Irgendwann verlor ich dann auch die Geduld und ging über GMX raus.
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

Facebook
Telefonspende