Hi,

i look for a way to delegate a message to an other user. I find a way to FORWARD a message (Call GroupWise.ItemForward()) but not to DELEGATE.

Sub Main(Client, GWEvent)



Dim sDateTime

Dim sEmail

Dim sUsername



Set objMsg = Client.ClientState.CommandMessage



if not objMsg is Nothing then

sDateTime = objMsg.CreationDate

sEmail = objMsg.Sender

sUsername = objMsg.Sender.DisplayName

Set objMsg = nothing

else

Set objMsg = nothing

tmp = MsgBox ("Subject can not be read!", 0, "Error occured")

Exit sub

end if



Call GroupWise.ItemForward()



Call GroupWise.FocusSet(fcsMessage, "")

Call GroupWise.PosTextTop

Call GroupWise.TypeText(vbCrLf & vbCrLf & "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~")

Call GroupWise.TypeText("Date/Time: " & sDateTime & vbCrLf)

Call GroupWise.TypeText("Email-Address: " & sEmail & vbCrLf)

Call GroupWise.TypeText("Username: " & sUsername & vbCrLf)

Call GroupWise.TypeText("~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~")

Call GroupWise.FocusSet(fcsTo, "")



End Sub

Thanks …

Ralf