Dim oOutL As New Outlook.Application
        Dim oMail As Outlook.MailItem
        oMail = oOutL.CreateItem(Outlook.OlItemType.olMailItem)
        With oMail
            .UnRead = True
            .To = mailTo
            .Subject = mailSubject
            .HTMLBody = mailHTML
            .Body = mailBody
            .Attachments.Add(mailAttach)
            .Display(True)
            .Send()
        End With

Salzburger