Warnmeldung in Outlook automatisch bestätigen
21.11.2015 10:21:56
Thomas
ich verwende ein Makro, um per Button-Klick eine Email-Vorlage in eine leere Outlook-Email zu kopieren.
Der Code funktioniert soweit, jedoch habe ich das Problem, dass ich dabei immer eine Warnmeldung in Outlook erhalte ("A program is trying to access e-mail address information stored in Outlook..."), die ich immer erst durch einen Klick auf "Allow" schließen muss.
Wichtig: Ich möchte die Email nicht direkt versenden, sondern nur die Vorlage + einen bestimmten Empfänger und Betreff etc. in Outlook kopieren, so dass der User immer noch entscheiden kann, ob er die Email verschicken will oder nicht.
Gibt es einen Weg, in diesem Fall die Warnmeldung trotzdem zu umgehen oder automatisch mit "Allow" zu bestätigen ?
Mein Code (gekürzt):
Sub EmailFeedback()
Dim olApp As Object
Dim olOldBody As String
Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)
.GetInspector.Display
olOldBody = .HTMLBody
.Importance = 1
.To = Worksheets(5).Range("EmailFeedback").Value
.Cc = ""
.Bcc = ""
.Subject = "bla bla"
.HTMLBody = "bla bla bla" & olOldBody
.Display
End With
End Sub
Gruß,
Thomas