文档章节

Excel VBA发送Email时自动允许Outlook安全对话框

o
 osc_zoa3moe9
发布于 2019/12/07 16:03
字数 511
阅读 28
收藏 0

精选30+云产品,助力企业轻松上云!>>>

在Outlook的宏安全性设置如果选择了“为所有宏提供通知”

 

 

并且,在【编程访问】中选择了“总是向我发出警告”

 

在其他VBA中创建邮件过程中,如果修改Recipients或者执行Send方法,都会弹出一个允许和拒绝的对话框。

 

 

 本帖中包含一个工具,可以自动点击最左侧的【允许】按钮,从而保证程序的连续执行。下载地址: AllowOutlookSecurityDialog.rar

下载后解压缩,其中的exe文件不要双击,放在那儿就行。

然后打开“发邮件.xlsm”,可以看到如下VBA代码: 

Sub Test()
    Dim OutlookApp As outlook.Application
    Set OutlookApp = GetObject(, "outlook.Application")
    Dim mail As outlook.MailItem
    '预先启动AllowOutlookSecurityDialog.exe,60表示总共监视60秒。
    Shell "E:\AllowOutlookSecurityDialog\AllowOutlookSecurityDialog.exe " & "Button 允许 60", vbHide
    For i = 1 To 2
        Set mail = OutlookApp.CreateItem(0)
        With mail
            .Recipients.Add "32669315@qq.com"
            .Subject = Time & " - Mail" & i
            .Send
        End With
    Next i
End Sub

需要注意的是这行代码一定要写在创建邮件之前,因为它是异步调用的,所以在阻塞之前必须启动exe文件。

Shell "E:\AllowOutlookSecurityDialog\AllowOutlookSecurityDialog.exe " & "Button 允许 60", vbHide

其中,"E:\AllowOutlookSecurityDialog\AllowOutlookSecurityDialog.exe "是那个exe文件的具体路径,根据你解压的路径进行调整,注意双引号左侧需要保证一个空格。

另外,"Button 允许 60"里面的允许可以改成Allow(如果你是英文版Outlook),最后的60表示本工具从执行起的监视时间,意思是在60秒内凡是遇到弹出对话框,就自动点击,而不论你创建了多少封邮件。

最后送一个动态图:

 

增强版:

下面是使用UI Automation技术实现的监视器,下载后双击打开其中的exe文件,该窗口会自动最小化到任务栏。

llowOutlookSecurityDialog_UIA.rar

然后,你可以任意创建邮件和发送邮件了。只要遇到安全对话框就自动给你处理了。而且是秒杀,速度非常快!非常实时。

效果图:

 

o
粉丝 1
博文 500
码字总数 0
作品 0
私信 提问
加载中
请先登录后再评论。
邮件群发工具使用说明​

邮件群发工具使用说明 1.准备数据。首先用Word建立群发邮件的数据列表,并命名为”数据列表.docx”,表格的第一行作为表头,列数根据需要设置。列表内容至少要包含两列,一列存放需要群发的邮...

leakey880
2017/04/20
0
0
邮件群发工具使用说明

邮件群发工具使用说明 1.准备数据。首先用Word建立群发邮件的数据列表,并命名为”数据列表.docx”,表格的第一行作为表头,列数根据需要设置。列表内容至少要包含两列,一列存放需要群发的邮...

leakey880
2017/04/20
0
0
[转]Outlook API

本文转自:https://www.cnblogs.com/yl153/p/6711519.html 1、Outlook简介 若要从Outlook 外控制Outlook对象,必须在编写代码的工程中建立对Outlook对象库的引用。 1.1 Outlook Application说...

osc_xhmg53h3
2019/05/05
2
0
如何尽可能的保护VBA代码?

原始出处:www.cnblogs.com/saveutime/p/vbaprotect.html QQ:908852353 Email:saveutime@foxmail.com 20180402: 其实在找到软件Unviewable+ VBA(官网)的时候,我并没有对其加密后的文件...

osc_i9cwf8gz
2018/04/03
2
0
Gamaredon 威胁组织活动相关分析

原文链接:Gamaredon group grows its game 作者:知道创宇404实验室翻译组 研究人员发现,高度活跃的Gamaredon威胁组织在各种恶意活动中使用了未被记录的工具,其中一个是针对微软Outlook的...

知道创宇404实验室翻译组
06/16
0
0

没有更多内容

加载失败,请刷新页面

加载更多

签到领金币模块

  最近做了一个签到模块的需求,主要就是签到,根据连签天数提供不同和奖励并在首页展示不同的文案。奖励分为金币和话费,话费也是通过金币的形式发放,但是有效期只有1天。 签到需求 每日...

osc_2frf70qv
22分钟前
17
0
正交多项式介绍及应用

1 正交多项式的定义 1.1 正交多项式定义 定义: 一个多项式序列 ${ {p_n}(x)} _{n = 0}^\infty $,其阶数为 \([{p_n}(x)] = n\) ,对于每一个 \(n\),这个多项式序列在开区间 \((a,b)\) 上关...

osc_mbhfa1vl
23分钟前
19
0
百万级别数据Excel导出优化

前提 这篇文章不是标题党,下文会通过一个仿真例子分析如何优化百万级别数据Excel导出。 笔者负责维护的一个数据查询和数据导出服务是一个相对远古的单点应用,在上一次云迁移之后扩展为双节...

osc_3g4j2ghj
25分钟前
21
0
Java 字符串比较、拼接问题

@ 目录 1.字符串的比较 1. 1 字符串常量池 1.2 String类型的比较方式 1.3 String的创建方式 1.3.1 直接使用“=”进行赋值 1.3.2 使用“new”关键字创建新对象 1.3.3 intern()方法返回的引用地...

osc_bjmmswh6
26分钟前
12
0
EJB到底是什么?(通俗易懂白话文)

1. 我们不禁要问,什么是"服务集群"?什么是"企业级开发"? 既然说了EJB 是为了"服务集群"和"企业级开发",那么,总得说说什么是所谓的"服务 集群"和"企业级开发"吧! 这个问题其实挺关键的,......

onedotdot
26分钟前
6
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部