כיצד להעתיק את כל שמות הקבצים המצורפים בעת התגובה ב-Outlook?

אם הפכנו את הדוא"ל HTML ל-RTF לפני התגובה, כל שמות הקבצים המצורפים יועתקו להודעת התגובה לאחר לחיצה על בית > תגובה ב-Outlook.

1. לחץ פעמיים כדי לפתוח את הדוא"ל שאת שמות הקבצים המצורפים שלו אתה צריך להעתיק, ולאחר מכן לחץ הודעה > פעולות > ערוך הודעה בח ок ההודעה. ראה צילום מסך:

2. המשך ללחוץ עיצוב טקסט > טקסט עשירולאחר מכן שמור וסגור את הדוא"ל.

3. כעת אתה חוזר לתצוגה הראשית. המשך לבחור את הדוא"ל, ולחץ בית > תגובה.

4. כעת כל שמות הקבצים המצורפים מועתקים מהדוא"ל המקורי והודבקו בהודעת התגובה כפי שמוצג בתמונה למטה. אנא כתוב את הודעת התגובה ושלח אותה.

השב בקלות לדוא"לים שנבחרו תוך שמירת כל הקבצים המצורפים המקוריים ב-Outlook

באופן כללי, הקבצים המצורפים המקוריים מוסרים בעת תגובה לדוא"ל ב-Outlook. אך, עם תכונת השב עם קובץ מצורף של Kutools עבור Outlook, תוכל בקלות לשמור את כל הקבצים המצורפים של הדוא"ל בעת תגובה ב-Outlook.

אם Kutools עבור Outlook מותקן אצלך, תוכל להשתמש במאפיין Copy Names שלו כדי להעתיק במהירות את כל שמות הקבצים המצורפים מדוא"ל שהתקבל, ולאחר מכן להדביק בקלות בהודעת התגובה ב-Outlook.

1. בחר את הדוא"ל שאתה עומד להשיב, ולחץ Kutools Plus > כלי קבצים מצורפים > העתק שמות.

לאחר מכן תופיע חלונית שתודיע לך שהשמות של הקבצים המצורפים הועתקו ללוח. לחץ אישור לסגירה.

2. המשך ללחוץ בית > תגובה כדי להשיב לדוא"ל הנבחר.

3. בחלון הודעת התגובה, שים את הסמן בגוף ההודעה, והקש Ctrl + V כדי להדביק את שמות הקבצים המצורפים בקלות.

שיטה זו תציג מאקרו VBA להעתקת כל שמות הקבצים המצורפים בעת תגובה לדוא"ל, ולאחר מכן הדבקת השמות לגוף ההודעה של התגובה ב-Outlook.

1. לחץ בו זמנית על מקשי Alt + F11 כדי לפתוח את חלון Microsoft Visual Basic for Applications.

2. בפרויקט המחקר משמאל, הרחב את פרויקט 1, לחץ פעמיים כדי לפתוח את ThisOutlookSession (ראה צילום מסך למטה), ולאחר מכן הדבק את הקוד הבא לחלון.

VBA: העתק את כל שמות הקבצים המצורפים בעת תגובה לדוא"ל ב-Outlook

Option Explicit
Private WithEvents oExpl As Explorer
Private WithEvents oItem As MailItem
Private bAttachEvent As Boolean


Private Sub Application_Startup()
Set oExpl = Application.ActiveExplorer
bAttachEvent = False   
End Sub

Private Sub oExpl_SelectionChange()
On Error Resume Next
Set oItem = oExpl.Selection.Item(1)
End Sub

' Reply
Private Sub oItem_Reply(ByVal Response As Object, Cancel As Boolean)

Dim oAtt As Attachment
Dim sAtts As String
Dim olInspector As Outlook.Inspector
Dim olDocument As Word.Document
Dim olSelection As Word.Selection

If bAttachEvent Or oItem.Attachments.Count = 0 Then
Exit Sub
End If

Cancel = True
bAttachEvent = True
sAtts = ""

For Each oAtt In oItem.Attachments
sAtts = sAtts & "<<" & oAtt.FileName & ">> "
Next oAtt

Dim oResponse As MailItem
Set oResponse = oItem.Reply
oResponse.Display

Set olInspector = Application.ActiveInspector()
Set olDocument = olInspector.WordEditor
Set olSelection = olDocument.Application.Selection

olSelection.InsertBefore sAtts

bAttachEvent = False
Set oItem = Nothing
End Sub

' Reply All
Private Sub oItem_ReplyAll(ByVal Response As Object, Cancel As Boolean)

Dim oAtt As Attachment
Dim sAtts As String
Dim olInspector As Outlook.Inspector
Dim olDocument As Word.Document
Dim olSelection As Word.Selection

If bAttachEvent Or oItem.Attachments.Count = 0 Then
Exit Sub
End If

Cancel = True
bAttachEvent = True

sAtts = ""

For Each oAtt In oItem.Attachments
sAtts = sAtts & "<<" & oAtt.FileName & ">> "
Next oAtt

Dim oResponse As MailItem
Set oResponse = oItem.ReplyAll
oResponse.Display

Set olInspector = Application.ActiveInspector()
Set olDocument = olInspector.WordEditor
Set olSelection = olDocument.Application.Selection

olSelection.InsertBefore sAtts  
bAttachEvent = False
Set oItem = Nothing

End Sub

3. לחץ על כלים > הפניות.

4. בחלון הפניות – פרויקט 1 עבור Outlook 2016, אנא סמן את Microsoft Word 16.0 Object Library הפניה בתיבת הפניות הזמינות, ולחץ על הכפתור אישור . ראה צילום מסך:

הערה: אנא בחר את Microsoft Word 15.0 Object Library הפניה אם אתה עובד עם Outlook 2013, או Microsoft Word 14.0 Object Library הפניה עם Outlook 2010.

5. שמור את VBA וסגור את חלון Microsoft Visual Basic for Applications.

6. כעת אתה חוזר לממשק הראשי של Outlook. בחר את הדוא"ל שאתה עומד להשיב, ולחץ בית > תשובה או השב לכולם.
הערה: אם שמות הקבצים המצורפים לא מועתקים והודבקים בהודעת התגובה, אנא הפעל מחדש את Outlook שלך והשב שוב.

וכעת כל שמות הקבצים מועתקים מהדוא"ל הנבחר והודבקו בהודעת התגובה. ראה צילום מסך: