Queue om sms berichten te zenden. Berichten worden tijdelijk in global opgeslagen en verwerkt. persistent vhLib.Macro 1 %Persistent 0 Het nummer van de onvanger van het bericht %String 1 Het te versturen bericht van max. 160kar. %String 1 WS.TAPI.SMSMessage parent Singles 1 Leeg = OK alle andere geven in tekstvorm de fout weer %String %Integer %String 1 Do . Set Msg=..VolgNr_"/"_..Parent.SingleCount_" "_Msg Set Status = ..SendMessage(..Recipient,Msg) set $ZT="" Quit Status OnError Set $ZT="" Set Status="Error message: "_$ZE Set Body=Status_$$$CRLF If ($IsObject(..Parent.Creator)){ Set Body=Body_$$$CRLF_"SMS Creator:"_..Parent.Creator.Naam Set Subj="SMS ERROR report (ID="_..Parent.%Id()_")" }Else{ Set Subj="Fout bij verzenden van SMS naar "_ ..Recipient_ " met inhoud : "_$C(13,10)_..Message } Set From="SMSGateway@vanhoecke.be" Set To=$LB("pv@vanhoecke.be","itadmin@vanhoecke.be") Do SendMiniMail^vhLib(From,To,Subj,Body,,,,,) Quit ]]> 1 Recipient:%String,Message:%String %Status %String %Library.CacheStorage {%%PARENT}("Singles") SMSMessageSingleDefaultData ^WS.TAPI.SMSMessageC("Singles") ^WS.TAPI.SMSMessageSingleI ^WS.TAPI.SMSMessageSingleS listnode %%CLASSNAME Message Recipient Status VolgNr