Absender und Betreff Text Prüfen Outlook
14.05.2018 18:04:26
Albin
Brache mal Hilfe, komme nicht weiter.
Ich möchte gerne ein Makro, dass wenn der Absender und der Betreff - Text im gleichen Mail passt, dass Mail in den gewünschten Ordner verschoben wird. Schön wäre es auch, wenn der Text im Betreff, nicht 100% stimmen müsste.
Da mal mein Ansatz. Leider bekomme ich immer bei SenderName, den Status "Nothing". Klar gibt es die Möglichkeit, unter Outlook mit dem Regel-Assistenten. Aber ich möchte das Marko in ein bestehendes Makro einbauen / erweitern.
Danke und Gruss
Sub MoveItems03()
Dim MyOLApp As New Outlook.Application
Dim myNameSpace As Outlook.NameSpace
Dim myInbox As Outlook.MAPIFolder
Dim myDestFolder As Outlook.MAPIFolder
Dim objMail_In As Outlook.MailItem
Dim myItems As Outlook.Items
Dim myItemsab As Outlook.Items
Dim myItem As Object
Dim myItemAB As Object
Set myNameSpace = MyOLApp.GetNamespace("MAPI")
Set myInbox = myNameSpace.Folders("Albin.xxxx@xxxx.com").Folders("Inbox")
Set myItems = myInbox.Items
Set myDestFolder = myNameSpace.Folders("Albin.xxxx@xxx-.com").Folders("Inbox").Folders("a") ' _
move nach
Set myItem = myItems.Find("[Subject] = 'Text1234'") 'Betreff Text
Set myItemAB = myItems.Find("[SenderName] = 'Albin.xxxxx@xxx.com'")
While TypeName(myItem) "Nothing" And TypeName(myItemAB) = hans.muster@gmail.com
MsgBox "beides gefunden"
myItem.Move myDestFolder
Set myItem = myItems.FindNext
Wend
End Sub
Anzeige