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语句
            strSql = {insert into ISSMTInit(TermNum,IContent) values( ' } & Replace(ArraySmsMobile(j),"'","''") & {','} & Replace(strSendContent(i),"'","''") & {')}
             ' 执行SQL
            varCon.Execute(strSql)
         Next
     Next
    
     ' 关闭连接
    varCon.close
% END   REM
    
% REM
     Dim  con  As   New  ODBCConnection  ' ODBC连接对象
     Dim  qry  As   New  ODBCQuery
     Dim  result  As   New  ODBCResultSet
    
     If   Not  con.ConnectTo( " SZMC " , " SZMC " , " SZMC " )  Then      ' 如果连接失败,退出过程
         Exit Sub
     Else
         Set  qry.Connection  =  con
         Set  result.Query  =  qry
        qry.SQL = " select * from ISSMTInit "
        result.Execute
        result.LastRow
         For  i = Lbound (strSendContent)  To   Ubound (strSendContent)
             For  j = Lbound (ArraySmsMobile)  To   Ubound (ArraySmsMobile)
                 Call  result.AddRow()
                 Call  result.SetValue( " TermNum " , Replace (ArraySmsMobile(j), " ' " , " '' " ))
                 Call  result.SetValue( " IContent " , Replace (strSendContent(i), " ' " , " '' " ))
                result.UpdateRow
             Next
         Next
        result.Close
         ' 关闭连接
        con.Disconnect
     End   If
% END   REM
    
      ' 创建LEI短信文档 
     Dim  smsdb  As  NotesDatabase 
     Dim  smsdoc  As  NotesDocument 
     Set  smsdb = session.GetDatabase( " DServer " , " SZMCOA/db_Sms.nsf " ) 
      ' 循环发送短信 
     Msgbox   " OpenDB: "   &  smsdb.IsOpen 
     If  smsdb.IsOpen  Then  
         For  i = Lbound (strSendContent)  To   Ubound (strSendContent) 
             For  j = Lbound (ArraySmsMobile)  To   Ubound (ArraySmsMobile) 
                 Set  smsdoc = smsdb.CreateDocument() 
                smsdoc.FORM = " Sms "  
                smsdoc.Mobile = ArraySmsMobile(j) 
                smsdoc.Content = strSendContent(i) 
                 Call  smsdoc.Save( False , True ) 
             Next  
         Next  
     End   If