set doc = smsMainDB.CreateDocument 'create a new document
with doc
| .form = "SMSMULTI"
.smsMobiles = "4459696845,4423452355,3423462666,7835682383" 'upto 250 in this format, Must be a Notes List
.smsBody = "Dear member, our system indicates that you have not updated your records today. Please login to..."
.smsBodyUni = makeUnicode( .smsBody(0) ) 'For use with non-Germanic strings. Not required from smsPULSE V4
.smsMobileFrom = "4477872424353" 'this is optional
.deleteMe = "Y" 'must be caps Y, this is ignored if some messages have failed to deliver
.submit = "Y"
.createdBy = session.UserName
.smsCallback = "Y" 'optional, see note below (caps Y)
.gsm = "Y" 'optional. Dual mode only, forces delivery via GSM (caps Y). Do not use if "bygsm" is used.
.gsmQue = "34089" 'optional. Specifies that the GSM device with a phone number containing "34089" is used.
.smsFlash = "Y" 'optional
.bygsm = "4423452355,3423462666" 'optional. Multi-mode only, forces delivery via GSM of these nos, Must be a Notes List.
'gsm field must Not be set to "Y" in this case.
'now set Authors and Reader for the document
nameList(0) = "LocalDomainServers"
nameList(1) = session.UserName
nameList(2) = "[Admin]"
Set item1 = New NotesItem( doc, "Authors", nameList, AUTHORS)
Set item2 = New NotesItem( doc, "Readers", nameList, READERS)
'optional attachment of an image, which will route the message as MMS
Set rtitem = New NotesRichTextItem( doc, "atta" )
Set object = rtitem.EmbedObject( EMBED_ATTACHMENT, "", "c:\mms_newProd.jpg") 'file name must start with "mms_"
'ready to save - smsPULSE will pick message within 2 seconds if its queue is empty
call .save( true, false ) |
end with |