Lotusscript发送短信代码example

% REM
     ' 创建ADO连接对象
     Set  varCon = CreateObject ( " ADODB.Connection " )
     ' 连接字符串
    strConStr = {Provider = SQLOLEDB;Data Source = lmszmc.lmszmc.com;Uid = sa;Pwd = ;Database = LMSMS}
     ' 打开连接
    varCon.open strConStr
    
     ' 循环发送短信
     For  i = Lbound (strSendContent)  To   Ubound (strSendContent)
         For  j = Lbound (ArraySmsMobile)  To   Ubound (ArraySmsMobile)
             ' SQL语句