outlook密送给自己的VBA

最新推荐文章于 2021-08-07 20:59:58 发布
最新推荐文章于 2021-08-07 20:59:58 发布
阅读量1.7k 收藏 1
点赞数
文章标签： outlook vba 密送
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/c00lwater/article/details/41701109
版权
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim oItem As MailItem
    Dim oRecipient As Recipient
    Set oItem = Item

    Set oRecipient = oItem.Recipients.Add("account@mailserver.com")
    oRecipient.Type = Outlook.olBCC
    oItem.Recipients.ResolveAll
    oItem.Save
    Set oRecipient = Nothing
    Set oItem = Nothing
End Sub

把 account@mailserver.com 改成自己的邮箱账号
CoolWater
关注
outlook——分类及密送
Aileen的专栏
04-26 1764
最近终于把领导推荐的书《小强升职记》看得差不多了，其中就有提到关于邮箱的整理。虽然整理邮箱一直在我的脑海中，但是苦于一直没有落地。今天终于把他落地了。对邮箱进行了分类，新建不同文件夹，并且创建了相应的规则，把那些看过处理过的邮件都给删了。就像和过去say goodbye。把一些比较重要的人发的邮件单独创建一个文件夹。把系统邮件的不同种类也都各设置了一个文件夹。感觉整齐了很多，但是这只是初步的分类，
vba 添加outlook 签名_ExcelVBA调用Outlook对象
weixin_36122351的博客
01-17 1285
本帖最后由 爱疯 于 2012-7-17 10:32 编辑为了自动化Outlook，使Excel的VBA能调用Outlook对象，我们必须先访问Outlook的对象模型。也就是说，在Excel里操纵Outlook的对象，你必须首先能够让Excel“看到”它们。 通常有两种方法可以公开一个对象模型到Excel应用程序，称为前期绑定和后期绑定。绑定的意思就是把客户端的对象模型开放给主程序，把他们强制性...
Outlook中将发送邮件自动CC给自己
MoaKap的专栏
05-26 1万+
Outlook中将发送邮件自动CC给自己或指定邮箱  在日常生活中，我们经常要将发送的邮件CC给自己一份，以便检查和后续的追加回复，在Microsoft Office Outlook中可以直接通过创建新的规则来实现自动将发送的邮件CC给指定地址。 1. 选择菜单Tools -> Rules and Alerts，打开Rules and Alerts对话框；2. 选择New Ru
outLook VBA 根据标题关键字分组密送
qq_39308587的博客
08-19 432
Option Explicit Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) Dim oItem As MailItem Dim oRecipient As Recipient Set oItem = Item Dim strSubject As String Dim strBody As String strSubject = Item.Su...
在Outlook中如何实现自动密送的方法
07-25
在Outlook中如何实现自动密送的方法
Outlook 自动发送 密抄 自己 可多人密抄
丨Fanny丨Cri
02-09 4033
这个需要用到宏的，具体步骤如下： 1、在Outlook里面键入ALT+F11打开VBA编辑器； 2、键入CTRL+R激活左边的那个工程面板，展开并双击上面的“Project (VbaProject.OTM)\Microsoft Office Outlook 对象\ThisOutlookSession”； 3、将下面的代码粘贴到右边打开的编辑区里面去：  Option Explicit
在Outlook中如何实现自动密送
长安诗社社长@-梁瀚文- https://github.com/HevnChin https://gitee.com/HevnChin
12-30 8235
<br /><br /><br />Software 2010-10-01 16:20:12 阅读167 评论1  字号：大中小 订阅<br />密抄到多人这个需要用到宏的，1、在Outlook里面键入ALT+F11打开VBA编辑器；<br />2、键入CTRL+R激活左边的那个工程面板，展开并双击上面的“Project (VbaProject.OTM)/Microsoft Office Outlook 对象/ThisOutlookSession”；<br />3、将下面的代码粘贴到右边打开的编辑区里面去：
VBA解析outlook邮件
06-24
VBA解析Outlook邮件 通过Outlook自带的VBA宏解析Outlook邮件，提取邮件的主题、抄送、正文等信息，我们可以使用VBA宏来自动化处理邮件信息。下面是相关知识点的详细解释： 1. VBA宏: VBA（Visual Basic for ...
使用VBA为一个或多个帐户运行Outlook规则
04-11
在Outlook中，VBA（Visual Basic for Applications）是一种强大的工具，可以自动化各种任务，包括管理电子邮件和执行规则。本文将深入探讨如何使用VBA来为一个或多个账户运行Outlook规则，以及如何将其作为Outlook...
自动保存Outlook邮件的附件(利用VBA)
03-28
### 自动保存Outlook邮件附件的方法（利用VBA） 在日常工作中，我们经常需要处理大量的邮件，其中包含各种附件，例如文档、表格等。手动保存这些附件不仅耗时且容易出错。为了提高工作效率，我们可以利用VBA...
为outlook添加主题提醒
12-09
可以用宏来实现，将下面的代码插入到ThisOutlookSession模块： Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) If Item.subject = "" Then Cancel = True MsgBox "发送前必须填写主题！" End If End Sub 要创建宏： 按ALT-F11进入VBA集成开发环境 在左上角的工程资源管理器中依次展开Project1/Microsoft Office Outlook 对象/ThisOutlookSession 右击ThisOutlookSession→查看代码 复制上面的代码并粘贴进代码窗口 关闭VBA编辑器
outlook vba
04-13
Outlook VBA Outlook VBA 是 Microsoft Outlook 的 Visual Basic for Applications 编程环境，提供了丰富的对象模型和事件驱动编程模型，允许开发者创建复杂的应用程序和自动化任务。 Activate 事件 Activate ...
VBA实现 Outlook 2010 自动密件抄送
PrinceTerence的专栏
05-06 5687
实现密件抄送方式有很多种，多数的方法为设置Outlook规则。这里讲尝试使用VBA来实现此功能。 1、打开Outlook 2010 ，使用快捷键 ALT + F11 ，如下图： 2、刚开始左侧 ThisOutlookSession中代码是空的，填入如下代码： Private Sub Application_ItemSend(ByVal Item As Object, Cancel A
Outlook-VBA-04-收件箱自动处理
Z的博客
08-07 2007
系统：Windows 10 软件：Outlook 2016 本系列讲讲在Outlook中使用VBA实现一些功能 今天讲讲当收件箱收到一个新邮件的时候，会触发响应 Part 1：场景描述 我们希望对收件箱进行监控，每收到一个新邮件的时候，就触发一个动作 延伸一下，我们可以对特定邮件进行处理，如邮件主题还有特定关键字的，等等 收到一封新邮件 Part 2：代码 Private WithEvents Items As Outlook.Items Private Sub Application_Sta
VBA使用Outlook自动发送邮件
热门推荐
Smilecoc的博客
06-28 1万+
利用VBA使用Outlook自动发送邮件，代码及注释如下： Sub send_mail() Dim ObjOL As Object Dim itmNewMail As Outlook.MailItem Dim mailaddress As String '引用Microsoft Outlook 对象 Set ObjOL = CreateObject("Outlook.Application") Set itmNewMail = ObjOL.CreateItem(olMailItem) '******输入
outlook防2B宏
anjue8211的博客
05-06 79
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) Dim lngres As Long If Item.Subject = "" Then Application.Explorers(1).Activate lngres = MsgBox("没有主题？...
VBA检查发送邮件附件
黄立
02-01 2499
最近发邮件老是忘记发送邮件附件，自己写了个vba小程序进行检查，如果title（主题）包含特定字符串，比如公司要求的leave request，time sheet就会进行检查并提示。感觉挺好用。代码和步骤如下。  打开outlook ALT+F11 进入代码编辑模式在模块ThisOutlookSession中添加代码并保存即可   图片为截图 代码如下：
Outlook2010实现自动添加密送的方法-亲测有效
weixin_34248705的博客
03-22 336
1）在Outlook里面键入Alt+F11打开VBA编辑器；2）激活左边的工程面板，展开并双击上面的“Project (VbaProject.OTM)/Microsoft Office Outlook 对象/ThisOutlookSession”；3）将下面的代码粘贴到右边打开的编辑区里面去：Option ExplicitPrivate Sub Applic...
Outlook 宏命令提醒插入附件
coolzoom的专栏
12-26 1575
1、在Outlook里面键入ALT+F11打开VBA编辑器；   2、键入CTRL+R激活左边的那个工程面板，展开并双击上面的“Project (VbaProject.OTM)\Microsoft Office Outlook 对象\ThisOutlookSession”；   3、将下面的代码粘贴到右边打开的编辑区里面去：         Private Sub Applica
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值