With sevSMTP1
 
 
 .ServerName = SMTPadresse
 .UserName = SMTPuser
 .Password = SMTPpas
 .SMTPAUTH = True
 
 .SenderName = SMTPuser
 .SenderEMail = SMTPuser
 .Recipient = Text1.Text
 .Subject = Text2.Text
 .Message = Text3.Text
 
 
 
' Anmeldung erfolgreich?
  If .Connect() = True Then
    If .SendMail() < 1 Then
      MsgBox "Fehler beim Versenden der Nachricht" & _
        vbCrLf & .SMTPErrorText
    End If
 
    ' Verbindung trennen
    .Disconnect
  Else
    MsgBox "Fehler beim Verbinden mit dem Mailserver" & _
      vbCrLf & .SMTPErrorText
  End If
End With