windows之家1.outlook怎样设置可以带附件回复?
一、在 outlook工具→宏→Visual Basic编辑器， 新建一个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
Sub 带附件回复发件人_不含抄送（）
Dim rpl As Outlook.MailItem
Dim itm As Object
Set itm = GetCurrentItem()
If Not itm Is Nothing Then
Set rpl = itm.Reply
CopyAttachments itm, rpl
rpl.Display End If
Set rpl = Nothing
Set itm = Nothing
End Sub
以上代码复制进去，然后点击保存！ 然后去工具→宏→安全性→：
二、使用方法
选中对应的 邮件， 选择 工具→宏→宏（M） - 选择对应的宏的名字， 点击 运行：
转载请注明出处windows之家 » win10的outlook如何带附件回复