/ Forums / Advansys Formativ / Creating Solutions with Formativ / Message Reference from Reply / Reply To: Message Reference from Reply
June 24, 2008 at 2:57 pm
#8001
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