想写一个存储过程,当向一个数据表插入数据时自动将这条记录的客户信息提取出来,然后根据这条录的客户姓名及手机号码发送短信提示该记录已成功插入数据库

自己顶一下

顶一下

发短信肯定要钱的

http://blog.

不知道这个对你有帮助没？看了下是调用的WS来发短信的~

这篇文章看了，没有看明白。我的QQ1282901719 邮箱dell_note@

在软件或网页中集成发送短信的方法有两种：
１、用短信猫+sim卡，接收方的手机上显示的是sim卡的卡号。短信猫淘宝网上很便宜的。
２、找sp，他们给你二次开发接口，他们给你代发。接收方的手机上显示的是特服号。比如：10678342932
其实还有一种方法，但是个人办不到，就是直接找移动或联通购买短信通道，但听说注册资金要１００万以上，每月的通道费是四五千。除非你要成为sp,否则此法舍去。
对于第二种方法：56dxw还是不错的。

可以发邮件到邮箱，通过手机绑定邮箱。。你懂滴。。

Sub SentMail(strM As String, strMailAddress As String)
On Error Resume Next
    Dim NameSpace As String
    Dim Email As Object

    NameSpace = "http://schemas.
    Set Email = CreateObject("CDO.Message")
   
    With Email
        .FROM = "12@    '发件邮箱
        .To = strMailAddress   '收件邮箱
        .CC = Null             '抄送
        .Subject = strM   '邮件主题
        .TextBody = strM    '邮件内容
        
'        If Dir("C：\1.txt") <> "" Then
'        .AddAttachment "C：\1.txt"    '附件
'        End If
        
        With Email.Configuration.Fields
            .Item(NameSpace & "sendusing") = 2
            .Item(NameSpace & "smtpserver") = "smtp.
            .Item(NameSpace & "smtpserverport") = 25    '端口，不要改！
            .Item(NameSpace & "smtpauthenticate") = 1
            .Item(NameSpace & "sendusername") = "12@    '邮箱用户名 可申请一个邮箱
            .Item(NameSpace & "sendpassword") = "123456"    '邮箱密码
            .Update
        End With
        .Send
    End With
   
'    If err.Number <> 0 Then
'        MsgBox "无法发送邮件：" & err.Description
'    Else
'        MsgBox "邮件发送成功", vbInformation
'    End If
   
    Set Email = Nothing
End Sub

Good！

厉害！