''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Diese Funktion verschickt eine Email ohne Outlook
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Verwendung:''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'SmtpServer: Der SMTP Server, der die Email versendet. Beispiel: "smtp.gmail.com"
'Username: Benutzername des Email Accounts, wovon die Email versendet wird.
'Password: Passwort des Email Accounts, wovon die Email versendet wird.
'Betreff: Betreff der Email
'Nachricht: Nachricht der Email
'ZielAdresse: Die Email Adresse, wohin die Email versendet wird.
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub SendEmail(SmtpServer As String, Username As String, Password As String, Betreff As String, Nachricht As String, ZielAdresse As String)
    Dim Mail As New Message
    Dim Config As Configuration
    Set Config = Mail.Configuration

    Config(cdoSendUsingMethod) = cdoSendUsingPort
    Config(cdoSMTPServer) = SmtpServer
    Config(cdoSMTPServerPort) = 25
    Config(cdoSMTPAuthenticate) = cdoBasic
    Config(cdoSMTPUseSSL) = True
    Config(cdoSendUserName) = Username
    Config(cdoSendPassword) = Password
    Config.Fields.Update

    Mail.To = ZielAdresse
    Mail.From = Config(cdoSendUserName)
    Mail.Subject = Betreff
    Mail.HTMLBody = Nachricht
    Mail.Send

    If Err.Number <> 0 Then
        MsgBox "Fehler beim Versenden der Email"
        Exit Sub
    End If

End Sub