学步园

使用 sms.api.bz 这个短信网关. 要求先开通飞信. 填好 URL 中的各个参数.

在 outlook 中, 用 alt+f11 打开 vba 编辑器. 保持好如下脚本.

然后创建一条规则, 当特定邮件到达时执行这个脚本.

Sub SendSMS(Item As Outlook.MailItem)<br /> Dim msg<br /> Dim ret<br /> msg = URLEncode(Item.Subject)<br /> ret = GetDataFromURL("http://sms.api.bz/fetion.php?username=&password=&sendto=&message=" & msg, "GET", "")<br /> End Sub</p> <p>Public Function URLEncode(strURL)<br /> Dim I<br /> Dim tempStr<br /> For I = 1 To Len(strURL)<br /> If Asc(Mid(strURL, I, 1)) < 0 Then<br /> tempStr = "%" & Right(CStr(Hex(Asc(Mid(strURL, I, 1)))), 2)<br /> tempStr = "%" & Left(CStr(Hex(Asc(Mid(strURL, I, 1)))), Len(CStr(Hex(Asc(Mid(strURL, I, 1))))) - 2) & tempStr<br /> URLEncode = URLEncode & tempStr<br /> ElseIf (Asc(Mid(strURL, I, 1)) >= 65 And Asc(Mid(strURL, I, 1)) <= 90) Or (Asc(Mid(strURL, I, 1)) >= 97 And Asc(Mid(strURL, I, 1)) <= 122) Then<br /> URLEncode = URLEncode & Mid(strURL, I, 1)<br /> Else<br /> URLEncode = URLEncode & "%" & Hex(Asc(Mid(strURL, I, 1)))<br /> End If<br /> Next<br /> End Function</p> <p>Function GetDataFromURL(strURL, strMethod, strPostData)<br /> Dim lngTimeout<br /> Dim strUserAgentString<br /> Dim intSslErrorIgnoreFlags<br /> Dim blnEnableRedirects<br /> Dim blnEnableHttpsToHttpRedirects<br /> Dim strHostOverride<br /> Dim strLogin<br /> Dim strPassword<br /> Dim strResponseText<br /> Dim objWinHttp<br /> lngTimeout = 59000<br /> strUserAgentString = "http_requester/0.1"<br /> intSslErrorIgnoreFlags = 13056 ' 13056: ignore all err, 0: accept no err<br /> blnEnableRedirects = True<br /> blnEnableHttpsToHttpRedirects = True<br /> strHostOverride = ""<br /> strLogin = ""<br /> strPassword = ""<br /> Set objWinHttp = CreateObject("WinHttp.WinHttpRequest.5.1")<br /> objWinHttp.SetTimeouts lngTimeout, lngTimeout, lngTimeout, lngTimeout<br /> objWinHttp.Open strMethod, strURL<br /> If strMethod = "POST" Then<br /> objWinHttp.SetRequestHeader "Content-type", _<br /> "application/x-www-form-urlencoded"<br /> End If<br /> If strHostOverride <> "" Then<br /> objWinHttp.SetRequestHeader "Host", strHostOverride<br /> End If<br /> objWinHttp.Option(0) = strUserAgentString<br /> objWinHttp.Option(4) = intSslErrorIgnoreFlags<br /> objWinHttp.Option(6) = blnEnableRedirects<br /> objWinHttp.Option(12) = blnEnableHttpsToHttpRedirects<br /> If (strLogin <> "") And (strPassword <> "") Then<br /> objWinHttp.SetCredentials strLogin, strPassword, 0<br /> End If<br /> On Error Resume Next<br /> objWinHttp.Send (strPostData)<br /> If Err.Number = 0 Then<br /> If objWinHttp.Status = "200" Then<br /> GetDataFromURL = objWinHttp.ResponseText<br /> Else<br /> GetDataFromURL = "HTTP " & objWinHttp.Status & " " & _<br /> objWinHttp.StatusText<br /> End If<br /> Else<br /> GetDataFromURL = "Error " & Err.Number & " " & Err.Source & " " & _<br /> Err.Description<br /> End If<br /> On Error GoTo 0<br /> Set objWinHttp = Nothing<br /> End Function<br />

由于安全性的问题, 还要给这个脚本签名.

在开始菜单中打开 vba 数字证书工具. 

给自己创建一个证书.

打开 vba 编辑器, 如图选择,  

 指定刚才创建的证书.

在 outlook 中打开 security... 对话框.

选择 安全级别为 "中".

重启 outlook, alt+f11 会提示如下对话框, 选择始终相信, 并且启用脚本:

现在应该好了.

CSDN 贴图还是麻烦.