How to search for a string in the body of Outlook emails?
How to search for a string in Outlook emails using VBA?
How to find a string in Outlook email body using VBA?
Outlook VBA code below searches a string on the email body and move the email to a specified folder.
Replace variables below with the actual folders and string to search in Outlook:
Destination_Folder_01
Folder_to_be_Searched
string to be searched
Folder_to_be_Searched - all emails in this folder will be searched and if the string matches the will be moved automatically to the destination folder.
Code works in Office 365.
Till next time..Cheers!
How to search for a string in Outlook emails using VBA?
How to find a string in Outlook email body using VBA?
Outlook VBA code below searches a string on the email body and move the email to a specified folder.
Replace variables below with the actual folders and string to search in Outlook:
Destination_Folder_01
Folder_to_be_Searched
string to be searched
Folder_to_be_Searched - all emails in this folder will be searched and if the string matches the will be moved automatically to the destination folder.
string to be searched - this string will match on the body of the emails
Sub MailItemContent_Move_Search()
Dim olItem As Outlook.MailItem
Dim sText As String
Dim myNameSpace As Outlook.NameSpace
Dim myInbox As Outlook.MAPIFolder
Dim myDestFolder2 As Outlook.MAPIFolder
Dim mySearchFolder As Outlook.MAPIFolder
Set myNameSpace = Application.GetNamespace("MAPI")
Set myInbox = myNameSpace.GetDefaultFolder(olFolderInbox)
‘Replace Destination_Folder_01 with the actual folder
name in Outlook
Set myDestFolder2 = myInbox.Folders("Destination_Folder_01")
‘Replace Folder_to_be_Searched
with the folder name in Outlook
‘in which a string
will be searched
Set mySearchFolder = myInbox.Folders("Folder_to_be_Searched")
For Each MailItem In mySearchFolder.Items
Set olItem = MailItem
sText = olItem.Body
'MsgBox sText (for
testing purposes)
‘Replace string to be searched
with the string that needs to be found on
‘the body of the emails
If InStr(sText, "string to be
searched") Then
olItem.Move
myDestFolder2
End If
Next
End Sub
Code works in Office 365.
Till next time..Cheers!
================================
Free Android Apps:
Click links below to find out more:
Excel Keyboard guide:
Heaven's Dew Fall Prayer app for Android :
Catholic Rosary Guide for Android:
Pray the Rosary every day, countless blessings will be showered upon your life if you recite the Rosary faithfully.
https://play.google.com/store/apps/details?id=com.myrosaryapp
https://play.google.com/store/apps/details?id=com.myrosaryapp
Comments
Post a Comment