Reply To: Message Reference from Reply

[Support 3]

GroupWise 7 client contains a localized word ‘Home’ after the account name. You will need to modify the code to add the localized ‘Home’ word after the account name. See the code below:

  
  dim oMsg
  dim iMsgID
  dim iWIPPath
  Dim iBreakCount


  ' GroupWise 7+ onwards contains a localized word 'Home' after the account name.
  ' You will need to add the localized 'Home' after the name
  if (groupwise.EnvVersionName > "7") then
    iWIPPath = GroupWise.Account.Owner.DisplayName & " Home" & GroupWise.Account.WorkFolder.Name
  else
    iWIPPath = GroupWise.Account.Owner.DisplayName & "" & GroupWise.Account.WorkFolder.Name
  end if


 ' Save the draft message to the Work in Progress folder
  Utilities.Trace "iWIPPath=" & iWIPPath
  Groupwise.ItemSaveMessageDraft(iWIPPath)

  ' Calling ItemMessageIDFromView immediately after GroupWise.ItemSaveMessageDraft
  ' can result in an X00 ID.
  iMsgID = GroupWise.ItemMessageIDFromView
  iBreakCount = 0
  while (iMsgID = "Token failed execution!") or (iMsgID = "X00")
     Application.ProcessMessages
     utilities.Timer(1)
     Application.ProcessMessages
     iMsgID = GroupWise.ItemMessageIDFromView
     iBreakCount = iBreakCount + 1
     Utilities.Trace iBreakCount & ": " & iMsgID
     if (iBreakCount > 10) then
       exit sub
     end if
  wend

  set oMsg = GroupWise.Account.GetMessage(iMsgID)
  msgbox oMsg.subject.plaintext

Hope this helps.

Regards,
Advansys Support