admin管理员组

文章数量:1530938

2024年7月18日发(作者：)

如何在Outlook回复时带上附件

Sub ReplyWithAttachments()

Dim rpl As em

Dim itm As Object

Set itm = GetCurrentItem()

If Not itm Is Nothing Then

Set rpl =

CopyAttachments itm, rpl

y

End If

Set rpl = Nothing

Set itm = Nothing

End Sub

Function GetCurrentItem() As Object

Dim objApp As ation

Set objApp = Application

On Error Resume Next

Select Case TypeName(Window)

Case "Explorer"

Set GetCurrentItem = (1)

Case "Inspector"

Set GetCurrentItem = tItem

End Select

Set objApp = Nothing

End Function

Sub CopyAttachments(objSourceItem, objTargetItem)

Set fso = CreateObject("stemObject")

Set fldTemp = cialFolder(2) ' TemporaryFolder

strPath = & ""

For Each objAtt In ments

strFile = strPath & me

File strFile

strFile, , , yName

File strFile

Next

Set fldTemp = Nothing

Set fso = Nothing

End Sub

Sub ReplyToAllWithAttachments()

Dim rpl As em

Dim itm As Object

Set itm = GetCurrentItem()

If Not itm Is Nothing Then

Set rpl = ll

CopyAttachments itm, rpl

y

End If

Set rpl = Nothing

Set itm = Nothing

End Sub

本文标签： 附件带上回复

版权声明：本文标题：如何在Outlook回复时带上附件 内容由热心网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：https://m.elefans.com/xitong/1721280758a869540.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。