VBA 飞信免费短信接口(续),最新最快也最牛的接口 2012.10.26

hhaa999 · 发表于 2012-11-4 12:50

发送成功后，EXCEL页面出现“短信发送成功”，能否去掉

zhczhyyhm · 发表于 2012-11-6 09:27

多谢楼主分享

hyy514 · 发表于 2012-11-7 17:09

本帖最后由 hyy514 于 2012-11-7 17:35 编辑

代码:

'不需要显示返回
Sub t()
Dim Ft As New Fetion
If Ft.Init("13533336666", "123456") Then
      Ft.SendMsgMyself "给自已的信息"
      Ft.SendMsgMyself "定时信息", Format(Now + TimeValue("00:15:00"), "yyyymmddhhmm")
      Ft.SendMsgFnd "给好友的信息", "135888888888"
End If
End Sub
'或
Sub tt()
Dim Ft As New Fetion
With Ft
      If .Init("13533336666", "123456") Then
         .SendMsgMyself "给自已的信息"
         .SendMsgMyself "定时信息", Format(Now + TimeValue("00:15:00"), "yyyymmddhhmm")
         .SendMsgFnd "给好友的信息", "135888888888"
      End If
End With
End Sub

'或者这样,发送结果返回到单元格中
Sub ttt()
Dim Ft As New Fetion
If Ft.Init("13533336666", "123456") Then
      Cells(1, 1) = Ft.SendMsgMyself("给自已的信息")
      Cells(2, 1) = Ft.SendMsgMyself("定时信息", Format(Now + TimeValue("00:25:00"), "yyyymmddhhmm"))
      Cells(3, 1) = Ft.SendMsgFnd("给好友的信息", "135888888888")
End If
End Sub

hyy514 · 发表于 2012-11-7 17:18

hhaa999 发表于 2012-11-4 12:50
发送成功后，EXCEL页面出现“短信发送成功”，能否去掉

不会连这个都不会吧

coolbelor · 发表于 2012-11-7 19:48

不是一个牛字就能简单概况的。

hyy514 · 发表于 2012-11-7 20:05

coolbelor 发表于 2012-11-7 19:48
不是一个牛字就能简单概况的。

标题是调侃一下而已，有点幽默感，生活很精彩

zcjhy · 发表于 2012-11-8 16:00

我想用在VB上，但里面有一句 Sheet1.OLEObjects(FNAME).Copy 这个怎么改成 VB中的语句呢？

hhaa999 · 发表于 2012-11-9 06:46

谢谢，很好用

hyy514 · 发表于 2012-11-14 15:02

zcjhy 发表于 2012-11-8 16:00
我想用在VB上，但里面有一句 Sheet1.OLEObjects(FNAME).Copy 这个怎么改成 VB中的语句呢？

已上传VB版

reaperlu · 发表于 2012-11-15 08:49

谢谢楼主，学习使用中！

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