Code to move encrypted emails

[anthonyleg]

Hello guys,
I want to move encrypted emails. But I find that the "object. move" function does not work on ecrypted emails. All suggestion about the right code?

[Aussiebear]

Welcome to VBAX. This issue comes up regularly. What code have you been trying?

[gregbowers]

To move encrypted emails, use the Copy and Delete methods instead of Move. Here’s a quick code example:


Sub MoveEncryptedEmails()
Dim sourceFolder As Outlook.MAPIFolder
Dim targetFolder As Outlook.MAPIFolder
Dim item As Object
Set sourceFolder = Application.Session.GetDefaultFolder(olFolderInbox)
Set targetFolder = Application.Session.Folders("YourTargetFolder")
For Each item In sourceFolder.Items
If item.Class = olMail And item.PropertyAccessor.GetProperty("http://schemas.microsoft.com/ _
mapi/proptag/0x7D01001E") = "IPM.Note.SMIME.MultipartSigned" Then
item.Copy targetFolder
item.Delete
End If
Next
End Sub

Replace "YourTargetFolder" with your actual target folder name.

[Aussiebear]

I have no experience with Outlook vba, so if I ever saw this string ("http://schemas.microsoft.com/ _
mapi/proptag/0x7D01001E") = "IPM.Note.SMIME.MultipartSigned") used somewhere, does it indicate the email is definitely encrypted?