Copying messages from one folder to another
Posted on 2007-11-19
I need some code to copy any email messages that I have highlighted to a specific folder. I can find many code snippets for moving messages, but I don't want to move them I want to copy them. I found this code from BlueDevil:
Sub CopyMessages(strFolder As String)
Dim olkItem As Object, _
olkFolder As Outlook.MAPIFolder
Set olkFolder = OpenMAPIFolder(strFolder)
If TypeName(olkFolder) = "MAPIFolder" Then
For Each olkItem In Application.ActiveExplorer.Selection
olkItem.UnRead = False
Set olkFolder = Nothing
Set olkItem = Nothing
It seems as though this may be what I need except where it says "olkItem.Move olkFolder" I need the command for copying.
This is my first foray into vba for outlook. Yikes!