Changing SaveSentMessageFolder

[TexasKen]

I normally have my sent e-mail saved in the Sent Items folder. However, I often wish to save to my "FollowUp" folder in the Outlook folder list instead. I have a macro that assigns a Category to the e-mail, and would like to add the VBA code to change from saving the e-mail in Sent Items to saving it in the FollowUp folder.

I have tried using smiley0q0's code below to debug my macro, but I get a runtime error that says I don't have the appropriate permission to perform the operation. Can someone help me out.


Sub FollowUp()
Dim appOut As Outlook.Application
Dim EMailOut As Outlook.MailItem
Set appOut = CreateObject("Outlook.Application")
Set EMailOut = appOut.CreateItem(olMailItem)

With EMailOut
.To = "Joe"
.Subject = "whatever"
.ReadReceiptRequested = True
.SaveSentMessageFolder.Name = "FollowUp"
.Display
End With
End Sub

 

[TexasKen]

Solved