Private Sub sevSMTP1_Status(ByVal sStatusText As String)
  ' Status in einem Log-Fenster mitprotokollieren
  With frmLog.txtStatus
    .SelStart = Len(.Text)
    .SelLength = 0
    .SelText = sStatusText
  End With
End Sub