Is there any wroung in my code ?
Set Msg = oComp.GetBusinessObject(oMessages)
Msg.MessageText = strMessage
Msg.Subject = "alert"
Call Msg.Recipients.Add
Msg.Recipients.SetCurrentLine (0) '(iMessage)
Msg.Recipients.UserCode = "manager" Msg.Recipients.NameTo = "manager" Msg.Recipients.SendEmail = tYES
Msg.Recipients.EmailAddress = "wangwanwei@gmail.com" Msg.Recipients.SendInternal = tYES
Call Msg.AddDataColumn("Please review", "This is an invoice, pls review it, thx.", oMessages, "1")
' iMessage = iMessage + 1
' oRecordset.MoveNext
' Loop
Call Msg.Add