VBS 自动发送邮件

‘---------------------------------------------------------------------------------

‘函数名称 : SendMail

‘函数功能 : 自动发送邮件功能

‘函数输入 : SendTo----收件人，多个收件人可使用";"隔开

‘ MailTopic----邮件主题

‘ MailBody----邮件内容,此处内容格式为Html

‘ MailAttachment---邮件附件，多个附件可使用";"隔开

‘函数输出 : Boolean,邮件是否发送成功

‘---------------------------------------------------------------------------------

Function SendMail(SendFrom,Password,SendTo,MailTopic,MailBody,MailAttachment)

On error resume next

MS_Space = "http://schemas.microsoft.com/cdo/configuration/"

Set Email = CreateObject("CDO.Message")

Email.BodyPart.Charset = "GBK"

Email.From = SendFrom

Email.To = SendTo

Email.Subject = MailTopic

Email.Htmlbody = MailBody

If MailAttachment <> "" Then

For i=0 to Ubound(Split(MailAttachment,";"))

Email.AddAttachment Split(MailAttachment,";")(i)

Next

End If

With Email.Configuration.Fields

.Item(MS_Space&"sendusing") = 2

.Item(MS_Space&"smtpserver") = "smtp."&Split(SendFrom,"@",-1, vbTextCompare)(1)

.Item(MS_Space&"smtpserverport") = 25

.Item(MS_Space&"smtpauthenticate") = 1

.Item(MS_Space&"sendusername") =Split(SendFrom,"@",-1,vbTextCompare)(0)

.Item(MS_Space&"sendpassword") = Password

.Update

End With

Err.clear

Email.Send

If Err.number<>0 Then

SendMail=False

Else

SendMail=True

End If

Set Email=Nothing

End Function

VBS 自动发送邮件,布布扣,bubuko.com

时间： 2024-10-25 01:22:34

VBS 自动发送邮件的相关文章

C#自动发送邮件

using System; using System.Collections.Generic; using System.Linq; using System.Net.Mail; using System.Text; using System.Threading.Tasks; namespace QQEmail { class Program { static void Main(string[] args) { for (int i = 0; i < 50; i++) { MailMessag

jenkins配置自动发送邮件

1.开通QQ的SMTP服务,需要发一条短信,qq会给你一个密码(不是你的QQ邮箱密码哦) https://jingyan.baidu.com/album/4b07be3cb2f74148b380f3e4.html?picindex=1 2.安装 Email Extension Plugin 插件 3.管理员邮箱设置 3.1系统管理员邮件地址 3.2 找到 Extended E-mail Notification jenkins配置自动发送邮件

用shell脚本监控linux系统自动发送邮件

此脚本可以做一个定时的检测,超出设定的值,即往邮箱发送警告脚本用到bc,sendmail,163邮箱, yum install bc #!/bin/bash #System Monitoring Script while [ 1 ] do #本机需开启postfix或sendmail服务. #报警邮件地址设置 [email protected] [email protected] #设置脚本运行间隔时间.单位(秒). RUNTIME=900 #内存使用率监控设置,单位 (%) MEMTHRE=

【C#】新建服务自动发送邮件

---windows服务,---自动发送邮件邮件发送code #region 发送邮件函数 public void SendMailUseZj() { System.Net.Mail.MailMessage msg = new System.Net.Mail.MailMessage(); string[] mailToUsers = ConfigurationManager.AppSettings["mailToUser"].Split(','); for (int i = 0; i

AIX系统自动发送邮件并添加附件

分享一个AIX系统自动发送邮件并添加附件的脚本,脚本如下: #!/usr/bin/ksh #---------------------------------------------------------------# # Script Name : HMH KSH BACKUP Shell # Created by : Xin23 # on : 2015.02.05 #----------------------------------------------------

利用Python自动发送邮件

# -*- coding:utf-8 -*-from email.mime.text import MIMETextfrom email.header import Headerimport smtplib def send_mail(file_new): f = open(file_new,'rb') mail_body = f.read() f.close() msg = MIMEText(mail_body,'html','utf-8') msg['Subject'] = Header(

自动发送邮件（整理版）

菜鸟D在工作时,用户提到要给系统添加一个定时发送邮件的功能,这个菜鸟D没有写过,只是知道基本原理是怎么回事.根据我的想法:新开一个线程,线程中添加一个计时器,由计时器来完成定时的任务.至于发送邮件,写个方法就OK了,毕竟网上封装好的发送邮件功能都烂大街了.但是在实际工作的时候却发生一些意外,比如线程什么时候开启?随时用随时开启还是一启动就开启,毋庸置疑是后者嚒.有了思路一切都好办了,在网上搜索一部分资料整理如下: 自动发送邮件,通常使用的几种方法: 1.使用winform做UI时,可以在程序的l

Redmine发布新闻，自动发送邮件功能失效恢复

问题描述:操作数据库,修改项目公开状体后,创建新闻,自动发送邮件功能失效. 问题检查和恢复测试: 1.检查管理员权限 2.重新手动配置项目公开状态,覆盖数据操作 3.对比其他正常项目数据库状态,进行恢复. 恢复结果: 原文地址:https://www.cnblogs.com/YatHo/p/8341096.html

PCB 自动发送邮件---加入表格实现方法

先看一下手动发送邮件内容加入表格操作(下图所示),直接复制Excel内容,再粘贴到邮件内容中,就是这么便捷,如果我们想自动发送邮件,也实现同样的效果如果实现呢,在这里介绍2种方法: 一.读取Excel转为HTML 1.C#读取Excel转为HTML代码 /// <summary> /// 测试用拼接Html /// </summary> public void Test() { string Body = @"你好: 附件为[{FileName}]资料,请注意查收. {T