To create a new item in a non-default folder, use the Add method on the target folder's Items collection:

Set newItem = targetFolder.Items.Add("IPM.Post.YourFormName")

The message class argument is optional. You can use the code at http://www.outlookcode.com/d/code/getfolder.htm to walk the folder hierarchy and return the MAPIFolder corresponding to a given path string.

--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003
http://www.turtleflock.com/olconfig/index.htm
and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
http://www.outlookcode.com/jumpstart.aspx

"bbnimda" wrote in message ...
Hi,

I created a personalised Form in outlook 2003 for my contact, il added a
button and I want by clicking on this button to create à task in the public
folder

I allready find the script to create this task in my box by using this
Sctipt

Sub CommandButton2_click()
Set myItem = Application.CreateItem(2)
myItem.Subject = "Rapport de traitement"
myItem.Display
end sub

Ps: I now how to extract the name of th public folder