Private Sub SndsevMail(sFile As String)
 
  With UserForm1.sevSMTP1
    ' =============================
    ' Eigenschaften festlegen
    ' =============================
 
    ' Angaben zum SMTP-Server
    .ServerName = "S44Lxxxx"  ' z.B. mailto.btx.dtag.de
 
    ' Absenderangaben
    .SenderName = "Name Vorname"
    .SenderEMail = "r.w@domain.at"
 
    ' Empfänger
    .Recipient = "r.w@domain.at"
 
    ' Betreff
    .Subject = "Betreff xxxx"
 
    ' Nachricht
    .Message = "Nachrichtentext"
 
    ' Dateianlagen (ab 10 KB autom. zippen)
    .TempPath = "C:\Temp"
    .AutoZIP = 10
    .AttachmentClear
    .AttachmentAdd sFile
 
    ' =============================
    ' Hier beginnt der Sendevorgang
    ' =============================
 
    ' 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
End Sub