E-Mail versenden ohne Abfrage

Sub Mail_Senden()
Dim Nachricht As Object, OutApp As Object
Set OutApp = CreateObject("Outlook.Application")
Dim AWS As String
'Aktive Arbeitsmappe wird als Mail gesendet
AWS = ThisWorkbook.FullName
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = "Fritzchen@gmx.de"
.Subject = "Test" & Date & Time
.attachments.Add AWS
.Body = "Das ist ein Test." & vbCrLf & "Bitte ignorieren."
'Hier wird die Mail nochmals angezeigt
.Display
'Hier wird die Mail gleich in den Postausgang gelegt
'Mail.Send
End With
'Outlook schliessen
OutApp.Quit
Set OutApp = Nothing
Set Nachricht = Nothing
End Sub

Beim versenden bekomme ich eine Abfrage vom Outlook: „Eine Anwendung versucht,
automatisch in Ihrem Auftrag zu senden. Mochten Sie dies zulassen?“
Es ist zwar kein Outlook –Forum, trotzdem vielleicht weiß jemand wie man diese Meldung
los wird.
Vielen Dank im Voraus.
Grüße