These two samples contains the basic code for working with all items in a selected folder or selected items in a folder. The code sample prints the item subject in the Immediate window (Ctrl+6).
Because the code uses generic objects instead of specific objects, it will work with all item types.
Work with all items in any folder
Option Explicit
Public Sub DoSomethingFolder()
Dim objOL As Outlook.Application
Dim objItems As Outlook.Items
Dim objFolder As Outlook.MAPIFolder
Dim obj As Object
Set objOL = Outlook.Application
Set objFolder = objOL.ActiveExplorer.CurrentFolder
Set objItems = objFolder.Items
For Each obj In objItems
With obj
' do whatever
Debug.Print .Subject
End With
Next
Set obj = Nothing
Set objItems = Nothing
Set objFolder = Nothing
Set objOL = Nothing
End SubTo work with all items in a specific folder, replace
Set objFolder = objOL.ActiveExplorer.CurrentFolder
with GetDefaultFolder and locate the folder (if it's not a default folder).
Set objFolder = Ns.GetDefaultFolder(olFolderCalendar)
Set objFolder = Ns.GetDefaultFolder(olFolderCalendar).Folders("Subfolder")
You'll also need to add these two lines to the macro - Dim Ns should be the first Dim statement, and Set Ns needs to be the first Set statement.
Dim Ns As Outlook.NameSpace
Set Ns = Application.GetNamespace("MAPI")
See VBA and non-default Outlook Folders for more information.
Work with Selected items in any folder
Option Explicit
Public Sub DoSomethingSelection()
Dim objOL As Outlook.Application
Dim currentExplorer As Explorer
Dim Selection As Selection
Dim obj As Object
Set objOL = Outlook.Application
Set currentExplorer = objOL.ActiveExplorer
Set Selection = currentExplorer.Selection
For Each obj In Selection
With obj
' do whatever
Debug.Print .Subject
End With
Next
Set Session = Nothing
Set currentExplorer = Nothing
Set obj = Nothing
Set Selection = Nothing
End Sub
Dear Diane,
Thanks a lot for coding samples you provide to us. I have learnt from you a lot and you’ve saved a lot of my time.
Now, I have a problem with your DoSomethingSelection Sub. I apply the "For Each obj In Selection" loop to move each mail selected in my default inbox folder to other folders and it works great as long as the macro processes incoming "ordinary" mails. However, the whole procedure stucks when a message to be processed is a delivery confirmation item. The system displays error message that reads: "Runtime-error: 13. Type mismatch". I am using Outlook 2010 64-bit in Windows 2010 64-bit.
I have tried to find an "inspiration" in queries by other users, but to no effect. I do appologize I my problem has been already solved on this website.
I will greatly appreaciate your advice.
Best regards
Marek
The macros above should work on any item.
The macro sample at the end of this article - Use a Macro to Move Aged Email in Outlook (slipstick.com) - shows how to check for different item types.
You can use something like
If obj.Class = olReport Then
' skip it, use a different field etc
End if
Thanks a lot for your reply. I will give it a try and if there is no further feedback from me, then assume, your advice has solved my problem.
Best regards
Hi
could i using restrict method for activeExplorer.selection.
thinks.
Diane, good morning
hopefully you can help me, i'm very new to vba outlook, and probably what i'm looking for is already published somewhere, but i cannot find.
I'm looking for a vba code that simply adds a follow up flag and reminder to an email i send if it contains in the body of message a specific phrase.
Your help would be highly appreciated.
Best regards
Ivan
Hi Diane,
I have earlier designed a macro to send emails by attaching files and send to specific emails.
Is it possible to send another reminder email by using Outlook vba if the recipient never replies to my 1st email?
Diane,
I have this code that runs when i close outlook, it moves all of my deleted messages to a file. It stopped working with a type mismatch error on this line "et objTrash = Outlook.Application.Session.GetDefaultFolder(olFolderDeletedItems).Items"
Can you please help?
Thank you,
Jim
Sub MoveDeletedItems() 'Move messages from "Deleted" to "Deleted Items Archive" personal folder. Dim objFolder As Outlook.MAPIFolder Set objFolder = Outlook.Application.GetNamespace("MAPI").folders("2020_Deleted_Folder") '.Folders("Deleted Items") Dim objTrash As Outlook.Items Set objTrash = Outlook.Application.Session.GetDefaultFolder(olFolderDeletedItems).Items Dim objDrafts As Outlook.Items Dim objItem As Object Dim objDraftItem As Object Dim varMsgID As String Dim varLoopCounter, x As Integer varLoopCounter = objTrash.count For x = 1 To varLoopCounter Set objTrash = Outlook.Application.Session.GetDefaultFolder(olFolderDeletedItems).Items For Each objItem In objTrash Debug.Print "Moving Item: " & objItem.Subject & " - " & objItem.Class objItem.Move objFolder 'varLoopCounter = varLoopCounter + 1 Exit For Next Next x 'Cleanup Set objItem = Nothing Set objDraftItem = Nothing Set objFolder = Nothing Set objDrafts = Nothing Set objTrash = Nothing 'Set objInbox = Nothing 'Set objNS = Nothing 'End Cleanup End Subit quit following an update? Try using
Application.Session.GetDefaultFolder(olFolderDeletedItems).Items
I've had issues with some code failing after updates and simple tweaks that really changed nothing fixed them.
Is there any documentation as to what type of items could exist in a mail folder? Or, at least, that any such items must share some common properties e.g. Categories. For example, MailItem, MeetingItem and ReportItem all have a Subject property, but if your For-Each hits some other type of item that doesn't have it then Debug.Print would throw an error.
I'm not aware of any specific documentation that lists it - there is documentation that lists the fields for each item type.
These links are for an older version but still apply to current versions.
for example, mailitem and reportitem is here:
https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2003/aa210946(v=office.11)
https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2003/aa211038(v=office.11)
Hello, was linked here from: https://www.slipstick.com/developer/code-samples/macro-resend-message/?fbclid=IwAR29t9kfQrcG922CkbgQN9m77XVPUBsOc8yKsylxHwN7CTfgUel4cql08OY
I used the following code to resend selected messages and discard the original on Outlook 2010, but it doesn't work correctly on 2016:
Sub BatchResendEmails()
Dim objSelection As Outlook.Selection
Dim objMail As Outlook.MailItem
Dim objInspector As Outlook.Inspector
Dim objResendMail As Outlook.MailItem
Set objSelection = Application.ActiveExplorer.Selection
If Not (objSelection Is Nothing) Then
On Error Resume Next
For Each objMail In objSelection
objMail.Display
Set objInspector = myItem.GetInspector
'Resend message
objInspector.CommandBars.ExecuteMso ("ResendThisMessage")
Set objResendMail = Application.ActiveInspector.CurrentItem
'You can change the email details as per your needs
With objResendMail
.Subject = "" + objMail.Subject
.Send
End With
objMail.Close olDiscard
Next
End If
End Sub
I have a rule to add a category to emails sent with specific text in the subject.
I then filter my sent items for that category, and use the above macro to select emails from the day before and resend them.
As mentioned this above macro doesn't work as intended on outlook 2016, and hoping for help, as I'm not personally that will versed.
Do you receive any error messages? Do you have macro security set to low? The code should work in outlook 2016.
Hello, sorry for the delay I've been off work.
I don't get any error messages, and my macro settings are set to check per session if I want to use it. When I select emails to batch resend that don't have a category, they seem to go fine, but only with a small group. I sometimes need to batch resend about 60 tagged emails, and I will get the sent messages in my inbox, but no new email is produced in my sent items.
The macro is working here, but I only tested it with 3 messages. Is it only failing with a large # of resends?
Hello, it seems to fail with either large volume, or if I have a category set to the email.
Hello, might add, that I am also on windows 10.
My colleague uses the same macro with outlook 2016 but on windows 7.
Hello, sorry i thought I replied to this already. I do not get any error message and my security settings allow macro.
I have read receipts for my emails, they all come through to my inbox, but the emails are no where to be seen in the sent items.
Hi Diane,
Is there a way to assign the selected items or a selection any name or value, so Outlook remembers it and the same selection can be recalled if the outlook folder changes to another folder and back to the original one again?
I have tried using your above example of For Each obj In Selection and just a With Selection
commands, but neither seem to reselect the emails I had originally selected, once I go out of the folder and return to it again.
Thank you for your suggestions.
Reuben