在Excel中发手机短信
之前在139邮箱中发短信还需要输入验证码，基本上没办法实现自动化。新版的的界面取消了验证码，这样就可以实现在Excel中发送短信了。
个人感觉139邮箱做得还不错，捆绑手机号码，提供邮件到达短信提示，可以发送文件到手机，还可以发送传真，付费的话还可以使用PushEmail，每月可发30条免费短信，之后0.1元每条。
这个小工具做成加载宏，在窗体中输入用户名、密码、收信人和短信内容。139邮箱使用了大量的JavaScript脚本，使用XMLHTTPRequest的话非常复杂，这里使用了IE对象，可以学习一下怎样操作IE以及多框网页的处理。
界面：
Aug 3，2010更新：之前的版本不能使用，修改了代码，下面是新的文件。
下载：Box.Net | SkyDrive
Nov 27，2010更新：139邮箱更改了网页代码，接受者电话的输入框做了特别处理，上面的工具已经不能使用，正在尝试是否可以解决这个问题。
No related posts.
以上关联文章由 Yet Another Related Posts Plugin 提供支持。
学习了，八月兄辛苦了！
何不试试libfetion…
@KennyMC
不知道libfetion提供了针对VB或VBA的接口没有。
飞信有个不好的地方是只能发给好友。还有，因为经常收到骗子的短信，现在几乎不用它了。
下载测试了好像用不了~！
我这里使用是没有问题的。能不能告诉我提示什么错误？
另外，你需要先注册139邮箱。
兄弟。现在可以登录成功，但在网页中“手机号码输入”和“发送点击”两个位置有问题，麻烦你帮忙查证一下，谢谢。
Set inElem = doc1.getElementById(“txtMobile”) ‘出错
Set inElem = doc1.getElementById(“btnSmsSend”) ‘出错
inElem.Click
附件下载不了啊……
可否不弹出对话框，直接在vba中保存139的用户名和密码，提取单元格作为关键字直接发送（将选定的单元格每行作为一条短信发送）：
Excel：地址 电话 摘要
1 2 3
短信为：地址：1
电话：2
摘要：3
应该可以下载的啊，你再试试。像Box那个网站，点链接打开网页后上面有个”Download”按钮，点按钮就可以下载了。
不过这个文件的代码已经不能使用。可以修改一下代码使用wapmail来实现同样的功能。