This code runs in the DTS designer, but not as a job.
 Set objFolder = myOlNameSpace.Folders("Public Folders")

Any Thoughts

Hi there,

If you run a package from the Designer it runs in *your* security context. So, basically, it can do the things you are allowed to do.

If you run it as a job however, it runs as the account that SQL Server Agent is started with. You'll find the account in the Services dialog of Windows, or on the Properties dialog for the SQL Server Agent in the Enterprise Manager.

Change the account to a (domain) account with (just) enough permissions, and your package will run.

Cheers,

Imar


---------------------------------------
Imar Spaanjaars
Everyone is unique, except for me.

Executed as user: HRA\sqlagent. ...ing... DTSRun OnStart: DTSStep_DTSActiveScriptTask_1 DTSRun OnError: DTSStep_DTSActiveScriptTask_1, Error = -2147220482 (800403FE) Error string: Error Code: 4096 Error Source= Microsoft Outlook Error Description: Could not complete the operation because the service provider does not support it. Error on Line 51 Error source: Microsoft Data Transformation Services (DTS) Package Help file: sqldts80.hlp Help context: 4500 Error Detail Records: Error: -2147220482 (800403FE); Provider Error: 0 (0) Error string: Error Code: 4096 Error Source= Microsoft Outlook Error Description: Could not complete the operation because the service provider does not support it. Error on Line 51 Error source: Microsoft Data Transformation Services (DTS) Package Help file: sqldts80.hlp Help context: 4500 DTSRun OnFinish: DTSStep_DTSActiveScriptTask_1 DTSRun: Package execution . The step failed.

Hmmmmm, tricky.

Does the domain account have sufficient access rights to the public folders? What happens if you log on on your machine with that account and then try to run the package?

Imar


---------------------------------------
Imar Spaanjaars
Everyone is unique, except for me.

I logged onto the sevrer using the account.
Open outlook to public folders.
Also ran the job in the DTS designer OK.
Ran as a job an it fails.

I think it has something to do with the folder object.

I'm going to send the other code.
Maybe that will give you a clue.

Thanks

Dim myOlApp,itms
Dim myOlNameSpace
Dim objFolder,FolderPath,fldr,GetFolder,strTemplatePat h,itm
Dim ItemCount, UnReadItemCount
Dim strSheet,appExcel,wkb,wks,rng
FolderPath = "Public Folders\All Public Folders\HRAmerica Contacts\Dental Care Alliance"
Dim strRange,strASCII, lngASCII ,objCDO,objSession,objAMSession1
   On Error Resume Next
strFolderPath = Replace(FolderPath,"/","\")
aFolders =Split(FolderPath, "\")



Set xlapp = CreateObject("Excel.Application")
Set myOlApp = CreateObject("Outlook.Application")
Set myOlNameSpace = myOlApp.GetNamespace("MAPI")



strTemplatePath = "\\HRANTS02\E$\ExCelExports\"
strSheet = "ContactsII.xls"
strSheet = strTemplatePath & strSheet

   'Adjust the following number to be 1 less than the row number of the
   'first body row
 i = 3

   'Initialize column letters with 64, so the first letter used will be A
lngASCII = 64

Set appExcel = GetObject(, "Excel.Application")

appExcel.Workbooks.Open (strSheet)
Set wkb = appExcel.ActiveWorkbook
Set wks = wkb.Sheets(1)
appExcel.Application.Visible = False



  Set objFolder = myOlNameSpace.Folders("Public Folders") *****fails

For i = 1 to Ubound(aFolders)

    Set objFolder = objFolder.Folders(aFolders(i))


    Next
    Set GetFolder = objFolder

    Set itms = objfolder.Items
    ItemCount = itms.Count
    UnReadItemCount = objFolder.UnReadItemCount

 If objFolder Is Nothing Then

  End If

If objFolder.DefaultItemType <> 2 Then

   End If

lngCount = objFolder.Items.Count

   If lngCount = 0 Then


   Else
end if

For Each itm In objFolder.Items

      If itm.Class = 40 Then
         'Process item only if it is a contact item
         i = i + 1
         lngASCII = lngASCII + 1
         strASCII = Chr(lngASCII)
         strRange = strASCII & CStr(i)
         Set rng = wks.Range(strRange)
         If itm.Title <> "" Then rng.Value = itm.Title

         lngASCII = lngASCII + 1
         strASCII = Chr(lngASCII)
         strRange = strASCII & CStr(i)
         Set rng = wks.Range(strRange)
         If itm.FirstName <> "" Then rng.Value = itm.FirstName

         lngASCII = lngASCII + 1
         strASCII = Chr(lngASCII)
         strRange = strASCII & CStr(i)
         Set rng = wks.Range(strRange)
         If itm.MiddleName <> "" Then rng.Value = itm.MiddleName

         lngASCII = lngASCII + 1
         strASCII = Chr(lngASCII)
         strRange = strASCII & CStr(i)
         Set rng = wks.Range(strRange)
         If itm.LastName <> "" Then rng.Value = itm.LastName



         lngASCII = lngASCII + 1
         strASCII = Chr(lngASCII)
         strRange = strASCII & CStr(i)
         Set rng = wks.Range(strRange)
         If itm.Email1Address <> "" Then
            rng.Value = itm.Email1Address
         End If

         On Error Resume Next
         'The next line illustrates the syntax for referencing
         'a custom Outlook field

         If itm.Email1Address <> "" Then
            rng.Value = itm.Email1Address
         End If

         lngASCII = 64
      End If
   Next




xlApp.ActiveWorkbook.Save
xlApp.ActiveWorkbook.Close True


 xlApp.Quit


Set xlApp = Nothing
Set appExcel = nothing
Set myOlApp = Nothing







    Main = DTSTaskExecResult_Success

If Err.Number <> O Then

Main = DTSTaskExecResult_Failure

Hmmm, this Public Folders thing is not really my cup of tea. I used this a few times as well, and I always had unexpected troubles.

Could it be that GetNamespace requires a true, logged on session? That is, that it won't correctly start the session for the "current user" when the package runs as a job?

Imar


---------------------------------------
Imar Spaanjaars
Everyone is unique, except for me.

I will look into adding some code to log onto OUTLOOK from
the job.

Thanks

Did you ever solve this problem as I am having the same difficulties with my current project.

I have the same problem, anyone has already resolve this problem?