Hi Amanda!
This is Ryan4 from ExtendOffice. Thank you for sending your email address to help solve my issue, I intend to be an active member since discovering your fantastic community, so I hope to get my file upload issues resolved eventually!
For now, please see the attached file here. I did update the code to read “Exit Sub” instead of “End if,” however I still receive an error with no debug option. Can you advise? Perhaps it is my structure or indenting.
Thanks again for your assistance!
Ryan
Hi Ryan,
Email messaged received. Since there may be other users who have the same problem, I will reply here.
Please try the method below:
1. Open
Reference.
2. Check
Microsoft Outlook 16.0 Object Library.
Note: Instead of 16.0, you might have 15.0, 14.0, etc.
3. Replace the code below
Dim xOutApp As Object
Dim xOutMail As Object
to
Dim xOutApp As Outlook.Application
Dim xOutMail As Outlook.MailItem
Please try the above 3 steps. Since your vba works fine on our computer, so it's difficult for us to reproduct the problem. Hopefully this method would help you!
Amanda