Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1768to1772
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Outlook InBox aufräumen

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
Anzeige
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

Anzeige
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)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige