Loading... 用了有一段时间的Windows Office 2013 ,新的版本用起来感觉不错,速度快了,更加漂亮了。 我为技术狂在使用Outlook的时候,遇到了一件不爽的事儿,就是Outlook不能设置自动密送,平时工作使用不同的电脑发邮件,想看看自己的邮件回复,就设置了一个另外上午邮箱接受密送。 着了许久,并没发现有次功能 当然,微软的宏也是无所不能的,说以,网上搜寻之,发现有此方法 1)在Outlook里面键入Alt+F11打开VBA编辑器; 2)激活左边的工程面板,展开并双击上面的“Project (VbaProject.OTM)/Microsoft Office Outlook 对象/ThisOutlookSession”; 3)将下面的代码粘贴到右边打开的编辑区里面去: Private Sub Application_ItemSend(ByVal Item As Object, _ Cancel As Boolean) Dim objRecip As Recipient Dim strMsg As String Dim res As Integer Dim strBcc As String On Error Resume Next ' #### USER OPTIONS #### ' address for Bcc -- must be SMTP address or resolvable ' to a name in the address book <span style="background-color: #ff0000;"> strBcc = "someone@somewhere.dom"</span> Set objRecip = Item.Recipients.Add(strBcc) objRecip.Type = olBCC If Not objRecip.Resolve Then strMsg = "Could not resolve the Bcc recipient. " & _ "Do you want still to send the message?" res = MsgBox(strMsg, vbYesNo + vbDefaultButton1, _ "Could Not Resolve Bcc Recipient") If res = vbNo Then Cancel = True End If End If Set objRecip = Nothing End Sub <a href="https://www.crazycen.com/usr/uploads/2013/03/image2.png"><img style="background-image: none; padding-top: 0px; padding-left: 0px; display: inline; padding-right: 0px; border: 0px;" title="image" alt="image" src="https://www.crazycen.com/usr/uploads/2013/03/image_thumb2.png" width="445" height="329" border="0" /></a> 保存退出即可 4)选择菜单“工具-信任中心”,在弹出窗口中选择“宏安全性”,选择“为所有宏提供警告”或者“不执行宏安全性检查”(建议选择前者); 5)重新启动Outlook,看到提示是否否用宏,选择启用。 5)现在,新建邮件中虽然看不到密送收件人,但是发出去的每一封邮件都会自动抄送给了代码中设置的那些BCC收件人了。 当然,你也可以使用收费的插件 <span class="external-link"><a class="no-external-link" href="http://www.ablebits.com/outlook-blind-carbon-copy-bcc-email-addins/index.php" target="_blank"><i data-feather="external-link"></i>Auto BCC / CC for Microsoft Outlook</a></span> 用法不在赘诉 参考:<a title="http://blog.sina.com.cn/s/blog_4aba6f3d01011b4c.html" href="http://blog.sina.com.cn/s/blog_4aba6f3d01011b4c.html">http://blog.sina.com.cn/s/blog_4aba6f3d01011b4c.html</a> Last modification:October 6, 2023 © Allow specification reprint Support Appreciate the author AliPayWeChat Like 如果觉得我的文章对你有用,请随意赞赏
2 comments
有才!自己动手,丰衣足食。
:evil: 一直不太会用这个!