Just go ahead and click on the View button at the top. And off to the right click on close all items. And now we go. Also new to Outlook 2016 for Mac is support for delivery and read (opened) receipts when sending messages. Microsoft notes, though, that email recipients can choose to decline to send read receipts.
Office for Mere Mortals helps people around the world get more from Word, Excel, PowerPoint and Outlook. Delivered once a week. free.
We never share your email address with anyone - never have, never will. Privacy Policy.
Here is a procedure that will close all open Outlook email messages without saving – very handy if you have just created hundreds of emails testing email creation with the Emailing Order Lists to Customers database:
Public Function CloseAllEmailMessages()
On Error GoTo ErrorHandler
![Mac Mac](https://www.groovypost.com/wp-content/uploads/2012/02/save-messages.jpg)
Dim appOutlook As Outlook.Application
Dim ins As Outlook.Inspector
Dim lngCount As Long
Dim lngItem As Long
Set appOutlook = GetObject(, 'Outlook.Application')
'Close all open email messages, working backwards
'to prevent skipping any items
lngCount = appOutlook.Inspectors.Count
'Debug.Print 'No. of inspectors: ' & lngCount
For lngItem = lngCount To 1 Step -1
Set ins = appOutlook.Inspectors(lngItem)
'Debug.Print 'Item class: ' & ins.CurrentItem.Class
If ins.CurrentItem.Class = olMail Then
Set msg = ins.CurrentItem
![Microsoft Microsoft](/uploads/1/2/6/2/126270523/617749122.png)
'Debug.Print 'Item To: ' & msg.To
msg.Close olDiscard
End If
Next lngItem
ErrorHandlerExit:
Exit Function
ErrorHandler:
MsgBox 'Error No: ' & Err.Number _
& ' in CloseAllEmailMessages procedure; ' _
& 'Description: ' & Err.Description
Resume ErrorHandlerExit
End Function
You can run this procedure from a macro, using the RunCode macro action, as in the mcrCloseAllEmailMessages macro in the sample database.
Want More?
Office Watch has the latest news and tips about Microsoft Office.Independent since 1996. Delivered oncea week.
We never share your email address withanyone - never have, never will.Privacy Policy.