Skip to main content

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

Author: Xiaoyang Last Modified: 2025-05-30

האם אי פעם לחצת על "השב לכולם" ב-Outlook ואיבדת את הקבצים המצורפים המקוריים? זה מעצבן! תהית איך לשמור על קבצים אלה כשעונים לכולם? כן, זה אפשרי! בואו נחקור כיצד לכלול את הקבצים המצורפים המקוריים בתשובות שלך, כך שניהול הדואר יהיה חלק ויעיל. המשך להתעדכן!

השב לכולם עם קבצים מצורפים מקוריים עם קוד VBA

השב לכולם עם קבצים מצורפים מקוריים עם Kutools עבור Outlook


השב לכולם עם קבצים מצורפים מקוריים עם קוד VBA

אין תכונה ישירה להתמודד עם משימה זו ב-Outlook, אך אתה יכול להחיל את הקוד VBA הבא כדי להשיג זאת. אנא עקוב אחר השלבים הבאים:

1. פתח את Outlook, ולאחר מכן החזק את המקשים ALT + F11 כדי לפתוח את חלון Microsoft Visual Basic for Applications.

2. בחלון Microsoft Visual Basic for Applications, לחץ פעמיים על ThisOutlookSession מהחלונית Project1(VbaProject.OTM) כדי לפתוח את המצב, ולאחר מכן העתק והדבק את הקוד הבא לתוך המודול הריק.

קוד VBA: השב לכולם עם קבצים מצורפים מקוריים:

Sub ReplyAllWithAttachments()
'Updateby Extendoffice
Dim xItem As Object
On Error Resume Next
Select Case TypeName(Outlook.Application.ActiveWindow)
Case "Explorer"
For Each xItem In Outlook.Application.ActiveExplorer.Selection
GetReplyItem xItem
Next
Case "Inspector"
Set xItem = Outlook.Application.ActiveInspector.CurrentItem
GetReplyItem xItem
End Select
Set xItem = Nothing
End Sub
Sub GetReplyItem(Item As Object)
Dim xReplyMailItem As Outlook.MailItem
On Error Resume Next
If Not Item Is Nothing Then
Set xReplyMailItem = Item.ReplyAll
GetAttachments Item, xReplyMailItem
xReplyMailItem.Display
'xReplyMailItem.Send
Item.UnRead = False
End If
Set xReplyMailItem = Nothing
End Sub
Sub GetAttachments(xSourceItem, xTargetItem)
Dim xFSO As Scripting.FileSystemObject
Dim xTmpPath As String
Dim xAttachment As Attachment
Dim xTmpFile As String
On Error Resume Next
Set xFSO = New Scripting.FileSystemObject
xTmpPath = CreateObject("shell.Application").NameSpace(5).self.Path & "\TmpAttachments\"
If xFSO.FolderExists(xTmpPath) = False Then
MkDir xTmpPath
End If
For Each xAttachment In xSourceItem.Attachments
If IsEmbeddedAttachment(xAttachment) = False Then
xTmpFile = xTmpPath & xAttachment.FileName
xAttachment.SaveAsFile xTmpFile
xTargetItem.Attachments.Add xTmpFile, , , xAttachment.DisplayName
xFSO.DeleteFile xTmpFile
End If
Next
If xFSO.FolderExists(xTmpPath) Then
Kill xTmpPath
End If
Set xFSO = Nothing
End Sub
Function IsEmbeddedAttachment(Attach As Attachment)
Dim xAttParent As Object
Dim xCID As String, xID As String
Dim xHTML As String
On Error Resume Next
Set xAttParent = Attach.Parent
xCID = ""
xCID = Attach.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001F")
If xCID <> "" Then
xHTML = xAttParent.HTMLBody
xID = "cid:" & xCID
If InStr(xHTML, xID) > 0 Then
IsEmbeddedAttachment = True
Else
IsEmbeddedAttachment = False
End If
End If
End Function
doc reply all with attachment 1

3. ולאחר מכן, לחץ על Tools > References בחלון Microsoft Visual Basic for Applications, בתיבת הדו-שיח References-Project1 שנפתחה, סמן את האפשרות Microsoft Scripting Runtime מהתיבה Available References, ראה צילום מסך:

doc reply all with attachment 9

4. לאחר מכן שמור וסגור את חלון הקוד, ואז תוכל להוסיף את כפתור המקרו אל Quick Access Toolbar.

5. פתח את הדוא"ל שאתה רוצה להשיב לו עם קובץ מצורף בחלון ההודעה, ולאחר מכן בחר More Commands מתוך התפריט הנפתח של Customize Quick Access Toolbar, ראה צילום מסך:

doc reply all with attachment 2

6. בתיבת הדו-שיח Outlook Options, בצע את הפעולות הבאות:

(1.) בחר Macros מתוך הרשימה הנפתחת Choose commands from;

(2.) לחץ על שם המקרו שהכנסת זה עתה;

(3.) ולאחר מכן לחץ על כפתור Add כדי להוסיף את המקרו ל-Customize Quick Access Toolbar.

doc reply all with attachment 3

7. לאחר מכן לחץ OK כדי לסגור את תיבת הדו-שיח, כעת, כפתור המקרו נוסף ל- Quick Access Toolbar, ראה צילום מסך:

doc reply all with attachment 4

8. כעת, לחץ על כפתור המקרו, וחלון ההודעה עם הקבצים המצורפים המקוריים ייפתח, לאחר מכן כתוב את הודעת התגובה, ולחץ על כפתור Send, ראה צילום מסך:

doc reply all with attachment 5

השב לכולם עם קבצים מצורפים מקוריים עם Kutools עבור Outlook

אם יש לך Kutools עבור Outlook, עם תכונת Reply All with Attachment שלו, תוכל להשיב לכולם עם קבצים מצורפים בלחיצה אחת בלבד.

פתחו את היעילות המירבית של הדואר האלקטרוני עם Kutools עבור Outlook! גשו ל-70 תכונות חזקות לגמרי בחינם, לנצח. הורידו את הגרסה المجانية עכשיו!

לאחר התקנת Kutools עבור Outlook, אנא עשה כך:

1. בחר את ההודעה שאתה רוצה להשיב לכולם עם קבצים מצורפים, ולאחר מכן לחץ על Kutools > Reply All with Original Attachment, ראה צילום מסך:

doc reply all with attch kto 1

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

doc reply all with attachment 7

לחץ כדי להוריד את גרסת הנסיון בחינם של Kutools עבור Outlook עכשיו!


כלי הפרודוקטיביות הטובים ביותר ל-Office

חדשות חמות: Kutools עבור Outlook משיק גרסה חינמית!

התנסו בגרסה החינמית החדשה של Kutools עבור Outlook עם יותר מ-70 תכונות מדהימות, לשימושכם לתמיד! לחצו להורדה עכשיו!

🤖 Kutools AI : עושה שימוש בטכנולוגיית AI מתקדמת לניהול דואר אלקטרוני בקלות, כולל השבה, סיכום, אופטימיזציה, הרחבה, תרגום וכתיבת הודעות.

📧 אוטומציה של כתובת דואר אלקטרוני: תגובה אוטומטית (זמין עבור POP ו-IMAP) / תזמון שליחת כתובת דואר אלקטרוני / העתקה אוטומטית/עותק מוסתר לפי כלל בעת שליחת משלח אימייל / העברה אוטומטית (כלל מתקדם) / הוספת ברכה אוטומטית / פיצול אוטומטי של דואר אלקטרוני עם מספר נמענים להודעות נפרדות...

📨 ניהול כתובת דואר אלקטרוני: שלח מייל מחדש / חסום דואר אלקטרוני מזויף לפי נושא ואחרים / מחיקת דואר כפול / חיפוש מתקדם / ארגון תיקיות...

📁 קבצים מצורפים Pro: שמירה אצווה / פרידה אצווה / דחיסה אצווה / שמירה אוטומטית / נתק אוטומטית / דחיסה אוטומטית...

🌟 קסם הממשק: 😊עוד אימוגי יפים ומגניבים / קבלת תזכורת כאשר מגיע דואר אלקטרוני חשוב / מזעור Outlook במקום סגירה...

👍 פעולות בלחיצה אחת: השב לכולם עם קבצים מצורפים / דואר אלקטרוני נגד פישינג / 🕘הצגת אזור הזמן של השולח...

👩🏼‍🤝‍👩🏻 אנשי קשר ויומן: הוספת אנשי קשר מאצווה מתוך כתובת דואר אלקטרוני נבחרת / פיצול קבוצת אנשי קשר לקבוצות נפרדות / הסר תזכורת יומולדת...

פתחו מיד את Kutools עבור Outlook בלחיצה אחת. אל תחכו – הורידו עכשיו והגבירו את היעילות שלכם!

kutools for outlook features1 kutools for outlook features2