Hallo Experten,
wir haben mehrere zentrale ORDNER für verschiedene Personen, in die jeder im Haus E-Mails VERSCHIEBEN kann!
Ist es möglich, daß ich benachrichtigt werde, wenn jemand eine Mail in den zentralen Ordner für mich VERSCHIEBT?
Oder, daß diese Verschobene Mail als Kopie in meinem Posteingang landet?
Regelassistent hab ich probiert, tut aber nicht! Liegt wohl auch daran, daß verschoben wird und nicht zugesendet!
Vielen Dank,
Rudolf
Hallo Experten,
Hallo Rudolf!
wir haben mehrere zentrale ORDNER für verschiedene Personen,
in die jeder im Haus E-Mails VERSCHIEBEN kann!
?? Mehrere PC’s oder einer?
Ist es möglich, daß ich benachrichtigt werde, wenn jemand eine
Mail in den zentralen Ordner für mich VERSCHIEBT?
nein, nicht bei „verschieben“!
Oder, daß diese Verschobene Mail als Kopie in meinem
Posteingang landet?
auch nein!
Regelassistent hab ich probiert, tut aber nicht! Liegt wohl
auch daran, daß verschoben wird und nicht zugesendet!
Du sagst es! Probiert es doch mit weiterleiten , dann funktioniert erstens die Benachrichtigung (s.u.) und zweitens kann der Weiterleitende seine Aktion u.U. auch automatisieren!
Beispiel (Outlook 2003):
Funktioniert bei mir jedenfalls einwandfrei!
Vielen Dank,
Rudolf
Bitte!
Oliver
Hallo Oliver,
vielen Dank!
Ich hab befürchtet, daß es nicht geht!
)))
Gruß,
Rudolf
Hallo Rudolf,
vielleicht kann dir VBA hier weiterhelfen. Dieser Ansatz ist eigentlich gedacht für gesendete Mails zu funktionieren, es scheint aber auch mit dem Verschieben zu klappen.
Gehe in den VBA-Editor und dort in „Diese Outlooksitzung“
Füge dort den folgenden Code ein:
Option Explicit
Private Fold1 As Outlook.MAPIFolder
Private WithEvents colItems1 As Outlook.Items
Private Sub Application_Startup()
'Hier muss der richtige Name des Postfaches rein
Set Fold1 = Application.GetNamespace(„MAPI“).Folders(„Ordner archivieren“).Folders(„Mein Ordner“)
Set colItems1 = Fold1.Items
End Sub
Private Sub colItems1_ItemAdd(ByVal Item As Object)
MsgBox "Neue Mail von " & Item.SenderName & " in " & Fold1.Parent.Name
End Sub
Nun musst du noch den Code anpassen und in der Zeile set Fold1 die passenden Postfachbezeichnungen einfügen. Die müssen ab der obersten Ebene den Eintragungen in der Outlook Ordnerliste entsprechen. Also nicht einfach nur Posteingang sondern z.B. „Postfach - xy“ und dann „Posteingang“. Solltest du mehr Ebenen brauchen, einfach ein .Folders(„Name“) anhängen.
Gruß
Daniel