How to link an item to a folder?

[dgerisch]

Hello,

I have a “move to folder” applet that works fine. Is it possible to do the same thing with a “link to folder” operation?

Here is what I am doing:

set oDestinationFolder = GroupWise.Account.Cabinet.AllFolders.ItemByName(“Archive”)

iCount = Client.ClientState.SelectedMessages.Count

If iCount > 0 Then

For x = 1 To iCount

‘ Get the currently selected message
Set oMsg = Client.ClientState.SelectedMessages.Item(x)

‘ Access message source folder
set oSourceFolder = oMsg.EnclosingFolders.item(1)

‘ Move the message
call oSourceFolder.messages.move(oMsg, oDestinationFolder.Messages)

set oSourceFolder = nothing
set oMsg = nothing

Next

Else

Set oMsg = Client.ClientState.CommandMessage
set oSourceFolder = oMsg.EnclosingFolders.item(1)
call oSourceFolder.messages.move(oMsg, oDestinationFolder.Messages)

End If

I would like to change out “call oSourceFolder.messages.move(oMsg, oDestinationFolder.Messages)” with an equivalent ‘link’ operation instead, but I cannot find what the correct code would be.

Thanks!

Topic

[Support 3]

You will need to add the message to destination folder messages collection, see the Object API Messages object for more information.

Code below link the selected message to “Archive” folder.

  
  dim oMsg
  dim oDestinationFolder

  set oDestinationFolder = GroupWise.Account.Cabinet.AllFolders.ItemByName("Archive")

  Set oMsg = Client.ClientState.CommandMessage

  oDestinationFolder.messages.add(oMsg)

  set oDestinationFolder = nothing
  set oMsg = nothing

Hope this helps.

Regards,
Advansys Support

[dgerisch]

Thank you very much.

[Support 3]

No problem, glad it was of assistance.

Regards,
Advansys Support

[Author]

Replies