>Anyone done any automation of MS Project? If so, could you please steer me in the right direction for getting started. i.e. the correct parameters for CREATEOBJECT(), any help files or docs, how to add items, etc. TIA

Colin:
Here is a little code that we use:

***********************************************************************8
WAIT WINDOW "Now Creating CPM Template for " + ALLT(vSelectedproject.cProjectname) + " - Please Stand By" NOWAIT NOCLEAR

SELECT 0
USE pas!vroofactv

lcDirectory = ALLT(vselectedproject.cDirectory)

lcFileName = ALLT(SUBSTR(lcDirectory,RAT("\",lcDirectory) + 1,7)) + "r.mpp"

lcOutputfile = lcDirectory + "\" + STR(gnProgramyear,4) + "\schedule\" + lcFilename
goMsproject = CREATEOBJECT("MSPROJECT.APPLICATION")
goMsproject.Application.Visible = .T.
goMsproject.FileOpen(gcRoofingMPPFile)

goMSProject.ActiveProject.CustomDocumentProperties.Add("File Source",.F.,4,"Roofing Contractor")
goMSProject.ActiveProject.CustomDocumentProperties.Add("Project Name",.F.,4,vSelectedProject.cProjectname)
goMSProject.ActiveProject.CustomDocumentProperties.Add("Project Number",.F.,1,vSelectedProject.nProject)

goMsproject.SetTaskField("Name",ALLT(vselectedproject.cProjectname) + " - " + ALLT(vselectedproject.cDivision))

llFirst = .T.
SELECT vroofactv
SCAN
goMsproject.SelectTaskField(1,"Name")
goMsproject.SetTaskField("Name",ALLT(vroofactv.cItemletter) + " " + vroofactv.cDescription)
goMsproject.SetTaskField("Cost",vroofactv.nAwardamount)
IF llFirst
goMsproject.OutlineIndent
llFirst = .F.
ENDIF
ENDSCAN
goMsproject.ActiveProject.ProjectStart = DTOC(vSelectedProject.dRoofingNTP)

goMsproject.FileSaveAs(lcOutputFile)

goMsproject.Application.Quit

WAIT CLEAR
lcMessage = lcOutputFile + " has been created"
=MESSAGEBOX(lcMessage,64,"CPM Template created")

RETURN


HTH,
Mike Collins