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