Outlook Macro not working

tj302

New Member
Joined
Dec 17, 2022
Messages
1
Office Version
  1. 365
Platform
  1. Windows
I am trying to fix this macro, can someone help. I am trying to delete emails that have contain the work datascape inside attached PDF to the email.

Sub ReadEmailsAndDelete()

Dim myOlApp As Outlook.Application
Dim myNameSpace As Outlook.NameSpace
Dim myInbox As Outlook.MAPIFolder
Dim myItem As Object
Dim myAttachments As Outlook.Attachments

Set myOlApp = Outlook.Application
Set myNameSpace = myOlApp.GetNamespace("MAPI")
Set myInbox = myNameSpace.GetDefaultFolder(olFolderInbox)

For Each myItem In myInbox.Items
If myItem.Class = olMail Then
If myItem.Subject = "Payment Advice" Then
Set myAttachments = myItem.Attachments
For Each myAttachment In myAttachments
If Right(myAttachment.FileName, 4) = ".pdf" Then
' Open the PDF attachment and search for the keyword "Datascape"
Dim objFSO As Object
Set objFSO = CreateObject("Scripting.FileSystemObject")

Dim strText As String
strText = objFSO.OpenTextFile(myAttachment.Path).ReadAll
If InStr(strText, "Datascape") > 0 Then
myItem.Delete
End If
End If


End Sub
 

Excel Facts

How to fill five years of quarters?
Type 1Q-2023 in a cell. Grab the fill handle and drag down or right. After 4Q-2023, Excel will jump to 1Q-2024. Dash can be any character.

Forum statistics

Threads
1,223,249
Messages
6,171,031
Members
452,374
Latest member
keccles

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top