Outlook2007添加答复所有人时带附件的操作方法

Outlook2007添加答复所有人时带附件的操作方法

一、     打开outlook，点击菜单【工具】—【宏(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. 粘贴后效果如下：

    

 

 

1. 点击【保存】按钮保存代码

 

 

五、     关闭VB编辑器窗口，打开outlook，点击菜单【视图】—【工具栏】—【自定义】

 

 

六、     点击【宏】选项

七、     按住鼠标左键拖动【回复邮件：带附件答复】到菜单工具栏的合适位置。

八、     在按钮上点击鼠标右键，弹出菜单更改成自己喜欢的名字。

九、     操作完成