批处理之家's Archiver

defanive 发表于 2009-5-16 23:32

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

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

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

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

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

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

代码比较长,直接下载附件吧。。。[code]On Error Resume Next
Set moWindow=WScript.CreateObject("InternetExplorer.Application", "IE_")
moWindow.Navigate2 "about:blank"
With moWindow.Document.ParentWindow
.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>"
.MoveTo .Screen.AvailWidth/2-240,.Screen.AvailHeight/2-160
.ResizeTo 420,560
.Document.Title="邮件发送者 EMail-Poster Ver0.1"
End With
moWindow.Document.Close
With moWindow
.FullScreen=0
.MenuBar=0
.AddressBar=0
.ToolBar=0
.StatusBar=0
.Resizable=0
.Visible=1
Set Form=.Document.All
Set .Document.All.Post.onClick=GetRef("Post_onClick")
End With
mbFinished=False
Do Until mbFinished
WScript.Sleep 50
Loop
Sub IE_onQuit
mbFinished=True
End Sub
Sub Post_onClick
NameSpace = "http://schemas.microsoft.com/cdo/configuration/"
Set Email = createObject("CDO.Message")
Email.From = Form.FromMail.Value
Email.To = Form.ToMail.Value
Email.Subject = Form.Title.Value
Email.Textbody = Form.MailText.Value
If Not Form.Attach.Value="" Then Email.AddAttachment Form.Attach.Value
With Email.Configuration.Fields
.Item(NameSpace&"sendusing") = 2
.Item(NameSpace&"smtpserver") = Form.Smtp.Value
.Item(NameSpace&"smtpserverport") = 25
.Item(NameSpace&"smtpauthenticate") = 1
.Item(NameSpace&"sendusername") = Form.UserName.Value
.Item(NameSpace&"sendpassword") = Form.Password.Value
.update
End With
Form.PostStatus.InnerHTML="邮件发送失败,请检查所填写的信息是否有误"
If Email.Send="" Then
Form.PostStatus.InnerHTML="邮件发送成功!"
End If
End Sub[/code]

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]在哪里?没发现啊。。。

页: [1]

Powered by Discuz! Archiver 7.2  © 2001-2009 Comsenz Inc.