We help IT Professionals succeed at work.
Get Started

trying to resend a message if text in the subject is found

Fordraiders
Fordraiders asked
on
123 Views
Last Modified: 2018-05-08
outlook 2010
access 2010  vba

vba in access 2010

I'm searching inside the "Inbox" on a certain namespace
if it finds the text in the subject,
I NEED TO RESEND THAT EMAIL MESSAGE

I get no errors but the emails are not sending.
I copied myself on the email, but i get no confirmation email ??




' 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

Open in new window



Thanks
fordraiders
Comment
Watch Question
CERTIFIED EXPERT
Distinguished Expert 2020
Commented:
This problem has been solved!
Unlock 1 Answer and 4 Comments.
See Answer
Why Experts Exchange?

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.

Jim Murphy
Programmer at Smart IT Solutions

When asked, what has been your best career decision?

Deciding to stick with EE.

Mohamed Asif
Technical Department Head

Being involved with EE helped me to grow personally and professionally.

Carl Webster
CTP, Sr Infrastructure Consultant
Ask ANY Question

Connect with Certified Experts to gain insight and support on specific technology challenges including:

  • Troubleshooting
  • Research
  • Professional Opinions
Did You Know?

We've partnered with two important charities to provide clean water and computer science education to those who need it most. READ MORE