Dim sevMail As sevMailActiveX.sevSMTP
  Dim lSentBytes As Long
  Set sevMail = aForm.Controls.Add("sevMailActiveX.sevSMTP", "sevMail", aForm)
 
  With sevMail
    .SenderName = SenderName
    .SenderEMail = SenderAdresse
    .Recipient = Empfaenger
 
    .ServerName = SMTPServerName
    .ServerPort = SMTPServerPort
    .SMTPAuth = SMTPAuth
    .UserName = SMTPLogin
    .Password = SMTPKennwort
 
    .Subject = Betreff
    .message = MsgTxt
 
    If .Connect() Then
      lSentBytes = .SendMail()
 
usw. usf.