Dialog unterdrücken, der darauf hinweist, dass ein Programm versucht, auf meine Mails zuzugreifen

Question

Ich folge dem Code von dieser Seite: So erstellen Sie ein Skript für den Regelassistenten in Outlook

Das habe ich:

Public Sub GetMails(Item As Outlook.MailItem)

    MsgBox "Mail message arrived: " & Item.SenderEmailAddress
    MsgBox "Mail message arrived: " & Item.Subject
    MsgBox "Mail message arrived: " & Item.Body

End Sub

Ich habe eine Regel festgelegt, um dieses Makro auszuführen. Jedes Mal, wenn dieses Skript ausgeführt wird, erscheint ein Dialog darüber, wie ein Programm versucht, auf meine Mails zuzugreifen.

Wie kann ich dies mit VBA loswerden oder gibt es eine Konfigurationsoption in Outlook, damit dies nicht angezeigt wird?

Ich habe nach diesem Thema gegoogelt und einige Seiten mit Code für C# und VB.net gefunden, aber keine für VBA.

Answer 1

Dies wurde hinzugefügt, um zu verhindern, dass bösartige Skripte Outlook in einen Massen-Mailer oder andere schlechte Dinge verwandeln.

Sie können dies auf Ihrer Workstation deaktivieren, aber wenn Sie Ihre Anwendung an andere Benutzer weitergeben möchten, können Sie dies nur durch die Erstellung eines eigenen Outlook-Addins oder die Verwendung eines Drittanbieter-Tools wie Erlösung .

Answer 2

Versuchen Sie dies

Werkzeuge-->Makro-->Sicherheit-->Makrosicherheit-->Keine Sicherheit Extras-->Makro-->Sicherheit-->Programmatischer Zugriff

Wählen Sie dann Niemals vor verdächtigen Aktivitäten warnen.

Answer 3

Ich habe das irgendwo gefunden und es funktioniert:

Sub SaveAttachment(myItem As Outlook.MailItem)

' Entfernen Sie alle Anhänge der E-Mail und speichern Sie sie in einem ' lokalen Ordner. Wenn es beim Speichern Fehler gibt, bleiben ' werden die Anhänge beibehalten.

Dim myAttachments As Object
Dim myOrt As String
Dim strID As String
Dim olNS As Outlook.NameSpace
Dim oMail As Outlook.MailItem
Dim fs As Object

' Wir müssen das Mail-Objekt aus der Anwendung holen ' Objekt, um Warnmeldungen zu vermeiden

strID = myItem.EntryID
Set olNS = Application.GetNamespace("MAPI")
Set oMail = olNS.GetItemFromID(strID)