VBS发送邮件-1

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://schemas.microsoft.com/cdo/configuration/smtpserver")= "smtp.163.com" ‘邮件服务器

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = ""‘用户名

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = ""‘密码

objCDOSYSCon.Fields.Update

Set objMail.Configuration = objCDOSYSCon

‘‘系统配置结束
objMail.From = ""‘‘发送人

objMail.Subject = "网站客户提交信息" ‘‘标题

objMail.To = ""‘‘收件人

objMail.HtmlBody ="发送内容测试"‘发送内容。

objMail.Send

Set objMail = Nothing

Set objCDOSYSCon = Nothing

时间： 2024-12-05 15:14:20

VBS发送邮件-1的相关文章

6. SQL Server数据库监控 - 如何告警

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

VBS 自动发送邮件

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----收

Hr福利，用vbs自动定时发送邮件，可以用户员工生日提醒

1.创建txt文件,将一下代码复制到里面,后缀名改为.vbs 2.创建计划任务,定时执行(不会的百度或者留言) 3.准备好对应的excel 和背景图,excel有三列,姓名生日和邮箱 Function sendEmail(nameVal, myBirthdayVal, myEmailVal, content1, content2) OnErrorResumeNext NameSpace = "http://schemas.microsoft.com/cdo/configuration/"

VBS实现定时发送邮件

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

发送邮件的三种方式：Send Mail Message

发送邮件的三种方式: 1.VBS 执行vbs脚本文件的程序为: system32文件下的 NameSpace = "http://schemas.microsoft.com/cdo/configuration/" Set Email = createObject("CDO.Message") Email.From = "xxx" '發送者 Email.To = "xxx;xxx" '收件地址 Email.Subject = &

Vbs脚本将本地文件上传到Azure存储账户

说到Azure相信大家都已经非常熟悉了,所以就不做多介绍了,我们都知道在Azure上有一个存储账户,在存储账户下可以可以创建容器,可以存放数据,近期公司呢为了达到数据的安全性,准备将本地的备份数据给Azure存储账户下备份一份: Azure提供了很多方法可以将本地的文件上传到Azure存储账户下,比如Powershell.Azcopy.存储文件管理工具,但是存储工具和powershell不支持断点续传,只有Azcopy支持断点续传,所以我们就用Azcopy进行数据的传输,在此说一下Azcopy也

VBS脚本病毒特点及如何防范3(转)

5．Vbs病毒生产机的原理介绍所谓病毒生产机就是指可以直接根据用户的选择产生病毒源代码的软件.在很多人看来这或许不可思议,其实对脚本病毒而言它的实现非常简单. 脚本语言是解释执行的.不需要编译,程序中不需要什么校验和定位,每条语句之间分隔得比较清楚.这样,先将病毒功能做成很多单独的模块,在用户做出病毒功能选择后,生产机只需要将相应的功能模块拼凑起来,最后再作相应的代码替换和优化即可.由于篇幅关系和其他原因,这里不作详细介绍. 三.如何防范vbs脚本病毒 1．如何从样本中提取(加密)脚本病毒

Tomcat监控系列——发送邮件

上篇中有提到要实现发送邮件功能,且发送邮件是当监控软件发现异常时调用restartServer.bat文件来执行指定命令而实现的发送操作.在选择实现时该功能时我首先想到了命令行发邮件的一个不错的工具Blat,使用该工具实现发邮件非常简单,现做简要介绍. 一.实现blat发送邮件下载blat可以去官网:http://www.blat.net/ 当然你也可以去网上百度下,也会有大把下载资源. 下载之后解压找到如下图几个文件,把它们放到C:\WINDOWS\system32下面,这样做为了方便通过

用VBS脚本发邮件

需求是这样的:针对账号的管理,如果发现该账号的管理员给账号加了批注,(比如要过期,修改密码,完善资料等),就需要找到这样的账号及其管理的邮件,然后发邮件给他们的管理员同时抄送给账号以达到提醒的目的.那么我们的实际项目中是这样管理的: 有三个表,第一张表用来存放账号的所有信息,以及这个账号的备注,第二张表存放了账号信息以及他的管理员的名字等信息,第三张表就存放管理的信息以及管理员的邮件地址.都是excel表思路是这样:首先在表一里找到所有备注栏不为空的账号,然后把这些账号拿到第二张表里去搜索,如