kkqq1122
New Member
- Outlook version
- Outlook 365 64 bit
- Email Account
- Office 365 Exchange
What do I need to add to search for all below but add attachment name?
Private Sub objInboxItems_ItemAdd(ByVal Item As Object)
Dim objForward As Outlook.MailItem
'see if it is running
msgbox item.subject
If TypeOf Item Is MailItem Then
If (item.SenderEmailAddress = "sender@test.com") And (item.Subject = "Test") Then
Private Sub objInboxItems_ItemAdd(ByVal Item As Object)
Dim objForward As Outlook.MailItem
'see if it is running
msgbox item.subject
If TypeOf Item Is MailItem Then
If (item.SenderEmailAddress = "sender@test.com") And (item.Subject = "Test") Then