飞信VBA系统接口----通讯录

haochen · 发表于 2012-2-10 15:18

谢谢版主,谢谢分享！

zuiaidh2004 · 发表于 2012-2-13 17:21

研究如何使用中

xrs08234 · 发表于 2012-2-14 10:49

已经成功，感谢版主！！！

xrs08234 · 发表于 2012-2-14 16:58

请问版主，下面这段代码能成功发送。
Private Sub 发送短信代码示例()
Dim Fetion As New VBAFetion
M = "13795****53" '发送方手机号
Pass = "****571991886"  '发送方手机号的登录密码
JS = "13795****53"  '接收方手机号
If Fetion.Init(M, Pass) Then
      '发送飞信
      Fetion.SendMsg JS, "***老师,应发3650元;扣发490.8元;实发3159.2元。[总务处]"

      '发送短信
      'Fetion.SendShortMsg JS, "飞信内容：发送短信!!"
End If
End Sub
但是把发送的内容改为对单元格的引用后，接收方就接收不到内容了。当然，字数要比上面的多，但还没有达到500的上限，仅有187个字符，这是什么原因呢？希望版主赐教。。

daley · 发表于 2012-2-15 12:22

xrs08234 发表于 2012-2-14 16:58
请问版主，下面这段代码能成功发送。
Private Sub 发送短信代码示例()
Dim Fetion As New VBAFetion
...

从代码上看没有问题,问题是：

你有没有将VBA的飞信类复制到你的工作簿中？

xrs08234 · 发表于 2012-2-15 14:09

回版主，复制了滴哒，就是字符串长点就不能发送了，但还没有达到500个的长度，仅有187个。我测试了一下，字符长度在几十个内就能发送。

xrs08234 · 发表于 2012-2-15 14:17

本帖最后由 xrs08234 于 2012-2-15 16:22 编辑

请问版主，这个发送信息内容字符长度问题该怎么解决呢？请版主测试，谢谢！！！

群发工资表.rar (32.43 KB, 下载次数: 33)

daley · 发表于 2012-2-15 21:22

本帖最后由 daley 于 2012-2-16 02:04 编辑

已知的错误处：

工作表中的手机列为：Q列，而下面的代码则是在“发送一条信息"后为R列
k = Range("IV1").End(xlToLeft).Column

还有这句：
JS = Cells(i, k).Text '接收方手机号

在模块中如果未指明工作表，那么Cells(i, k).Text ，则是获取当前工作的Cells(i, k).Text

同样的返回错误列值，除非信息中包含“%”号，否则在500字符下没有问题，亲测多次。

请粘贴你的文本到我的文件中测试是否同样长度超出。

xrs08234 · 发表于 2012-2-19 15:24

本帖最后由 xrs08234 于 2012-2-19 16:00 编辑

非常谢谢版主的解答，我明白了，原来我的文本中有“%”这个字符。再次感谢版主的无私奉献与无私帮助！！！

cumulonimbus · 发表于 2012-2-23 18:42

强{:soso_e112:}，不过我肯定看不懂的哈

		自动登录	找回密码
密码			免费注册