zoukankan      html  css  js  c++  java
  • 如何设置outlook实现自动秘密抄送邮件的功能?

    很多朋友会发现虽然在家里同步了公司的邮箱可以正常收发邮件,可是每当使用家里的outlook发送相关邮件的时候,在公司的邮箱里找不到相关的发件记录,只能同步收件箱,而不能同步发件箱应该是比较让人困扰的问题,美的是outlook有个很好的功能,那就是秘密抄送,在收件人不知道的情况下,秘密的抄送邮件。功能确实不错,可是每次只能手动操作,而非系统自动,在自动化如此发达的现代,这种情况是不能一而再再而三的出现的,那么现在就分享一个好的方法,通过outlook的后台设置实现发送邮件时自动秘密抄送邮件的功能吧!

    自动秘密抄送邮件是需要用到宏的,具体方法如下:

    1、在Outlook里面键入ALT+F11打开VBA编辑器;

    2、键入CTRL+R激活左边的那个工程面板,展开并双击上面的“Project (VbaProject.OTM)Microsoft Office Outlook 对象ThisOutlookSession”;

    3、将以下代码粘贴到右边打开的编辑区里面去:

    Option Explicit
    
    Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    
    Dim oItem As MailItem
    
    Dim oRecipient As Recipient
    
    Set oItem = Item
    
    ' 在这里参考如下代码根据需要增删BCC收件人
    
    Set oRecipient = oItem.Recipients.Add("user1@server1.com")
    
    oRecipient.Type = Outlook.olBCC
    
    Set oRecipient = oItem.Recipients.Add("user2@server2.com")
    
    oRecipient.Type = Outlook.olBCC
    
    Set oRecipient = oItem.Recipients.Add("user3@server3.com")
    
    oRecipient.Type = Outlook.olBCC
    
    oItem.Recipients.ResolveAll
    
    oItem.Save
    
    Set oRecipient = Nothing
    
    Set oItem = Nothing
    
    End Sub

    4、根据需要按照我代码中的注释增删BCC收件人地址;

    5、键入CTRL+S保存,再键入ALT+Q退出VBA编辑器返回Outlook主界面;

    6、选择菜单“工具-信任中心”,在弹出窗口中选择“宏安全性”;

    7、选择“为所有宏提供警告”或者“不执行宏安全性检查”(建议选择前者);

    8、重新启动Outlook,看到提示是否否用宏,选择启用。

    9、发封测试邮件,测试是否设置成功。

    以上方法基本适用于office2007,2010等,so easy!

  • 相关阅读:
    GridView中实现点击某行的任意位置就选中该行
    HtmlEncode、HtmlDecode、UrlEncode、UrlDecode
    Asp.net中从后台中如何获取html控件
    关于IE10出现LinkButton点击无效的解决方案
    【转】关于IE7 z-index问题完美解决方案
    【转】Asp.net中时间格式化的6种方法详细总结
    【转】asp.net Cookie值中文乱码问题解决方法
    asp.net中Cookie的用法【转】
    【转】ASP.NET Cookies简单应用 记住用户名和密码
    ASP.NET Cookie 概述【转】
  • 原文地址:https://www.cnblogs.com/chjbbs/p/5442503.html
Copyright © 2011-2022 走看看