通过短信发送电子邮件 - 演示案例（SMS2E-Mail）
    操作方法： 通过手机编辑短信，EM#目标邮件地址#邮件内容，发送到13XXXXXXXXX，
   （例如编辑短信发送：EM#kobiz@tom.com#你好，下午开会。则您向kobiz@tom.com发送了，
   “您好，下午开会。”的邮件内容）
 ======================================================================================

代码内容 ’宇讯短信二次开发平台 ’宁波宇讯信息技术有限公司 ’  <2005年5月> ’发送邮件函数SendJMail，请事先安装JMail邮件组件（免费，http://www.dimac.net） ’ToMail：接收方邮件地址，有多个时用逗号分隔 ’Subject：邮件标题 ’Body：邮件内容 ’FromName：发送方名称 ’FromMail：发送方邮件地址 ’返回：True=发送成功，反之失败 Function SendJMail(ToMail, Subject, Body, FromName, FromMail)   ’On Error Resume Next   Dim Jmail   Set Jmail = CreateObject("JMail.Message")   Jmail.CharSet = "gb2312"   Jmail.Priority = 2   ’优先级   Jmail.MailServerUserName = "kobiz" ’这里换成您的SMTP验证帐号   Jmail.MailServerPassword = "邮箱密码" ’这里填写您的SMTP认证密码   Jmail.From = FromMail   ’发信人邮件地址   Jmail.FromName = FromName  ’发信人姓名   Jmail.Subject = Subject  ’信件主题   Jmail.AddRecipient ToMail  ’收信人地址   Jmail.Body = Body   ’TXT Mailbody参数是信件正文   ’JMail.HTMLBody = Body  ’HTML信件正文   Jmail.Send("smtp.tom.com")  ’发信的邮件服务器   Jmail.Close()   Set Jmail = Nothing   SendJMail = True   If Err Then     Err.Clear     SendJMail = False   End If End Function ’短信网关服务启动后的处理事件 Sub SMSGateWay_OnStartServer(Sender)   ’MsgBox "OnStartServer" End Sub ’短信网关服务停止后的处理事件 Sub SMSGateWay_OnStopServer(Sender)   ’MsgBox "OnStopServer" End Sub ’收到新短信后的处理事件 Sub SMSGateWay_OnRecvSMS(Sender, SMSPhoneNo, SMSMessage, TimeStamp)   Dim sCommand, sToMail, sSubject, sBody, sFromName, sFromMail, sContent   Dim Params   ’系统运行状态查询命令   If (Trim(SMSMessage) = "000") Then Exit Sub   ’发送格式为：EM#目标邮件地址#邮件内容   ’拆分短信内容   Params = Split(SMSMessage, "#")   If UBound(Params) < 2 Then     SMSGateWay.SendSMS SMSPhoneNo, "您的发送格式不正确。正确的格式为：" & _                                    "EM#目标邮件地址#邮件内容", ""     Exit Sub   End If   sContent = ""   sCommand = UCase(Trim(Params(0))) ’取第一个命令关键字   Select Case sCommand     Case "EM"         sToMail  = Trim(Params(1))  ’接收方邮件地址         sBody    = Params(2)        ’邮件内容         sSubject = Params(2)        ’邮件标题         sFromName = "网站邮件系统"  ’发送方名称         sFromMail = "kobiz@tom.com" ’发送方邮件地址         If Not SendJMail(sToMail, sSubject, sBody, sFromName, sFromMail) Then           sContent = "邮件发送失败，请检查！"         End If     Case Else  sContent = "您的命令字不正确。正确的命令字可为：EM=发送邮件。"   End Select   If sContent <> "" Then     SMSGateWay.SendSMS SMSPhoneNo, sContent, ""   End If End Sub ’发送短信后的处理事件 Sub SMSGateWay_OnSendSMS(Sender, SMSPhoneNo, SMSMessage, CustomNo, Succeed)   ’MsgBox "OnSendSMS " + SMSPhoneNo + " / " + SMSMessage End Sub ’主程序部分 开始 ’MsgBox "KoSMSGateWay", vbInformation, "vb"