Office: Email mit VBA versenden

Hallo ich möchte eine Email aus VBA abschicken mit einem Gmail Konto. Mein Code:

Code:

 Sub Abschicken()        Dim smtpserver As New SmtpClient
        Dim email As New MailMessage
        smtpserver.Credentials = New Net.NetworkCredential("emailadresse@gmail.com", "Passwort") 
        smtpserver.Port = 587
        smtpserver.Host = "smtp.gmail.com"
        email = New MailMessage
        email.From = New MailAddress("emailadresse@gmail.com")
        email.To.Add("emailadresse@gmail.com")
        email.Subject = "Betreff"
        email.Body = erhaltenerText.Text
        smtpserver.Send(email)
    End Sub

Leider stimmt wohl etwas mit den gmail Daten nicht, hat da jemand eine Idee?

Folgender Fehler tritt auf:
Für den SMTP-Server ist eine sichere Verbindung erforderlich, oder der Client wurde nicht authentifiziert. Die Serverantwort war: 5.7.0 Must issue a STARTTLS command first. ep14sm9669533wid.0

danke

 

Hallo,

keine Ahnung was Du willst, hab von VBA keinen Schimmer, aber vielleicht hilft auch dieses Tool weiter:
http://www.add-in-world.com/katalog/xl-mailer/

 

Ich hab den Fehler gefunden die Zeile

Code:

smtpserver.EnableSsl = True

fehlte.