网站改版的影响,西安网站 建设,工业产品设计就业前景,网站建设申请书利用VBScript发送邮件,以前从网上找的代码,不知原来的出处了.也不知作者是何人…..挺有用的脚本,我就一直在使用这个脚本来发邮件,还可以带附件.放在这里做个备份,免得到时又找不到了.目前我就通过批处理配合这个脚本来自动备份我的一些文件到邮箱里面.每天自动定时备份.反正许…利用VBScript发送邮件,以前从网上找的代码,不知原来的出处了.也不知作者是何人…..挺有用的脚本,我就一直在使用这个脚本来发邮件,还可以带附件.放在这里做个备份,免得到时又找不到了.目前我就通过批处理配合这个脚本来自动备份我的一些文件到邮箱里面.每天自动定时备份.反正许多邮件的空间是无限的,,用来作备份也是挺不错的.一般都可以上传30-50MB附件,基本上够用了.code by NetPatchVBS发送邮件参数说明You_Account你的邮件帐号You_Password:你的邮件密码Send_Email: 主要邮件地址Send_Email2: 备用邮件地址Send_Topic: 邮件主题Send_Body:邮件内容Send_Attachment:邮件附件function Send_mail(You_Account,You_Password,Send_Email,Send_Email2,Send_Topic,Send_Body,Send_Attachment)You_IDSplit(You_Account, , -1, vbTextCompare)帐号和服务器分离MS_Space http://schemas.microsoft.com/cdo/configuration/这个是必须要的不过可以放心的事不会通过微软发送邮件Set Email CreateObject(CDO.Message)Email.From You_Account这个一定要和发送邮件的帐号一样Email.To Send_Email 主要邮件地址If Send_Email2 ThenEmail.CC Send_Email2 备用邮件地址End IfEmail.Subject Send_Topic 邮件主题Email.Textbody Send_Body 邮件内容If Send_Attachment ThenEmail.AddAttachment Send_Attachment 邮件附件End IfWith Email.Configuration.Fields.Item(MS_Spacesendusing) 2 发信端口.Item(MS_Spacesmtpserver) smtp.You_ID(1) SMTP服务器地址.Item(MS_Spacesmtpserverport) 25 SMTP服务器端口.Item(MS_Spacesmtpauthenticate) 1 cdobasec.Item(MS_Spacesendusername) You_ID(0) 你的邮件帐号.Item(MS_Spacesendpassword) You_Password 你的邮件密码.UpdateEnd WithEmail.Send发送邮件Set EmailNothing关闭组件Send_MailTrue如果没有任何错误信息则表示发送成功,否则发送失败If Err ThenErr.ClearSend_MailFalseEnd IfEnd Function以下是利用上面的函数发送带附件的邮件例子Attachmentwscript.Arguments(0)Topicchenall_soft;AttachmentSet objIE CreateObject(InternetExplorer.Application)objIE.Navigate(about:blank)Body objIE.document.parentwindow.clipboardData.GetData(text)objIE.Quitset objienothingset oArgs wscript.Argumentswhile iIndex oArgs.Countwscript.echo oArgs(iIndex) iIndex iIndex 1wendIf Send_Mail(USERNAME,PASSWORD,sendto,,Topic,Body,Attachment)True ThenWscript.Echo 发送成功ElseWscript.Echo 发送失败End If
