'Datei per Mail senden
Dim N1 As String = "..."
Dim N2 As String = "..."
 
Dim olApp As Object
Dim oItem As Object
 
olApp = CreateObject("Outlook.Application")
oItem = olApp.CreateItem(0)
 
With oItem
   .To = "..."
   .CC = ""
   .BCC = ""
   .Subject = DN
   .Body = N1 & N2
   .Attachments.Add(Target & DN)
   .Send()
End With