Set objMail = Server.CreateObject("CDO.Message") Set objCDOSYSCon = Server.CreateObject("CDO.Configuration") objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") =2 objCDOSYSCon.Fields("http://…

在网上查找资料的时候发现好多经典的vbs代码收集起来也为了以后学习. VBS播放音乐 Dim wmp Set wmp = CreateObject("WMPlayer.OCX") wmp.openState wmp.URL = "想象之中.mp3" Do Until wmp.playState = 1 WScript.Sleep 1000 Loop 比较流行的VBS整人脚本(保存为“礼物.VBE”这样就可以通过QQ发送了) Set shell=CreateObje…

MsgBox "兄弟呀,你最近是否失眠",vbinformation Randomize() Dim a a=Int(rnd*2) Select Case a Case 0 MsgBox ("我也是这样啊``````") Case 1 MsgBox ("(-.-),同是天涯失眠人.") Case 2 MsgBox ("(~.~),还是说你没有失眠") End select MsgBox ("告诉你一个祖传秘方&quo…

原文:6. SQL Server数据库监控 - 如何告警 常用的告警方式大致有:短信.邮件.应用程序 (beep提示,图标提示,升窗提示等),可是不能一直坐在电脑前看着应用程序,或者用脚本部署监控,根本没有程序界面,所以通常用短信.邮件两种方式告警. 一. 告警方式 1. 短信 用程序发短信的方式一般有这两种: (1) 硬件 需要1张SIM卡,1个SIM卡读卡设备 (比如:短信猫),然后把设备连接到电脑,应用程序根据设备的软件接口,传参并发送短信.记得把SIM卡设备放在信号好,无干扰的地方: 如…

目录 环境说明逻辑结构效果说明及截图①.安装SecureCRT②. 自动巡检脚本③. 数据检索并FTP传送④. 安装Excel 2013⑤. 安装Serv-U⑥. 自动生成图表并邮件发送 环境说明 系统: Windows Server 2003, Windows Server 2008 Windows Server 2003上目录结构: Windows Server 2008 上的目录结构: 系统说明: 可在一台机器上进行[Windows Server 2008支持Excel 2013], 本文…

OUTLOOK有延迟传递功能,可延迟传递的发送邮件在功能设计时(mircosoft的support帮助页的解释)就是邮件发送时的时间而不是邮件发送成功后的时间.比如早上10点发一封11点后的延迟传递邮件,11点后成功发出,可邮件的发送时间显示还是10点而不是我想要的发送成功后的时间11点!所以想用vbs调用outlook发送邮件,配合windows计划任务设置定时启动. vbs调用outlook发送邮件代码 以下test1.vbs.test2.vbs代码方式在windows7下测试了,都行: t…

原理:建立CDO.Message对象,设置好参数后直接Send就可以了 代码如下: NameSpace = "http://schemas.microsoft.com/cdo/configuration/" Set Email = CreateObject("CDO.Message") Email.From = "你的Email地址" Email.To = "接收方的Email地址" Email.Subject = "…

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 '--------------------------------------------------------------------------------- '函数名称 : SendMail '函数功能 : 自动发送邮件功能 '函数输入 : SendTo----收…

NameSpace = "http://schemas.microsoft.com/cdo/configuration/"Set Email = CreateObject("CDO.Message")Email.From = "hnxxcxg@sohu.com"'Email.To ="hnxxcxg.ca71ad8@m.yinxiang.com"Email.To = "254072148@qq.com"Em…

一.运行过程抛出异常 1.Exception in thread "main" java.lang.NoClassDefFoundError: com/sun/mail/util/LineInputStream 原因:此异常多出现在J2EE版本的邮件服务中,因为J2EE原有jar中包含用于邮件收发的mail.jar,只是版本可能比较低. 解决方法:手动删除J2EE版本里的JavaMail相关的jar包(mail.jar),导入自己下载的新版本mail.jar和activation.ja…