批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程
[批处理文件精品]批处理版照片整理器[批处理文件精品]纯批处理备份&还原驱动在线第三方下载
返回列表 发帖

[原创] 有GUI界面的VBS版EMail-Poster发送邮件(允许添加附件)

EMail-Poster,是在试用HVScript时练手的作品,可以直接发送邮件,允许添加附件(多个附件没做,其实也很简单的)

有GUI界面,感觉很不错,测试通过

用户名、密码就填你登录邮箱时的用户名和密码,放心,不会窃取你的信息的

服务器填写Smtp服务器(例如126邮箱的服务器是smtp.126.com,具体去查帮助,使用客户端的一章有写)

其他就像平时发邮件一样填写就好了

代码比较长,直接下载附件吧。。。
  1. On Error Resume Next
  2. Set moWindow=WScript.CreateObject("InternetExplorer.Application", "IE_")
  3. moWindow.Navigate2 "about:blank"
  4. With moWindow.Document.ParentWindow
  5. .Document.Write "<font size=5><b>邮件发送者 EMail-Poster Ver0.1</b></font></br><body bgcolor='#8080FF'></br><span id='PostStatus'>请认真填写下面的信息,以确保邮件能够正确发送!</span></br></br><input type='button' value=' 发送邮件! ' name='Post'/></br></br>用户名:<input type='text' size='10' name='UserName'/></br>密 码:<input type='password' size='10' name='Password'/></br>服务器:<input type='text' size='20' name='Smtp'/></br></br>发信人:<input type='text' size='20' name='FromMail'/></br>收信人:<input type='text' size='20' name='ToMail'/></br>主 题:<input type='text' size='40' name='Title'/></br>附 件:<input type='file' size='30' name='Attach'/></br>内 容:</br><textarea rows=10 cols=40 name='MailText'/></textarea></br>"
  6. .MoveTo .Screen.AvailWidth/2-240,.Screen.AvailHeight/2-160
  7. .ResizeTo 420,560
  8. .Document.Title="邮件发送者 EMail-Poster Ver0.1"
  9. End With
  10. moWindow.Document.Close
  11. With moWindow
  12. .FullScreen=0
  13. .MenuBar=0
  14. .AddressBar=0
  15. .ToolBar=0
  16. .StatusBar=0
  17. .Resizable=0
  18. .Visible=1
  19. Set Form=.Document.All
  20. Set .Document.All.Post.onClick=GetRef("Post_onClick")
  21. End With
  22. mbFinished=False
  23. Do Until mbFinished
  24. WScript.Sleep 50
  25. Loop
  26. Sub IE_onQuit
  27. mbFinished=True
  28. End Sub
  29. Sub Post_onClick
  30. NameSpace = "http://schemas.microsoft.com/cdo/configuration/"
  31. Set Email = createObject("CDO.Message")
  32. Email.From = Form.FromMail.Value
  33. Email.To = Form.ToMail.Value
  34. Email.Subject = Form.Title.Value
  35. Email.Textbody = Form.MailText.Value
  36. If Not Form.Attach.Value="" Then Email.AddAttachment Form.Attach.Value
  37. With Email.Configuration.Fields
  38. .Item(NameSpace&"sendusing") = 2
  39. .Item(NameSpace&"smtpserver") = Form.Smtp.Value
  40. .Item(NameSpace&"smtpserverport") = 25
  41. .Item(NameSpace&"smtpauthenticate") = 1
  42. .Item(NameSpace&"sendusername") = Form.UserName.Value
  43. .Item(NameSpace&"sendpassword") = Form.Password.Value
  44. .update
  45. End With
  46. Form.PostStatus.InnerHTML="邮件发送失败,请检查所填写的信息是否有误"
  47. If Email.Send="" Then
  48. Form.PostStatus.InnerHTML="邮件发送成功!"
  49. End If
  50. End Sub
复制代码
附件: 您需要登录才可以下载或查看附件。没有帐号?注册
第三方命令行工具编程
Http://Hi.Baidu.Com/Console_App

我试过了,不过好像都被转成HTML了。。。
第三方命令行工具编程
Http://Hi.Baidu.Com/Console_App

TOP

用 HVScript 写的GUI界面还是不错的吧,算是做个宣传。。。
第三方命令行工具编程
Http://Hi.Baidu.Com/Console_App

TOP

返回列表