Hallo Leute.
Ich habe hier auf der Arbeit folgendes Problem. Ich benutze Outlook 2010 unter Windows 7. Immer mehr unserer Lieferanten stellen den Rechnungsversand auf PDF um. Heisst ich muss mir für jeden Lieferanten eine Regel anlegen, damit die Mail in den entsprechenden Ordner (Lieferantenname) gelegt wird. Das ist auch alles kein Problem mit dem Regel-Assisstent von Outlook. Jetzt kommt das große ABER. Da unsere IT-Abteilung es nicht für nötig hält die erlaubte Dateigröße für die "Regel-Datei" auf dem Exchange-Server von jetzt 128KB (oder waren es 256kb?) auf einen höheren Wert zu setzen (klingt lächerlich ... ist aber leider so)kriege ich jetzt immer einen Fehler wenn ich neue Regeln anlege, dass kein Platz mehr auf dem Server wäre. Da wir nicht wenig Lieferanten haben ist die Liste der Regeln natürlich mittlerweile schon richtig lang. Und mit dieser "nur Client" Einstellung funktioniert irgendwie auch nicht.
Eigentlich müsste ich doch das Sortieren der Mails auch mit einem VB-Script bewerkstelligen können oder? Folgende Ordner-Struktur in einer PST-Datei liegt vor:
Archiv-Ordner > Elektr. Rechnungen >
Lieferant A
Lieferant B
Lieferant C
.......
Wie kann ich VB jetzt vermitteln, dass er alle Mails im Haupt-Posteingang nach Absendern (mit Wildcard) durchsucht und anhand dieser Absender die Mails in den richtigen Lieferanten-Ordnern in der PST-Datei jeweils ablegt?
Habe hier schonmal einen kleinen Ansatz rausgearbeitet:
Aber wie kann ich da jetzt eine IF-Abfrage integrieren die nach den verschiedenen Absendern unterscheidet?
Ich habe hier auf der Arbeit folgendes Problem. Ich benutze Outlook 2010 unter Windows 7. Immer mehr unserer Lieferanten stellen den Rechnungsversand auf PDF um. Heisst ich muss mir für jeden Lieferanten eine Regel anlegen, damit die Mail in den entsprechenden Ordner (Lieferantenname) gelegt wird. Das ist auch alles kein Problem mit dem Regel-Assisstent von Outlook. Jetzt kommt das große ABER. Da unsere IT-Abteilung es nicht für nötig hält die erlaubte Dateigröße für die "Regel-Datei" auf dem Exchange-Server von jetzt 128KB (oder waren es 256kb?) auf einen höheren Wert zu setzen (klingt lächerlich ... ist aber leider so)kriege ich jetzt immer einen Fehler wenn ich neue Regeln anlege, dass kein Platz mehr auf dem Server wäre. Da wir nicht wenig Lieferanten haben ist die Liste der Regeln natürlich mittlerweile schon richtig lang. Und mit dieser "nur Client" Einstellung funktioniert irgendwie auch nicht.
Eigentlich müsste ich doch das Sortieren der Mails auch mit einem VB-Script bewerkstelligen können oder? Folgende Ordner-Struktur in einer PST-Datei liegt vor:
Archiv-Ordner > Elektr. Rechnungen >
Lieferant A
Lieferant B
Lieferant C
.......
Wie kann ich VB jetzt vermitteln, dass er alle Mails im Haupt-Posteingang nach Absendern (mit Wildcard) durchsucht und anhand dieser Absender die Mails in den richtigen Lieferanten-Ordnern in der PST-Datei jeweils ablegt?
Habe hier schonmal einen kleinen Ansatz rausgearbeitet:
Quellcode
- Sub MoveItems()
- Dim myNameSpace As Outlook.NameSpace
- Dim myInbox As Outlook.Folder
- Dim myDestFolder As Outlook.Folder
- Dim myItems As Outlook.Items
- Dim myItem As Object
- Set myNameSpace = Application.GetNamespace("MAPI")
- Set myInbox = myNameSpace.GetDefaultFolder(olFolderInbox)
- Set myItems = myInbox.Items
- Set myDestFolder = myInbox.Folders("Lieferant A") <-- Wie lasse ich ihn auf die PST verweisen?
- Set myItem = myItems.Find("[SenderName] = "'NAME'") <-- Wie kann ich hier ein Wildcard einbauen?
- While TypeName(myItem) <> "Nothing"
- myItem.Move myDestFolder
- Set myItem = myItems.FindNext
- Wend
- End Sub
Aber wie kann ich da jetzt eine IF-Abfrage integrieren die nach den verschiedenen Absendern unterscheidet?
