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.
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
- on error resume next
- Const schema = "http://schemas.microsoft.com/cdo/configuration/"
- Const cdoBasic = 1
- Const cdoSendUsingPort = 2
- Dim oMsg, oConf
- ' E-mail properties
- Set oMsg = CreateObject("CDO.Message")
- oMsg.From = "myMailgmail.com" ' or "Sender Name <from@gmail.com>"
- oMsg.To = "yourMail@mail.com" ' or "Recipient Name <to@gmail.com>"
- oMsg.Subject = "Test from VBScript"
- oMsg.TextBody = "If you can read this, the script worked!"
- ' GMail SMTP server configuration and authentication info
- Set oConf = oMsg.Configuration
- oConf.Fields(schema & "smtpserver") = "smtp.gmail.com" 'server address
- oConf.Fields(schema & "smtpserverport") = 465 'port number
- oConf.Fields(schema & "sendusing") = cdoSendUsingPort
- oConf.Fields(schema & "smtpauthenticate") = cdoBasic 'authentication type
- oConf.Fields(schema & "smtpusessl") = True 'use SSL encryption
- oConf.Fields(schema & "sendusername") = "myMailgmail.com" 'sender username
- oConf.Fields(schema & "sendpassword") = "myPassword" 'sender password
- oConf.Fields.Update()
- ' send message
- oMsg.Send()
- ' Return status message
- If Err Then
- resultMessage = "ERROR " & Err.Number & ": " & Err.Description
- Err.Clear()
- Else
- resultMessage = "Message sent ok"
- End If
- Wscript.echo(resultMessage)