Change Outgoing E-mail Folder

[TexasKen]

I am trying to write a Macro that saves outgoing e-mail to my “FollowUp” folder instead of my “Sent Items” folder. After opening a New E-mail, the following code compiles & runs, but does not change my outgoing e-mail from Sent Items to FollowUp.

I have changed the Set objFolder code to
Set objFolder = objNS.GetDefaultFolder(olFolderFollowUp)
but then I get a “One or more parameters are not valid” message. Can someone please help me solve this code.


Sub Folder2()
Dim appOut As Outlook.Application
Dim objFolder As Outlook.MAPIFolder
Dim objNS As NameSpace
Set appOut = CreateObject("Outlook.Application")
Set objNS = Application.Session
Set objFolder = objNS.GetDefaultFolder(olFolderInbox)
Set SaveSentMessageFolder = objFolder
End Sub

 

[TexasKen]

Solved

 

[PHV]

Solved
How ?