OK - I found some example code... I've re-coded it to emulate my
application, the major difference I see and don't know how to handle is the
path information to the location of the items I want to export. They are in
"Public Folders => All Public Folders => Public Root". How do I get all this
path information into the script to find the items I want to export?
'---------------Exporting-----------------
Dim rst
Dim dbe
Dim wks
Dim dbs
Dim nms
Dim fld
Dim itms
Dim itm
Dim strAccessPath
Dim appAccess
Dim strFolder
Dim fFound
Sub cmdExport_Click()
Set nms = Application.GetNameSpace("MAPI")
strFolder = "- HELP DESK QUEUE"
'Check for existence of OSRs from Access folder
'and exit if not found
fFound = False
FindFolder nms.Folders("Public Root").Folders, 0, strFolder
If fFound = True Then
Set fld = nms.Folders("Public Root").Folders(strFolder)
ElseIf fFound = False Then
MsgBox "OSRs to Export folder not found; exiting"
Exit Sub
End If
: