Inbox didn't got read

Status
Not open for further replies.
A

alvinoo

Member
Outlook version
Outlook 2019 64-bit
Email Account
Office 365 Exchange
Hi there,

Is there anything wrong with this code.
It seems that it only pick up the first two Orange Category and Flag For Follow up email.
3rd and 4th email didn't got picked up.

Sub FollowUpEmail() Dim objNS As Outlook.NameSpace, objFolder As Outlook.MAPIFolder, _ objResItem As Object, objMail As MailItem, objResendMail As MailItem, _ olFldrItms As Items Set objNS = GetNamespace("MAPI") Set objFolder = _ objNS.Folders.Item("xxxx").Folders("Inbox") ' folders of your current account Set olFldrItms = objFolder.Items Set objResItems = _ olFldrItms.Restrict("[Categories] = 'Orange category' and [FlagRequest] ='Follow Up'") For Each objMail In objResItems Set objResendMail = objMail.ReplyAll 'attachment is copied CopyAttachments objMail, objResendMail 'immediately shift to sent item when first sent in vba With objResendMail .HTMLBody = _ "Follow up request" & vbCrLf _ & objResendMail.HTMLBody '.Importance = olImportanceHigh .Categories = "Orange category" .FlagRequest = "Follow up" .Display End With With objMail 'flag items as complete and move to the sent items objMail.Categories = "" objMail.FlagStatus = olFlagComplete objMail.Save End With Next End Sub
 
Status
Not open for further replies.
< Export Folder to PST | Out of Office Improvement >
Similar threads
Thread starter Title Forum Replies Date
HarvMan Outlook 365 Inbox Font Using Outlook 8
M Start Outlook 365 at unified inbox Using Outlook 2
F Inbox moves on taskbar Using Outlook 1
F Outlook 365 Group INBOX by date but not by date and time Using Outlook 1
T Outlook 2010 Sub accounts not showing new emails in Inbox Using Outlook 4
F Color code certain INBOX emails Using Outlook 2
K vba code to auto download email into a specific folder in local hard disk as and when any new email arrives in Inbox/subfolder Outlook VBA and Custom Forms 0
J Outlook 365 Forward Email Subject to my inbox when new email arrive in shared inbox Using Outlook 0
P "Item could not be moved" message occurs frequently for IMAP inbox, Office 365 Using Outlook 0
D Gmail mail is being delivered to a different email inbox in Outlook App 2021 Using Outlook 2
S Format Inbox Using Outlook 0
J How to create a drop down user defined field that will appear on an inbox view Outlook VBA and Custom Forms 8
P Emails assigned with a certain category (within a shared inbox) to be copied to a specific folder. Outlook VBA and Custom Forms 2
O Moving "tasks" to inbox in Outlook 2016 Using Outlook 1
A Imap account not auto syncing inbox at startup Using Outlook 0
S Outlook 2016 dont delete inbox item Using Outlook 0
F Jump to Inbox folder when click on Favorite Using Outlook 8
R Moved 6 months worth (approx 1500 emails) lost from moving from TPG inbox to Icloud inbox (folders) Using Outlook 3
S Problem Checking the available stores in my Inbox (Outlook VBA) Outlook VBA and Custom Forms 0
S Outlook VBA How to adapt this code for using in a different Mail Inbox Outlook VBA and Custom Forms 0
A Unflag Inbox and Flag Inbox with Orange Category After Item is send Outlook VBA and Custom Forms 3
glnz O365 - How to combine the Inboxes for four email accounts into a single Inbox Using Outlook 7
S Macro to move “Re:” & “FWD:” email recieved the shared inbox to a subfolder in outlook Outlook VBA and Custom Forms 0
S Outlook Macro to send auto acknowledge mail only to new mails received to a specific shared inbox Outlook VBA and Custom Forms 0
G Inbox shows old email Using Outlook 3
C Configuring Inbox columns Using Outlook 2
D Inbox column color coding Using Outlook 2
R Outlook 2010 How do you export 2 email Accounts' 2010 Inbox Files to new computer (2019)? Using Outlook 0
J Collaborative Inbox Using Outlook 1
M Missing emails in Inbox, but are present in webmail Using Outlook 0
R List folders in a combo box + select folder + move emails from inbox to that folder + reply to that email Outlook VBA and Custom Forms 1
H Upon opening Outlook, make my popmail inbox open instead of outlook.com inbox Using Outlook 1
P Outlook Mobile App Doesn't Refresh Inbox Using Outlook 0
H In outlook 365 POP mail Inbox, email takes a long time or never arrives. Using Outlook 1
K No emails in inbox Using Outlook.com accounts in Outlook 1
D Unopened message in inbox deleted and not in deleted items Using Outlook 3
R Exporting recovered Deleted Items outside the Inbox Using Outlook 1
N Focussed Inbox Rules Failing Using Outlook 5
M Inbox not showing to deliver new email to this account Using Outlook 3
mctabish Setting "Reply To" based on inbox Outlook VBA and Custom Forms 2
T Inbox Sub-Folder - Web Using Outlook 1
P Two main Outlook gripes: Voting buttons not working externally nor Focused Inbox Using Outlook 1
P when i move inbox mails to another folder in outlook the mail disappears Using Outlook 1
B VBA Macro for assigning multiple Categories to an email in my Inbox Outlook VBA and Custom Forms 1
N Syncing my inbox not working for certain types of mail Using Outlook 9
D How to handle filing of emails from an Inbox Subfolder to a specific Public folder Using Outlook 1
E Outlook 2016 Inbox search bug Using Outlook 1
O Having rules run on old mails noved to inbox Outlook VBA and Custom Forms 8
K Outlook 2010 duplicate download emails 1 inbox 1 PST no updates Using Outlook 3
LolaArrabal My huge inbox folder Using Outlook 2

Similar threads

Back
Top