Outlook InBox aufräumen

Forumthread: Outlook InBox aufräumen

28.06.2020 12:56:15

Albin

Hallo Zusammen
Ich komme einfach nicht weiter als Anfänger mit meinem Makro. Habe leider auch keine Beispiel, für meine Vorhaben im Netz gefunden.
Es geht darum, dass ich die InBox von Zeit zu Zeit aufräumen möchte. Das sollte das Makro durchführen.
1. Es sollte egal sein, ob die Mails gelesen oder ungelesen sind.
2. Das Makro sollte alle Mails in der Inbox durchlaufen.
3. Wenn es nun, keinen Unterordner mit der Absender - Mailadresse gibt, dann einem Ordner mit dem Absender - Mailadresse neu erstellen.
4. Dann das Mail, in diesen neuen Ordner, von der Inbox dort rein verschieben.
5. Wenn es denn Ordner bereits gibt, einfach das Mail in den Ordner verschieben.
Das Marko würde ich je nach Bedarf von Hand starten, also keine NewMail Funktion.
Ich würde mich freuen, wenn jemand mir helfen könnte, auch wenn es hier um Outlook geht.
Ich danke Euch im Voraus.
LG
Albin

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Outlook InBox aufräumen

28.06.2020 12:58:44

Albin
Es gibt spezialisierte Outlook-Foren! (owT)

28.06.2020 15:31:13

EtoPHG
AW: Es gibt spezialisierte Outlook-Foren! (owT)

28.06.2020 18:28:51

Albin
dann kann das zu (owT)

28.06.2020 20:36:08

ralf_b

AW: Outlook InBox aufräumen

28.06.2020 12:58:44

Albin

Habe da nach meine Versuch, bei dem ich nicht weiter kommen.

Sub AddContactsFolder()
Dim myNameSpace As Outlook.NameSpace
Dim myFolder As Outlook.folder
Dim myNewFolder As Outlook.folder
Dim mpfInbox As Outlook.folder
Dim obj As Outlook.MailItem
Dim i As Integer
Set mpfInbox = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
For i = 1 To mpfInbox.Items.Count
If mpfInbox.Items(i).Class = olMail Then
Set obj = mpfInbox.Items.item(i)
If obj.SenderEmailAddress = "someone@dddd.com" Then
'obj.FlagIcon = olYellowFlagIcon
'obj.Save
Else
Set myNameSpace = Application.GetNamespace("MAPI")
Set myFolder = myNameSpace.GetDefaultFolder(olFolderInbox)
Set myNewFolder = myFolder.Folders.Add("SenderEmailAddress")
End If
End If
Next
End Sub

Es gibt spezialisierte Outlook-Foren! (owT)

28.06.2020 15:31:13

EtoPHG

AW: Es gibt spezialisierte Outlook-Foren! (owT)

28.06.2020 18:28:51

Albin

Hoi EtoPHG
Danke für die Info, werde mich dort melden.
Schöns Weekend.
Albin

dann kann das zu (owT)

28.06.2020 20:36:08

ralf_b

Beliebteste Forumthreads (12 Monate)

Forumthread: Outlook InBox aufräumen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread