Dim olApp As Object
        Dim oItem As Object
 
        olApp = CreateObject("Outlook.Application")
        oItem = olApp.CreateItem(0)
        With oItem
            .Subject = sMailTitel
            .ReplyRecipientNames = "sBack"
            'MAIL VON 
            .To = sMailAn
            .Cc = sCC
            .Body = sMailText
            .display()
        End With
        oItem = Nothing
        olApp = Nothing