Outlook转发邮件时能带原始邮件的附件,但得自己写抄送给哪些人的邮件地址。
Outlook全部答复可以自动带上收件人地址,但是不带附件。。。本脚本主要是实现答复时 带上附件
;作者:sunwind
;时间: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