' trying for any mailbox under one profile here Set myNameSpace = myOlApp.GetNamespace("MAPI") Set myInbox = myNameSpace.Folders("bookprice") Set myInbox = myInbox.Folders("Inbox") Set myitems = myInbox.Items Found = False ' for this question purpose t = "Action Required - Pricing Escalation #4414" For Each myitem In myitems If myitem.Class = olMail Then ' If InStr(1, myitem.Subject, "Action Required - Pricing Escalation #4414") > 0 Then 'If InStr(1, myitem.Subject, "" & t & "") > 0 Then If myitem.Subject = t > 0 Then 'MsgBox "Found" ' Debug.Print "Found" Found = True ' run the resend command Set objInsp = myitem.GetInspector objInsp.CommandBars.ExecuteMso ("ResendThisMessage") ' get the opened compose message form & send it ' delete these lines if you don't need to auto-edit or to auto-send it Set olResendMsg = myitem 'ActiveInspector.CurrentItem 'Application.ActiveInspector.CurrentItem olResendMsg.Subject = "REMINDER: 2nd Request Please Respond : " & t & "" olResendMsg.BCC = "firstname.lastname@example.org" olResendMsg.Send
Experts Exchange always has the answer, or at the least points me in the correct direction! It is like having another employee that is extremely experienced.
When asked, what has been your best career decision?
Deciding to stick with EE.
Being involved with EE helped me to grow personally and professionally.
Connect with Certified Experts to gain insight and support on specific technology challenges including:
We've partnered with two important charities to provide clean water and computer science education to those who need it most. READ MORE