ich bin gerade dabei in Excel eine Möglichkeit zu finden, über ein Formular Button eine Regel in Outlook zu erstellen.
Die Situation zum Verständnis:
Ich bearbeite aus Excel meine Projekte.
Wenn ich ein neues Projekt starte, so möchte ich in Outlook ein neuen Ordner und eine Regel erstellen, dass wenn zu diesem Projekt eine E-Mail reinkommt, diese automatisch in den dafür passenden Ordner verschoben wird und ich eine Benachrichtigung dazu erhalte.
Bisher erstelle ich dieses immer manuell.
Also Ordner im Posteingang erstellen und danach eine Regel mit folgenden Punkten:
Nach Erhalt einer Nachricht
mit ProjektNr im Betreff
im Benachrichtigungsfenster für neue Elemente ProjektNr - Kundenname anzeigen
und diese in den Ordner ProjektNr verschieben
Diese Regel soll immer aktiv sein.Den Ordner erstellen bekomme ich schon hin. Siehe Code:
Private Sub CmdOutlookAdd_Click()
' OUTLOOK Ordner erstellen
Dim MyOLApp As Outlook.Application
Dim myNameSpace As Outlook.Namespace
Dim mynewfolder As Object
Dim myFolder As Object
Dim ProjektNr As String, Kundenname As String, AddOrdner As String
'Diese 3 Variablen einzeln deklariert, um die Werte zur weiteren Verarbeitung fix zu haben
ProjektNr = Range("c2")
Kundenname = Range("c1")
AddOrdner = (ProjektNr & " - " & Kundenname)
Set MyOLApp = CreateObject("Outlook.Application")
Set myNameSpace = MyOLApp.GetNamespace("MAPI")
Set myFolder = myNameSpace.Folders("xxx@xxx.de").Folders("Posteingang").Folders("_Projekte")
Set mynewfolder = myFolder.Folders.Add(AddOrdner)
End Sub
Jetzt möchte ich halt noch die besagte Regel erstellen und bin dabei auf diesen Code von folgender Seite gestoßen: https://docs.microsoft.com/de-de/office/vba/outlook/how-to/rules/create-a-rule-to-move-specific-e-mails-to-a-folder
Auf diese wollte ich aufbauen, bekomme aber eine Fehlermeldung zur Zeile:
Set oInbox = Application.Session.GetDefaultFolder(olFolderInbox)
Fehlermeldung:
Laufzeitfehler '438':
Objekt unterstützt diese Eigenschaft oder Methode nicht
Auf der Suche nach einer Lösung zu dieser Situation habe ich unteranderen gelesen, dass eventuell ein Add-Ins die Ursache sein könnte. Dort habe ich aber keine Einträge im Dropdown "Add-Inn" .Jemand sonst noch eine Idee, woran es liegen könnte? Oder vielleicht ein anderen Code, den ich verwenden könnte?
Ich habe diesbezüglich nicht viel dazu gefunden, was mir weiterhelfen könnte. Darum melde ich mich jetzt hier mit mein Problem.
Zusätzliche Frage: Wenn ich es mit Eurer Hilfe hinbekomme und später den Ordner per VBA verschiebe, muss ich dann auch die Regel neu schreiben?