Outlook2007 添加答复所有人时带附件的操作方法 一、打开ou tlook，点击菜单【工具】—【宏(M)】—【宏(M)】 二、输入宏名后点击创建。 三、删除默认内容 四、把以下代码拷贝到 VB 编辑窗口内。 ----------------------------------------------复制以下代码----------------------------------------------------- Sub 带附件答复() Dim rpl As Outlook.MailItem Dim itm As Object Set itm = GetCurrentItem() If Not itm Is Nothing Then Set rpl = itm.ReplyAll CopyAttachments itm, rpl rpl.Display End If Set rpl = Nothing Set itm = Nothing End Sub Function GetCurrentItem() As Object Dim objApp As Outlook.Application Set objApp = 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 End Select Set objApp = Nothing End Function Sub CopyAttachments(objSourceItem, objTargetItem) Set fso = CreateObject("Scripting.FileSystemObject") Set fldTemp = fso.GetSpecialFolder(2) ' TemporaryFolder strPath = fldTemp.Path & "\" For Each objAtt In objSourceItem.Attachments strFile = strPath & objAtt.FileName objAtt.SaveAsFile strFile objTargetItem.Attachments.Add strFile, , , objAtt.DisplayName fso.DeleteFile strFile Next Set fldTemp = Nothing Set fso = Nothing End Sub ----------------------------------------------复制以上代码----------------------------------------------------- 1. 粘贴后效果如下： 2. 点击【保存】按钮保存代码 五、关闭VB 编辑器窗口，打开ou tlook，点击菜单【视图】—【工具栏】—【自定义】 六、点击【宏】选项 七、按住鼠标左键拖动【回复邮件：带附件答复】到菜单工具栏的合适位置。 八、在按钮上点击鼠标右键，弹出菜单更改成自己喜欢的名字。 九、操作完成
