Saravanan1981
New member
- Joined
- Jan 21, 2017
- Messages
- 1
- Reaction score
- 0
- Points
- 0
Hi,
I have below code to search a mail with specific subject in Outlook
But Below code searched mail only in Inbox. But I want to search mail in all folder and subfolder.
Also I wants to search latest email (sent or received) with specific subject and Wants to do rely all to the same message. Can any one revise the code accordingly?
I have below code to search a mail with specific subject in Outlook
But Below code searched mail only in Inbox. But I want to search mail in all folder and subfolder.
Also I wants to search latest email (sent or received) with specific subject and Wants to do rely all to the same message. Can any one revise the code accordingly?
Code:
Sub TestMailTool() ' Is working in Office 2000-2007
Dim OutApp As Object
Dim OutNameSpace As Object
Dim OutFolder As Object
Dim OutItms As Object
Dim OutMail As Object
Dim i As Integer
Dim mail
Dim replyall As Object
'Dim strbody As String
'Dim MyTasks As Object
'Dim sir() As String
'Dim myitems As Outlook.Items
'Dim myitem As Object
Set OutApp = CreateObject("Outlook.Application")
'Set OutMail = OutApp.CreateItem(0)
Set OutNameSpace = OutApp.GetNamespace("MAPI")
Set OutFolder = OutNameSpace.GetDefaultFolder(6)
Set OutItms = OutFolder.Items
i = 1
'Set MyTasks = OutFolder.Items
'Set myitems = myInbox.Items
For Each OutMail In OutFolder.Items
If InStr(OutMail.Subject, "Status of EB Proposal") <> 0 Then
OutMail.Display
OutMail.replyall
Body = "test reply" & vbCrLf & BR
i = i + 1
End If
Next OutMail
End Sub