none
在Outlook上有没有可以快速切换 [答复邮件时候包含邮件原件文本] 和 [不包含邮件原件]? RRS feed

  • 问题

  • 在电子邮件选项中可以调整 答复和转发 操作时候是否 保留或者删除邮件正文,但这个设置切换很不方便,Outlook上是否有lotus notes上类似的一键切换????
    2015年6月11日 2:07

答案

  • 您好,

    很抱歉Outlook中是没有像Lotus Notes中的一键切换的。不过我们可以通过Macro来实现这个目的。比如,可以在文件>选项>邮件里面将回复设置为不保留正文,然后回复邮件的时候用下面的Macro实现:

    Sub jaureguimaReply() 
        Dim iMsg As Object 'MailItem
        Set iMsg = Application.ActiveExplorer.Selection.Item(1) 
        With iMsg.Reply 
            With .Recipients.Add("YourContactDistributionGroupName") 
                .Type = olCC 
                .Resolve 
            End With 
            .Subject = "4. Ad a standard subject line to my response" 
            .Body = iMsg.Body & vbCrLf & "3. Ad a standard response in the body" 
            .Display 'or .Send
        End With 
        Set iMsg = Nothing 
    End Sub 

    可以在功能区或者快速访问栏创建一个按钮,然后把这个宏代码指向该按钮,回复邮件时,想包含原邮件正文,直接点击该按钮就可以了。如果不想包含,就按Reply的按钮回复邮件就好了。

    由于我不是很擅长代码,上面给出的代码示例可能有一定的缺陷。建议你请教擅长代码的人或者去开发相关的论坛提问来完善一下。

    感谢!

    Steve Fan

    微软一站式示例脚本库: http://blogs.technet.com/b/onescript


    2015年6月12日 2:06
    版主

全部回复

  • 您好,

    很抱歉Outlook中是没有像Lotus Notes中的一键切换的。不过我们可以通过Macro来实现这个目的。比如,可以在文件>选项>邮件里面将回复设置为不保留正文,然后回复邮件的时候用下面的Macro实现:

    Sub jaureguimaReply() 
        Dim iMsg As Object 'MailItem
        Set iMsg = Application.ActiveExplorer.Selection.Item(1) 
        With iMsg.Reply 
            With .Recipients.Add("YourContactDistributionGroupName") 
                .Type = olCC 
                .Resolve 
            End With 
            .Subject = "4. Ad a standard subject line to my response" 
            .Body = iMsg.Body & vbCrLf & "3. Ad a standard response in the body" 
            .Display 'or .Send
        End With 
        Set iMsg = Nothing 
    End Sub 

    可以在功能区或者快速访问栏创建一个按钮,然后把这个宏代码指向该按钮,回复邮件时,想包含原邮件正文,直接点击该按钮就可以了。如果不想包含,就按Reply的按钮回复邮件就好了。

    由于我不是很擅长代码,上面给出的代码示例可能有一定的缺陷。建议你请教擅长代码的人或者去开发相关的论坛提问来完善一下。

    感谢!

    Steve Fan

    微软一站式示例脚本库: http://blogs.technet.com/b/onescript


    2015年6月12日 2:06
    版主
  • 非常感谢

    根据您的提示,我做了以下改动:

    Sub jaureguimaReply()
        Dim iMsg As Object
        Set iMsg = Application.ActiveExplorer.Selection.Item(1)
        With iMsg.ReplyAll
             .Body = " "
             .Display
        End With
        Set iMsg = Nothing
    End Sub

    以上代码的效果就是删除所有正文,然后全员回复。

    这样就不用先在邮箱选项中设置不保留正文。

    非常感谢您的启发。

    2015年6月15日 3:54