With sevSMTP
    If Not .IsConnected() Then
        .TempPath = "C:\"
        .AutoZIP = 1
        .SenderName = "xxxx"
        .SenderEMail = "xxxxx@xxxxx.de"
        .UserName = "xxxxx@xxxxx.de"
        .Password = "xxxxxxxxxxxxxx"
        .SMTPAUTH = True
        .ServerName = "smtp.1und1.de"
        .ServerPort = 25
        .Recipient = Grid.Text(Grid.Row, "EMail")
        .Subject = "xxxxx"
        .Priority = High
 
        .AttachmentClear
        .AttachmentAddEx szTargetFile, True, "xxxxx.zip"
 
        If .Connect() = True Then
            .SendMail
        End If
 
        .Disconnect
 
    End If
End With

CardManager (SmartCard Tools a la CARD)