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 Sub

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.

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.

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

Hi Diane,
Do you have any suggestions around how to handle the scenario where you want to loop through each object in a selection if one or more items are selected but otherwise loop through each object in the folder if no items are selected? Is there any way to do something along the lines of this pseudocode:

Public Sub DoSomething()
'Dim stuff
'Set stuff
If Selection.Count > 0 Then
objItems = Selection
Else
objItems = objFolder.Items
End If
For Each obj in objItems
'do whatever
Next
End Sub

Thanks!

Hi Diane,
I have an issue, I am hoping perhaps you or someone here can provide insight.
For a selected email, I assign user defined category from combobox and move the email to a folder. It works fine with emails in my Inbox.

When I do the same for emails in shared inbox, it simply moves it without assigning category. And there is no error message.

Any help appreciated.

Thank you

Hi Diane,

Thank you for this tutorial, we use it to send all drafts in draft folder using a specific email address (SentOnBehalfOfName).

However, the macro will only send half of the drafts in the folder, do you know if there's a fix for this?

thank you very much.

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

.SentOnBehalfOfName = "XXX@gmail.com"
.Send

End With

Next

Set obj = Nothing
Set objItems = Nothing
Set objFolder = Nothing
Set objOL = Nothing

End Sub

I changed it for a specific folder.
Then i get a error:
Fout -2147221233 (8004010f) tijdens uitvoering
De bewerking is mislukt. Kan een object niet vinden
Why? And how to solve it?