2
VBA Outlook Mails auslesen
Hallo Gemeinschaft,
vwerwende folgendes script für da Verarbeiten von Emails, die in einen bestimmten Ordner gelangen - gibt es eine Möglichkeit, dass ich zwei Ordner überwache?
vwerwende folgendes script für da Verarbeiten von Emails, die in einen bestimmten Ordner gelangen - gibt es eine Möglichkeit, dass ich zwei Ordner überwache?
Sub Application_NewMailEx(ByVal EntryIDCollection As String)
'On Error Resume Next
Dim myFolder As Outlook.MAPIFolder
Dim myNameSpace As Outlook.NameSpace
Dim OLApp As New Outlook.Application
Dim msg As Outlook.MailItem
Set myNameSpace = Application.GetNamespace("MAPI")
Set myFolder = myNameSpace.GetDefaultFolder(olFolderInbox).Folders("Booking")
Set Application.ActiveExplorer.CurrentFolder = myFolder
Application.GetNamespace("MAPI").GetDefaultFolder (olFolderInbox)
For Each msg In myFolder.Items
If msg.UnRead Then
.....
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 7889449487
Url: https://administrator.de/contentid/7889449487
Printed on: May 1, 2024 at 23:05 o'clock
2 Comments
Latest comment
Dein Fragenkontingent ist für diese Woche schon aufgebraucht, komm Freitag wieder.
Outlook newMailex oder NewMail?
Zeppel.
Application_NewMailEx(ByVal EntryIDCollection As String)
Das erfasst eh schon alles was rein kommt ... RTFMOutlook newMailex oder NewMail?
Zeppel.
2
Hallo zeppel - wie würdest du es machen, wenn dieses script nur emails bearbeitet, die im Ordner booking landen
Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
Dim varEntryIDs
Dim objItem As Object, strBody As String
Dim i As Integer
'mein Versuch um nur den Ordner booking zu überwachen
Set myNameSpace = Application.GetNamespace("MAPI")
Set myFolder = myNameSpace.GetDefaultFolder(olFolderInbox).Folders("Booking")
Set Application.ActiveExplorer.CurrentFolder = myFolder
Application.GetNamespace("MAPI").GetDefaultFolder (olFolderInbox)
varEntryIDs = Split(EntryIDCollection, ",")
Set regex = CreateObject("vbscript.regexp")
regex.IgnoreCase = True
For i = 0 To UBound(varEntryIDs)
Set objItem = Application.Session.GetItemFromID(varEntryIDs(i))
If objItem.Class = olMail Then
Select Case objItem.BodyFormat
Case olFormatHTML
strBody = objItem.HTMLBody
Case olFormatRichText
strBody = objItem.RTFBody
Case Else
strBody = objItem.Body
End Select
regex.Pattern = "Bugs Bunny"
If regex.Test(strBody) Then
' Successful match
objItem.Categories = "Disney"
objItem.Save
Else
' Match attempt failed
End If
End If
Next
Set regex = Nothing
End Sub
