#6583
Support 1a
Participant

    Try the following. Notice the current message is being accessed using the message ID “X00”. “X00” gives you access to the currently opened message in the client, and is generally the ID to use when you want to use the ItemGet… or ItemSet… commands.

    Sub Main(Client, GWEvent)
     
      dim iMsg
      dim sMessage
      dim NL
      dim Stamp
      
      NL = Chr(13) & Chr(10)
      InsTab  = Chr(9)
      Stamp = NL & NL & _
              "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~" & NL & _
              "geändert am: " & Date & " - " & Time & NL & _
              "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~" & NL & NL
     
      
      ' Use the X00 message ID when using ItemGet/ItemSet commands.
      sMessage = GroupWise.ItemGetText("X00", itfMessage)
      
      sMessage = Stamp & sMessage
      
      Call GroupWise.TextSetMessage(sMessage, FALSE)  
     
    End Sub
    

    I hope this helps.

    Advansys Support