strFolderPath, adding 2 paths

V

Veggatron

when my colleagues synchronize their task-folder, and go offline they n
longer have the path "Public Folders\All public folders\TasksSales
available.

Those maps are synchronised to the "Public Folders\Favorites"

Now i'd like to add 2 paths, one directing to the "public folder\al
public folders\taskssales", and when that's not available (when the
are offline) i'd like to have a second path available that directs t
"Public Folders\Favourites\TasksSales"

any ideas on how to accomplish that? t.i.a.


Code
-------------------

Function NewTask()

Dim objFolder
Dim objItem
Dim strMsgClass
Dim strFolderPath

If mblnReadFromFolder Then
mblnReadFromFolder = False
End If

WriteRegister


strFolderPath = "Public Folders\All Public Folders\Tasks Sales"

strMsgClass = "IPM.Task.TasksSalesTest2502"

If strFolderPath = "" Then
Set objFolder = UserDefaultFolder(Item.UserProperties("FormType").Value)
Else

Set objFolder = GetMAPIFolder(strFolderPath)

End If

If Not objFolder Is Nothing And strMsgClass <> "" Then
On Error Resume Next
Set objItem = objFolder.Items.Add(strMsgClass)
objItem.Display
Else
MsgBox "Could not locate " & strFolderPath & " folder.", , "Problem finding folder"
End If

Item_Open = False

Set objItem = Nothing
Set objFolder = Nothing

End Function
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top