[AHK]Outlook带附件答复邮件

Outlook转发邮件时能带原始邮件的附件，但得自己写抄送给哪些人的邮件地址。 

Outlook全部答复可以自动带上收件人地址，但是不带附件。。。本脚本主要是实现答复时 带上附件

;最新版本：https://blog.csdn.net/liuyukuan/article/details/108424894
;作者：sunwind [email protected]
;时间：2020年9月5日21:40:30

;功能：带附件答复邮件
;使用方法：选择目标邮件，按win+z


#z::
myOutlook := ComObj("Outlook.Application")
myInspector:=myOutlook.ActiveInspector
myItem:=myInspector.CurrentItem
pathtosaveto:=A_temp
;C:\Users\xxxxx\AppData\Local\Temp
newMail:=myitem.replyall
;将原始邮件附件保存到Temp目录
attachments := myItem.Attachments
Loop % Attachments.Count
    {
      thisattachment := attachments.Item(A_Index)
      Fullpath := pathtosaveto "\" thisattachment.DisplayName
      thisattachment.SaveAsFile(FullPath)
    }
;把附件加到新邮件上
Loop % Attachments.Count
    {
      thisattachment := attachments.Item(A_Index)
      Fullpath := pathtosaveto "\" thisattachment.DisplayName
      newMail.Attachments.Add(Fullpath)	
    }
;清理现场
Loop % Attachments.Count
    {
      thisattachment := attachments.Item(A_Index)
      Fullpath := pathtosaveto "\" thisattachment.DisplayName
      FileDelete,%Fullpath%
    }
newMail.display
return