Okay, I try to the code send mail with unicode mode and it works.
Global MailID
Procedure MailDataSend(msg$)
Debug "Command: "+msg$
*cmd = AllocateMemory(9999)
For i = 1 To Len(msg$)
asc = Asc(Mid(msg$, i, 1))
PokeB(*cmd+i-1, asc)
Next
SendNetworkData(MailID, *cmd, Len(msg ...