Email.bat---------------
REM send Email REM ========== set emailRecvList=p@e.com set emailFrom=U@e.com set emailSubject=Email Testing set emailBodyContent=20131007_testMail.txt set ipaddress=11.11.11.11 %windir%\system32\wscript.exe sendmail.vbs -t "%emailRecvList%" -f "%emailFrom%" -s "%emailSUbject%" -b "%emailBodyContent%" -p "%ipaddress%"
sendmail.vbs----------------------
'-------------------------------------------------- ' ' Sends email from the local SMTP service using CDO objects ' ' Usage: ' sendmail -t <to> -f <from> -s "<subject>" -b "<message file>" -p <ipaddress> ' sendmail [-help|-?] ' '-------------------------------------------------- Option Explicit On Error Resume Next Dim objSendMail, oArgs, ArgNum, AttNum, objFSO, objTextFile Dim strTo, strFrom, strSubject, strBody, strIP Const ForReading = 1 Set oArgs = WScript.Arguments ArgNum = 0 AttNum = 0 While ArgNum < oArgs.Count Select Case LCase(oArgs(ArgNum)) Case "-to","-t": ArgNum = ArgNum + 1 strTo = oArgs(ArgNum) Case "-from","-f": ArgNum = ArgNum + 1 strFrom = oArgs(ArgNum) Case "-subject","-s": ArgNum = ArgNum + 1 strSubject = oArgs(ArgNum) Case "-body","-b": ArgNum = ArgNum + 1 Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFile = objFSO.OpenTextFile (oArgs(ArgNum), ForReading) strBody = objTextFile.ReadAll objTextFile.Close Case "-ipaddress","-p": ArgNum = ArgNum + 1 strIP = oArgs(ArgNum) AttNum = AttNum + 1 Case "-help","-?": Call DisplayUsage Case Else: Call DisplayUsage End Select ArgNum = ArgNum + 1 Wend If oArgs.Count=0 Or strTo="" Or strFrom="" Or _ strSubject="" Or strBody="" or strIP="" Then Call DisplayUsage Else Set objSendMail = CreateObject("CDO.Message") objSendMail.From = strFrom objSendMail.To = strTo objSendMail.Subject = strSubject objSendMail.Textbody = strBody & vbCrLf & vbCrLf objSendMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objSendMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _ strIP objSendMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objSendMail.Configuration.Fields.Update objSendMail.Send Set objSendMail = Nothing End If ' Display the usage for this script Sub DisplayUsage WScript.Echo "Usage:" WScript.Echo " sendmail -t <to address> -f <from address> -s " & _ Chr(34) & "<subject>" & Chr(34) & " -b " & Chr(34) & _ "<message file>" & Chr(34) & " -a " & Chr(34) & "<ipaddress>" WScript.Echo " sendmail [-help|-?]" WScript.Echo "" WSCript.Quit End Sub
相关推荐
采用vbscript实现邮件发送,文件上传和下载 全部都是vbscdipt实现的,希望对大家有用。
用window服务写的一个定时发送邮件的小程序.经过测试可用.有详细的windows服务安装步骤和卸载步骤!
用vbscript判断email地址的合法性, 给大家分享一下,绝不会让大家失望的!
VBScript用于将IP信息发送到电子邮件地址
利用DOS指令和VBS 脚本语言,实现远程登陆监视(端口监视)并发送外部邮件提醒。设置服务器计划任务或编译成系统服务常驻内存。
(4)通过电子邮件传播的病毒通常用VBScript编写,且大多数采用附件的形式夹带 在电子邮件中。当收信人打开附件后,病毒会查询他的通讯簿,给其上所有或部分人发 信,并将自身放入附件中,以此方式继续传播扩散。 3...
一个简单的jmail邮件随机发送功能,可以自动生成有效的QQ邮箱地址,每次同时发送5个邮箱
从源代码中可以看得出来,该作者很可能是长期从事网络编程的高手,他对vbs的认识可谓精通,使用的许多技术细节都鲜为人知,尤其是利用了类型库(type library)成功地避开了安全审核的手段更是令人叹为观止。
也可以在vbscript中使用! 将代码复制到文本文件并以* .vbs扩展名保存,然后双击以激活。 超酷。更多信息 提交时间经过等级中间的用户评分4.9(来自22个用户的108个地球仪) 兼容性VB 5.0,VB 6.0 类别 世界 存档...
从SharePoint电子邮件通知中提取超链接并将其显示在HTML树中
全书共分30章,分别是开发环境,语言基础,字符及字符串处理技术,日期与时间,数据验证技术,VBScript函数的应用,VBScript的流程控制语句,内置对象,内置组件,ActiveX组件,表单,窗口与导航条设计,键盘与鼠标...
全书共分30章,分别是开发环境,语言基础,字符及字符串处理技术,日期与时间,数据验证技术,VBScript函数的应用,VBScript的流程控制语句,内置对象,内置组件,ActiveX组件,表单,窗口与导航条设计,键盘与鼠标...
全书共分30章,分别是开发环境,语言基础,字符及字符串处理技术,日期与时间,数据验证技术,VBScript函数的应用,VBScript的流程控制语句,内置对象,内置组件,ActiveX组件,表单,窗口与导航条设计,键盘与鼠标...
全书共分30章,分别是开发环境,语言基础,字符及字符串处理技术,日期与时间,数据验证技术,VBScript函数的应用,VBScript的流程控制语句,内置对象,内置组件,ActiveX组件,表单,窗口与导航条设计,键盘与鼠标...
全书共分30章,分别是开发环境,语言基础,字符及字符串处理技术,日期与时间,数据验证技术,VBScript函数的应用,VBScript的流程控制语句,内置对象,内置组件,ActiveX组件,表单,窗口与导航条设计,键盘与鼠标...
另一个是基于HTTP的压缩传输软件,这两个软件花费了我很多心血(尽管里面还有一些BUG),但我准备把他作为免费软件,来庆贺我的生日,如果你想使用或想得到源码请发邮件给我。 第一个软件,传输流/文件的压缩...
在ASP应用中限制同一表单被多次提交 在Web网页上使用VBScript和JScript 编写Web方式上载文件的ASP组件 利用ASP开发网络聊天室 “用ASP建造聊天室”的一点补充 用ASP 实 现 分 页 显 示 用ASP方式实现拥有动态伸缩...
用于将邮件项目保存到单独的文件并保持文件夹结构的源代码
62.如何用Visual Basic编写ActiveX DLL及其使用 63.如何远程注册DLL文件 64.如何把ASP代码编写成DLL文件 65.如何在ASP中引用类 第5章 ADO数据库 67.如何创建一个断开连接的数据库访问页 68.如何获取数据库表名、...