Board logo

标题: [原创] 有GUI界面的VBS版EMail-Poster发送邮件(允许添加附件) [打印本页]

作者: defanive    时间: 2009-5-16 23:32     标题: 有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
复制代码

作者: Batcher    时间: 2009-5-17 08:37

放到code标签里面就行了
作者: PakTC    时间: 2009-5-17 08:44

说明defanive 没有加 或者不曾听说[code] [/code]这次算受教了吧。
作者: defanive    时间: 2009-5-17 09:11

我试过了,不过好像都被转成HTML了。。。
作者: PakTC    时间: 2009-5-17 09:40

我觉得界面还是漂亮的,操作也方便,没分加,穷赞赏。
作者: defanive    时间: 2009-5-17 09:57

用 HVScript 写的GUI界面还是不错的吧,算是做个宣传。。。
作者: Randy    时间: 2009-10-30 14:54

怎么用Hotmail不行啊?它的服务器是多少
作者: vinlam    时间: 2010-4-23 14:25

谢谢分享。学习。支持。
作者: jackzzz    时间: 2011-11-23 15:34

始终提示出错
行:2
字符:1
错误:无法连接对象
代码:80020009
源:WScript.CreateObject
请问该怎么弄呢?谢谢!
另外[code][/code]在哪里?没发现啊。。。




欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2