#6620
rfaude
Participant

Hi Manfred,

i use a lot of task. Each time i work on a task i write it down. To see when i send some timeon this task i insert a Timestamp automatically. Mabye it works for you.

Regards Ralf

—————%—————-
Sub Main(Client, GWEvent)

dim iMsg
dim sMessage
dim NL
dim Stamp
dim Cost

NL = Chr(13) & Chr(10)
InsTab = Chr(9)
Cost = InputBox(“Cost: “,”Time in Minutes”)
Stamp = NL & NL & _
“~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~” & NL & _
“changed on:” & InsTab & Date & ” – ” & Time & NL & _
“Cost:” & InsTab & InsTab & Cost & NL & _
“~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~” & NL & NL

‘ Use the draft message ID (X00)
sMessage = GroupWise.ItemGetText(“X00”, itfMessage)

sMessage = Stamp & sMessage

Call GroupWise.TextSetMessage(sMessage, False)

End Sub
—————%—————-