Thema Datum  Von Nutzer Rating
Antwort
28.01.2016 15:00:02 Gast_today
NotSolved
28.01.2016 15:01:31 Gast_today
NotSolved
28.01.2016 17:22:08 Gast58355
NotSolved
Blau Outlook Mail nach Lesen in Ordner verschieben
 28.01.2016 17:22:08 Gast99139
NotSolved
28.01.2016 17:31:53 Gast39565
NotSolved
28.01.2016 18:04:50 Gast70528
NotSolved
28.01.2016 19:07:05 Gast86011
NotSolved
29.01.2016 09:05:01 Gast_Today
Solved

Ansicht des Beitrags:
Von:
Gast99139		 Datum:
28.01.2016 17:22:08		 Views:
1084		 Rating:
     
Antwort:
  Ja
Thema:
Outlook Mail nach Lesen in Ordner verschieben

Nach zulassen einiger Scripte ist über dem Eingabefeld die Zeile hier.

 

Und hier nochmal der Code von dir.

 

 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  'unread
 End If 'type of 'End If 'myfolder
 End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
28.01.2016 15:00:02 Gast_today
NotSolved
28.01.2016 15:01:31 Gast_today
NotSolved
28.01.2016 17:22:08 Gast58355
NotSolved
Blau Outlook Mail nach Lesen in Ordner verschieben
 28.01.2016 17:22:08 Gast99139
NotSolved
28.01.2016 17:31:53 Gast39565
NotSolved
28.01.2016 18:04:50 Gast70528
NotSolved
28.01.2016 19:07:05 Gast86011
NotSolved
29.01.2016 09:05:01 Gast_Today
Solved