|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
 Outlook Mail nach Lesen in Ordner verschieben |
28.01.2016 15:00:02 |
Gast_today |
|
|
|
28.01.2016 15:01:31 |
Gast_today |
|
|
|
28.01.2016 17:22:08 |
Gast58355 |
|
|
|
28.01.2016 17:22:08 |
Gast99139 |
|
|
|
28.01.2016 17:31:53 |
Gast39565 |
|
|
|
28.01.2016 18:04:50 |
Gast70528 |
|
|
|
28.01.2016 19:07:05 |
Gast86011 |
|
|
|
29.01.2016 09:05:01 |
Gast_Today |
|
|
Von:
Gast_today |
Datum:
28.01.2016 15:00:02 |
Views:
1542 |
Rating:
|
Antwort:
|
Thema:
Outlook Mail nach Lesen in Ordner verschieben |
|
Hallo zusammen,
ich check es einfach nicht.
Mein schönes Programm fragt nach dem Öffnen einer ungelesenen Mail in einem bestimmten Posteingang (SAPHR), in welchen Ordner diese Mail verschoben werden soll. Macht auch alles schon brav, aber wenn ich dem zu verschiebenden Mail wieder die Eigenschaft ungelesen verpasse (case 2 oder 3), dann durchläuft er wieder das Programm und dass soll er nicht.
Gruß Matthias
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
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
Outlook Mail nach Lesen in Ordner verschieben |
28.01.2016 15:00:02 |
Gast_today |
|
|
|
28.01.2016 15:01:31 |
Gast_today |
|
|
|
28.01.2016 17:22:08 |
Gast58355 |
|
|
|
28.01.2016 17:22:08 |
Gast99139 |
|
|
|
28.01.2016 17:31:53 |
Gast39565 |
|
|
|
28.01.2016 18:04:50 |
Gast70528 |
|
|
|
28.01.2016 19:07:05 |
Gast86011 |
|
|
|
29.01.2016 09:05:01 |
Gast_Today |
|
|