Repost with more info - Saving a task to a child folder

  • Thread starter Thread starter Carol G
  • Start date Start date
C

Carol G

This does not save the new task in the Test folder. In fact it doesn't seem
to be saving anywere.
Thanks for any help.
Carol

Public Sub TaskTest()

Dim objApp As Outlook.Application
Dim MyTasksFolder As Outlook.MAPIFolder
Dim MyFolder As Outlook.MAPIFolder
Dim objNS As Outlook.NameSpace
Dim objItm As TaskItem

Set objApp = CreateObject("Outlook.Application")
Set objNS = objApp.GetNamespace("MAPI")
Set MyTasksFolder = objNS.GetDefaultFolder(olFolderTasks)
Set MyFolder = MyTasksFolder.Folders("Test")
Debug.Print MyFolder

Set objItm = objApp.CreateItem(olTaskItem)

objItm.Subject = "Test of Task2"
'Debug.Print objItm.Subject
objItm.SaveAs (MyFolder)
Debug.Print objItm.Subject


End Sub
 
This statement

Set objItm = myFolder.Items.Add

will create a task item that saves in the Test folder. The correct method to save an item is Save, not SaveAs.

--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003

and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
 
Thanks Again,
Carol

This statement

Set objItm = myFolder.Items.Add

will create a task item that saves in the Test folder. The correct method to
save an item is Save, not SaveAs.

--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003

and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
 
Back
Top