Public WithEvents Items As Outlook.Items
Private Sub Application_Startup()
Set Items = Application.GetNamespace("MAPI").Folders.Item("SAPHR").Folders.Item("Posteingang").Items
End Sub
Private Sub Items_ItemChange(ByVal Item As Object)
Dim Mail As Outlook.MailItem
Dim Zielordner As Outlook.MAPIFolder
Dim Msg, Style, Title, Help, Ctxt, Response, MyString, Antwort
If TypeOf Item Is Outlook.MailItem Then
Set Mail = Item
If Mail.UnRead = False Then
Antwort = InputBox("1 @Kollege (gelesen) verschieben" & Chr(10) & "2 @Kollege (ungelesen) verschieben" & Chr(10) & "3 @ich selsbt (ungelesen) verschieben", "Nächste Aktion")
Select Case Antwort
Case 1
Set Zielordner = Application.GetNamespace("MAPI").Folders.Item("SAPHR").Folders.Item("Posteingang").Folders.Item("@Kollege")
Mail.Move Zielordner
Case 2
Set Zielordner = Application.GetNamespace("MAPI").Folders.Item("SAPHR").Folders.Item("Posteingang").Folders.Item("@Kollege")
Mail.UnRead = True
Mail.Save
Mail.Move Zielordner
Case 3
Set Zielordner = Application.GetNamespace("MAPI").Folders.Item("SAPHR").Folders.Item("Posteingang").Folders.Item("@ich")
Mail.UnRead = True
Mail.Save
Mail.Move Zielordner
End Select
End If
End If
End Sub