如何自动向手机发短信 - 编程论坛

#2

crecre2013-06-04 18:32

自己顶一下

#3

crecre2013-07-14 14:54

顶一下

#4

罗子大妈2013-07-22 16:23

发短信肯定要钱的

#5

岁月如刀2013-07-22 22:53

http://blog.

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

#6

crecre2013-07-28 10:57

以下是引用岁月如刀在2013-7-22 22:53:14的发言：

http://blog.

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

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

#7

djszyyc2013-08-30 19:49

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

#8

西风独自凉2013-08-31 10:05

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

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

#9

3037709572013-09-05 14:21

Good！

#10

卢大柱2014-05-20 14:20

厉害！