如何恢复"全部答复"

GUCHENGRONG

各位outlook同仁,在工作的时候没有"全部回复"这个功能的话我想有时候肯定是很不方便的把!

我们单位在是有了exchange后就屏蔽了这个功能!

求各位能不弄看看有什么什么程序,可以再次调出这个功能!谢谢!

GUCHENGRONG

大家可能碰到的很少,但是这个的确是个大麻烦!

看看有没有能用代码解决的呢!非常感谢!

aaaaabbbbb

说不定你们公司的IT就不想让你们用。试试以下方法看是否可以，我对EXCHANGE不了解，不清楚是否代码可以起作用。我在OUTLOOK2003下试过了，可以新建一个邮件，回复所有人。

插入一个模块，将以下代码拷贝进去。当你打开一个邮件阅读后，如果想回复所有人，就运行此段代码。

Sub MyReplyToAll()
Dim app As New Outlook.Application
Dim objItem As Object
Dim mail As MailItem

Set objItem = GetCurrentItem()

Dim replyitem As Outlook.MailItem
Set replyitem = objItem.ReplyAll

replyitem.Save
replyitem.Display

End Sub

Function GetCurrentItem() As Object
    Dim objApp As Outlook.Application
       
    Set objApp = CreateObject("Outlook.Application")
    On Error Resume Next
    Select Case TypeName(objApp.ActiveWindow)
        Case "Explorer"
            Set GetCurrentItem = objApp.ActiveExplorer.Selection.item(1)
        Case "Inspector"
            Set GetCurrentItem = objApp.ActiveInspector.CurrentItem
        Case Else

    End Select
   
    Set objApp = Nothing
End Function

GUCHENGRONG

太感谢版主了!实在劳驾了,我会试试看是否能用,希望也能使版主的心血帮助大家!

GUCHENGRONG

 

版主啊!为什么会出现这种情况!宏的安全性我已经调到最低了!就是不能运行!

GUCHENGRONG

加了个控件！版主的代码完全有效！太帮了！感谢中！...

rory

版主的代碼我用2013試過,OK!
謝!