vfp 右键发送邮件_邮件批量发送的方法教程

实际工作中经常会遇到批量发邮件的需求,比如发送工资条、节日祝福、定期汇报工作成果、日报、周报、月报等，当然如果发送的邮件不是很多的话完全可以手工发送,一旦遇到批量发送的场景,手工一份一份的发送就会变得机械而重复劳动了。今天分享一个Excel调用电脑OutLook批量发送邮件的技巧，小伙伴们可以，先收藏，等要用到的时候可以有备无患，从容应对，别人加班的时候你还可以准点下班，那岂不是很乐哉！

一、先看看我们需要实现的效果。

发邮件跟写公式一样简单^-^

二、怎样才可以实现？

原理：通过VBA定义一个发邮件的函数，达到批量发送邮件时跟普通公式的用法一样简单的效果。

上面的效果图中我们定义了一个sendmail的函数，如果你现在打开你的excel找这个函数是找不到的，因为这个并不是office的内置函数,但微软给office产品都安装了一个神技能 “宏”,表亲们应该都听过这个，这次咱先不去追究这到底是什么东西,先看如何实现。

具体步骤：

新建一个空白的Excel文件。
打开Excel文件,按快捷键ALT+F11进入VBE界面。
点击左边的工程窗口,点击鼠标右键,新建一个模块。
把代码贴入到模块中。
回到Excel界面,开始验证发邮件函数。
上面文字没看懂的请看下面的演示。

三、发邮件的VBA代码。

感兴趣的童鞋们可以复制以下代码按上面的操作试一试。

'发送邮件函数 sendto收件人多个用英文分号链接 subj邮件主题 mbody邮件正文 filepath附件路径Public Function sendmail(sendto As String, subj As String, mbody As String, filepath As String) On Error Resume Next Dim oLapp As Object Dim oItem As Object Set oLapp = CreateObject("Outlook.application") Set oItem = oLapp.createitem(0) With oItem .Subject = subj .To = sendto .htmlbody = mbody '加上这一句就可以添加附件 .Attachments.Add filepath .Send '判断是否发送成功 If Err.Number = 0 Then sendmail = "发送成功" Else '如果发送失败则返回失败原因 sendmail = "发送失败:" & Err.Description End If End With Set oLapp = Nothing Set oItem = NothingEnd Function

四、保存我们定义的邮件函数。

如果你的Excel是2007及以上版本的，保存的时候会出现如下提示。
保存时请选择启用宏的工作簿即可。

补充说明：

2007版本及以上的Excel为了保证安全性,强制了含VBA代码的专用文件格,常用存为xlsm格式。

2003版本的Excel,后缀是xls的Excel文件可以直接存储VBA代码,不需要另存为其他格式。

如有疑问欢迎小伙伴们点关注,共同探讨学习。

vfp 右键发送邮件_邮件批量发送的方法教程相关推荐

asp发送html邮件,用HTML格式发送邮件_邮件相关_ASP教程
用HTML格式发送邮件_邮件相关_ASP教程用HTML格式发送邮件_邮件相关_ASP教程日期:2009-06-07 浏览次数:20491 次你可以通过SMTP服务或者MS Exchange发送H ...
python 实现邮件批量发送(你懂得)
用python实现邮件批量发送整蛊朋友,此文章仅供学习,切勿用于非法行为话不多说,我们来讨讲解实现思路. 明确需求首先发送邮件,需要有发件人,收件人其次一封邮件,必须有标题,内容代码流程获取 ...
springboot实战，实现发送邮件,gmail邮件,包括发送附件还有正文，以及注意覆盖问题
springboot实现发送邮件,gmail邮件,包括发送附件还有正文,以及注意覆盖问题复盘下前个把月前写的个关于邮件激活的接口,踩了些坑,就当记录下前言 `需求:发送邮件审核,点击邮件链接之后, ...
java 延时发送邮件_java编程实现邮件定时发送的方法
本文实例讲述了java编程实现邮件定时发送的方法.分享给大家供大家参考,具体如下: 最近做项目时客户提出了一个需求:系统定时发送E-mail到其客户,达到通知的效果.先将实例分享给大家,如果确实有一些 ...
python练手_邮件定时发送
#加载模块 import pymysql import time import smtplib #发送邮件模块 from email.mime.text import MIMEText #定义邮件内容 ...
java ssl发送邮件_通过SSL发送的Java邮件
java ssl发送邮件抽象本博客的目的是演示如何使用Java Mail通过具有SSL连接的SMTP服务器发送电子邮件. 免责声明这篇文章仅供参考. 在使用所提供的任何信息之前,请认真思考. 从 ...
发送邮件_使用 Python 发送电子邮件
在实际运用中,我们可能需要通过电子邮件告诉我们 Python 运行的结果的是否与预期的一致.现在我们就来看一下,怎么通过 Python 发送邮件. 这个示例中我们需要用到的第三方库有: •smtpli ...
python 发送邮件普通邮件 HTML 发送带附件群发邮件
我是一个测试工程师,在做自动化时,会写一些自己用的好的工具,目前有一些现成的工具,自己用着,不是大材小用,就是不符合实际需求,这次整理一个发送邮件的脚本. 文章目录 1. smtplib 与 emai ...
【Python】邮件批量发送
使用场景: 需要发送大量邮件,且每个邮件的对象及内容都不一致的情况实现逻辑: 将需要发送的邮件信息存到excel里面,通过pandas的read_excel方法读取excel里面的信息,然后编写邮件 ...

vfp 右键发送邮件_邮件批量发送的方法教程

vfp 右键发送邮件_邮件批量发送的方法教程相关推荐

最新文章

热门文章