So, hallo erstmal hier im Forum.
Habe mich angemeldet, da im "normalen" Computer-forum keine Antworten gekommen sind, denke aber für euch hier ein "klacks"
Zunächst folgendes:
Ich bekomme Täglich ca 50 Emails meines "Auto-forums"
in der Form (Betreffzeile):
Benachrichtigung bei Antworten - THEMA 1
Also habe ich mir ein VB Script (Mein erstes, dauerte nun 3 Stunden, bitte net meckern, wenns net perfekt ist)
geschrieben, dass den "Header" aufspaltet und sozusagen mit dem Betreff nach dem "-" einen Ordner erstellt, oder einfach nur die email in selbigen Verschiebt.
Klappt auch soweit.
Das eig. Problem ist:
Ich möchte, dass das "Makro" automatisch ausgeführt wird, bei jeder email vom Forum, also ich es nicht manuell starten muss.
Bei den Nachrichtenregeln kann ich zwar scripts angeben, aber eben das makro nicht.....
hat jemand ne idee, bzw. muss ich das "Makro" noch als "Script" speichern ?!
hier mal der Code - falls das was hilft.
hmm, also der Code Funktioniert, allerdings steht das alles unter einem "Modul".
Brauche ich - um das anders aufzurufen, noch ne Form oder sowas ? (ich will ja kein Fenster haben, er solls einfach machen)
Habe mich angemeldet, da im "normalen" Computer-forum keine Antworten gekommen sind, denke aber für euch hier ein "klacks"
Zunächst folgendes:
Ich bekomme Täglich ca 50 Emails meines "Auto-forums"
in der Form (Betreffzeile):
Benachrichtigung bei Antworten - THEMA 1
Also habe ich mir ein VB Script (Mein erstes, dauerte nun 3 Stunden, bitte net meckern, wenns net perfekt ist)
geschrieben, dass den "Header" aufspaltet und sozusagen mit dem Betreff nach dem "-" einen Ordner erstellt, oder einfach nur die email in selbigen Verschiebt.
Klappt auch soweit.
Das eig. Problem ist:
Ich möchte, dass das "Makro" automatisch ausgeführt wird, bei jeder email vom Forum, also ich es nicht manuell starten muss.
Bei den Nachrichtenregeln kann ich zwar scripts angeben, aber eben das makro nicht.....
hat jemand ne idee, bzw. muss ich das "Makro" noch als "Script" speichern ?!
hier mal der Code - falls das was hilft.
Quellcode
- Private Sub ordnen()
- ' Betreff aufteilen & nach dem "-" trennen
- Dim s As String
- Dim v As Variant
- ' s = "Das ist ein - kleiner Test"
- s = Application.ActiveExplorer.Selection(1)
- v = Split(s, "- ", 2) ' 2, damit alle weiteren "-" erhalten bleiben
- ' Echo zum Test
- ' MsgBox v(1)
- ' Ordner erstellen
- ' Variablen deklarieren
- Dim myOlApp As New Outlook.Application
- Dim myNameSpace As NameSpace
- Dim myFolder As MAPIFolder
- Dim myNewFolder As MAPIFolder
- Dim myPath As MAPIFolder
- ' Variablen füllen
- Set myNameSpace = myOlApp.GetNamespace("MAPI")
- Set myFolder = myNameSpace.GetDefaultFolder(olFolderInbox)
- Set myPath = myFolder.Folders.Item("Mailer").Folders.Item("e87")
- On Error GoTo move_object ' Ordner vorhanden > weiter gehts!
- Set myNewFolder = myPath.Folders.Add(v(1))
- move_object:
- ' Nachricht verschieben
- ' Variablen deklarieren
- Dim objMail As Outlook.MailItem
- ' Variablen füllen
- Set objMail = Application.ActiveExplorer.Selection(1)
- ' eigentliche verschiebung
- objMail.Move myPath.Folders.Item(v(1))
- ' Variablen wieder löschen
- Set myNewFolder = Nothing
- Set myFolder = Nothing
- Set myNameSpace = Nothing
- Set myOlApp = Nothing
- Set objMail = Nothing
- End Sub
hmm, also der Code Funktioniert, allerdings steht das alles unter einem "Modul".
Brauche ich - um das anders aufzurufen, noch ne Form oder sowas ? (ich will ja kein Fenster haben, er solls einfach machen)
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „dognose“ ()