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
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