asked on
' 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 = "fredflintstone@xxxxxx.com"
olResendMsg.Send