I found the link below and the first code section works...it finds the email I need. I want to add to the code by 'Replying All' and adding the current workbook as an attachment.
I have tried to define the OutMail as an Outlook.MailItem so that I can access the properties of OutMail but when make that change and run it, I get a runtime error 13 Type Mismatch. Any suggestions?
Sub TestMailTool() ' Is working in Office 2000-2007 ' based on www.vbaexpress.com/forum/showthread.php?63392-search-and-send-email-from-outlook-using-macro-from-excel Dim OutApp As Object Dim OutNameSpace As Object Dim OutFolder As Object Dim OutItms As Object Dim OutMail As Outlook.MailItem 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, "Hello 12345") <> 0 Then OutMail.Display OutMail.replyall Body = "test reply" & vbCrLf & BR i = i + 1 End If Next OutMail End Sub