Email Read and Delete

Not open for further replies.
Outlook version
Outlook 2010 32 bit
Email Account
Hello. I found most of this attached VB code at Mark as read on delete in Outlook?. It was posted by x3ja/Alex (not sure how to give proper attribution here). The comments and the Elseif code are mine. I attached the whole thing to a button on the ribbon. It's purpose is to make deleting emails easier, using a single button instead of 2 moves of the mouse to mark read and delete an email.

Now, this worked just fine with WIN 7 Home 64-bit and Office 2010 32-bit. I have just moved to a new machine with WIN 10 Home 64-bit with the same Office 2010 32-bit.
The macro "works" with a slight difference. For each intended email, 2 iterations of the macro is needed. Tracing it I find that the 2 .Delete methods are NOT effective even though the trace shows the lines executed. For either email object type 2 passes of the entire macro are needed to cause the deletion.
Obviously my question is HUH? What is going on here. All help is appreciated. Sorry, NEVER MIND!!
Well before I sent this I decided to uninstall SPAMBAYES which is open source spam filter software I like. So I uninstalled it and the macro is just fine - only 1 interation to see the intended email go bye-bye. Curious, SPAMBAYES didn't interfere on the Win 7 machine.
So this is a non-problem now. I you want to use the code, feel free.


  • Mark Read and Delete.txt
    905 bytes · Views: 222
Outlook version
Outlook 2010 32 bit
Email Account
Hi Diane. Until you wrote your note to me I didn't know anything about conversation view. So I found it, realized I didn't use it before, then checked the little radio button, then unchecked it to remain as I was before, then closed Outlook. So the odd macro behavior "seems" to be unrelated to conversation view. A few hours later I reinstalled Spambayes. Since then all is working as desired. I can get back to you in a few days with a status, if you like.

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
Thanks for the update. It's possible that all you needed to do was reinstall spambayes. It's not the first time that reinstalling fixed an integration problem.
Outlook version
Outlook 2010 32 bit
Email Account
OOPs, I promised a final update but haven't done it. Everything with SpamBayes and Win 10 (64 bit) and Outlook 2010 (32 bit) is perfect. Is there a need to close this ticket?
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
M How can I determine which user read an email Exchange Server Administration 4
K cant read email or open attachement Using Outlook 0
Mary B VBscript: Need to copy every email to a folder & mark that copy as read Outlook VBA and Custom Forms 5
Mary B Outlook 2013: Rule for copying new email to folder & marking that copy as read Using Outlook 1
M How do I mark emails already received as read when I get a second, different email based on subject? Outlook VBA and Custom Forms 3
T Saving Outlook 2010 email with attachments but read the email without Outlook Using Outlook 2
M Oh please read---> Extracting email web leads on to excel spread sheet Using Outlook 3
B Move Sent Email to archival pst folder and mark as read - HOW TO Outlook VBA and Custom Forms 2
B Mark copy of sent email as read - VBA? Outlook VBA and Custom Forms 3
V move read email based on date and sender Outlook VBA and Custom Forms 6
M Another way to detect if email read? Outlook VBA and Custom Forms 6
T Some way to capture who marks an email as read Outlook VBA and Custom Forms 1
C Outlook 2007 Removing then adding account restores junk email processing Using Outlook 0
G Place jpg in body of email Outlook VBA and Custom Forms 1
F Wishlist Outlook suddenly began synchronizing deleted items every time I delete a single email. Using Outlook 2
N Save Selected Email Message as .msg File Outlook VBA and Custom Forms 12
HarvMan Toggle between calendar and email in Outlook 365 Using Outlook 7
F Email being marked as Spam by Gmail and not being visible in Outlook Using Outlook 5
G Email time stamp Using Outlook 2
G Schedule recurring email and attachments display Outlook VBA and Custom Forms 3
G Save and Rename Outlook Email Attachments Outlook VBA and Custom Forms 0
B Need to Copy an email to a subfolder Outlook VBA and Custom Forms 2
M How to setup outlook after importing old account information - Entering email account info creates with "(1)" after the account! Using Outlook 1
K Multiple Rules on Single Email Using Outlook 2
F VBA to move email from Non Default folder to Sub folders as per details given in excel file Outlook VBA and Custom Forms 11
e_a_g_l_e_p_i Outlook 2010 How to set default email address for website links Using Outlook 3
O Same email address, same person, names in so many ways Using Outlook 4
D Create new email from the received Email Body with attachment Outlook VBA and Custom Forms 10
D Outlook launch email showing new unread email in reading pane Using Outlook 11
B Zoom automatically next email item (VBA) Outlook VBA and Custom Forms 2
K Outlook adds space to rows in HTML email signatures viewed on mobile Using Outlook 1
M HTML email signature in Outlook Using Outlook 3
M Respond to Outlook Email Outlook VBA and Custom Forms 0
U Outlook locking up when replying to Email Using Outlook 7
S Email Generated from another program and then edited sends original email. Using Outlook 2
G Forward email body to other mail list directly from Exchange server Exchange Server Administration 1
S Unable to extract text from an Outlook email message Using Outlook 2
T Original email text not shown when replying or forwarding the email. Using Outlook 6
H Search Email Header for Content Type Outlook VBA and Custom Forms 1
A VBA Script - Print Date between first email in Category X and last email in Category Y Outlook VBA and Custom Forms 3
R Problem moving file “Email folders.pst” to new PC Using Outlook 5
P Sending email from outlook IMAP to GMAIL where embedded images are added as attachment Using Outlook 1
D auto forward base on email address in body email Outlook VBA and Custom Forms 0
P How did hacker cause link to delete and archive containing email? Using Outlook 6
I 'quote marks' around email name Using Outlook 1
N contact list seen in Contact folder but knot in Address book or when 'TO' button is clicked in new email Using Outlook 0
T Junk Email does not get added to the Blocked Sender List Using Outlook 0
P i-Phone 6s Plus receiving 2 notifications from Outlook email Using Outlook 1
T Why is every new email pinned (to keep it on top)? Windows 10 Using Outlook 6

Similar threads