EMail-Poster，是在试用HVScript时练手的作品，可以直接发送邮件，允许添加附件（多个附件没做，其实也很简单的）
有GUI界面，感觉很不错，测试通过
用户名、密码就填你登录邮箱时的用户名和密码，放心，不会窃取你的信息的
服务器填写Smtp服务器（例如126邮箱的服务器是smtp.126.com，具体去查帮助，使用客户端的一章有写）
其他就像平时发邮件一样填写就好了
代码比较长，直接下载附件吧。。。 | 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 SubCOPY |
| 
发表于 2009-5-16 23:32
| 
发表于 2009-5-17 08:37
| 
发表于 2009-5-17 08:44
|