Dim olApp As Outlook.Application
Dim oItem As Outlook.MailItem
Dim oSig As Outlook.Inspector
 
olApp = CreateObject("Outlook.Application")
oItem = olApp.CreateItem(OlItemType.olMailItem)
olApp = oItem.GetInspector
 
     With oItem
          .To = "abc@def.de"
          .CC = ""
          .BCC = ""
          .Subject = DN
          .Body = N1 & N2 & vbNewLine & vbNewLine
          .Attachments.Add(Target & DN)
          Call .Send()
     End With