Private Sub SMTPStart()
 
    With sevSMTP
 
        .ServerName = "..."
        .ServerPort = "..."
        .SenderName = "..."
        .SenderEMail = "..."
        .SMTPAUTH = True
        .TimeoutConnect = 60
        .UserName = "..."
        .Password = "..."
 
        If .Connect() = True Then                                               _
          'Anmeldung erfolgreich ?
            SMTPStatus = "Verbindung zum SMTP-Server hergestellt..."            _
            'Status aktualisieren
            Call SendMSG                                                        _
            'Nachrichten senden
        Else                                                                    _
        'Keine Verbindung...
            SMTPStatus = .SMTPErrorText & " (" & .SMTPError & ")"               _
            'SMTP Fehler !
            Wait 1000
        End If
    End With
 
End Sub
 
Private Sub SendMSG()
 
    With sevSMTP
        If .IsConnected() Then
            .Recipient = "..."
            .Subject = "..."
            .Message = "...."
 
            If .SendMail() < 1 Then
                MsgBox .SMTPErrorText & " (" & .SMTPError & ")"
            End If
 
        Else
            MsgBox .SMTPErrorText & " (" & .SMTPError & ")"
        End If
    End With
 
End Sub

CardManager (SmartCard Tools a la CARD)