(Deklarationen)
Private WithEvents poSendMail As vbSendMail.clsSendMail
 
Public Sub SendKdMail()
Call ReadConfig
    'Email versenden
Set poSendMail = New clsSendMail
    With poSendMail
        .SMTPHost = gMailSMTP
        .From = gMailAdr
        .FromDisplayName = gMailAbs
        .Recipient = gKDMail
        .Subject = gMailBetreff
        .Message = FRM_HTMLOut.TXT_HTML.Text
        .AsHTML = True
        .UseAuthentication = True
        '.UsePopAuthentication = ""
        .UserName = gMailUsr
        .Password = gMailPwd
        '.POP3Host = ""
        .Send
    End With
End Sub