Skip to main content

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

Author: Kelly Last Modified: 2025-05-30

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

העתקת כל הקבצים המצורפים ממספר אימיילים למייל חדש באמצעות VBA (ידני וטכני)

העתקת כל הקבצים המצורפים מיישוב לתגובה מייל באופן מיידי עם כלי מדהים 👍 ( ללא מאמץ ומומלץ)


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

אם אתה מעדיף להשתמש ב-VBA כדי להפוך את התהליך לאוטומטי, תוכל לעקוב אחר השלבים הבאים כדי במהירות לחלץ ולהעתיק את כל הקבצים המצורפים ממספר אימיילים למייל חדש.

שלב 1: בחירת מספר אימיילים

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

  • החזק "Ctrl" כדי לבחור מספר אימיילים שאינם סמוכים.
  • החזק "Shift" כדי לבחור טווח של אימיילים סמוכים.

שלב 2: פתיחת עורך ה-VBA

לחץ על "Alt" + "F11" כדי לפתוח את חלון "Microsoft Visual Basic for Applications".

שלב 3: הכנסת קוד ה-VBA למודול חדש

לחץ על "הוספה" > "מודול" כדי ליצור מודול חדש. והדבק את הקוד הבא של VBA לחלון המודול:

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

Sub NewEmailInsertAttachmentsName()
Dim xSelection As Outlook.Selection
Dim xMailItem As Outlook.MailItem
Dim xAttachment As Outlook.Attachment
Dim xFSO As Object
Dim xFldPath As String

Dim xFilePath As String
Dim xNewMail As Outlook.MailItem
On Error Resume Next
Set xSelection = Outlook.Application.ActiveExplorer.Selection
Set xNewMail = Outlook.Application.CreateItem(olMailItem)
Set xFSO = CreateObject("Scripting.FileSystemObject")
xFldPath = xFSO.GetSpecialFolder(2).Path & "\MyAttachments"
If xFSO.FolderExists(xFldPath) = False Then
xFSO.CreateFolder (xFldPath)
End If

For Each xMailItem In xSelection
For Each xAttachment In xMailItem.Attachments
xFilePath = xFldPath & "\" & xAttachment.FileName
xAttachment.SaveAsFile (xFilePath)
xNewMail.Attachments.Add (xFilePath)
xFSO.DeleteFile (xFilePath)
Next
Next
xFSO.GetFolder(xFldPath).Delete
xNewMail.Display
End Sub

שלב 4: הרצת קוד ה-VBA

לחץ על "F5" או לחץ על כפתור ההרצה כדי לבצע את הקוד. מייל חדש ייפתח, המכיל את כל הקבצים המצורפים שחלצו מהאימיילים שנבחרו.

חסרונות:

  • ❌ דורש ידע ב-VBA: לא ידידותי למתחילים וכולל עבודה עם קוד.
  • ❌ נדרש התקנה ידנית: עליך לפתוח את עורך ה-VBA, להכניס את הקוד ולהריץ אותו בכל פעם מחדש.
  • ❌ הגבלות אבטחה פוטנציאליות: חלק מגרסאות ה-Outlook חוסמות מאקרואים עקב מדיניות אבטחה.
  • ❌ אין גמישות: עליך להריץ את הסקריפט שוב בכל פעם שתצטרך להעתיק קבצים מצורפים.

📂 שמירת קבצים מצורפים מרובים בקלות

האם אתה עייף משמירת קבצים מצורפים אחד אחרי השני ב-Outlook? היעיל את תהליך העבודה שלך עם Kutools עבור Outlook! הפונקציה החזקה 'שמור הכל (קבצים מצורפים)' מאפשרת לך לשמור קבצים מצורפים מרובים או מתיקיות שלמות בלחיצת כפתור. ספרו שלום לתהליכים ידניים מייגעים וקבלו שליטה על התיבת דואר הנכנס שלכם ללא מאמץ.

Save attachments in multiple emails

הורידו את Kutools עבור Outlook עכשיו


העתקת כל הקבצים המצורפים מיישוב לתגובה מייל באופן מיידי עם כלי מדהים 👍

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

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

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

the screenshot of copying attchment to a replying email using Kutools 1

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

the screenshot of copying attchment to a replying email using Kutools 2

יתרונות של שיטת Kutools עבור Outlook:

  • ✅ אין העתקה או הדבקה ידנית: עובד באופן מיידי עם לחיצה אחת.
  • ✅ אין צורך בכתיבת קוד VBA: ידידותי למשתמש וחסר בעיות.
  • ✅ חסכון בזמן: מקטין בצורה משמעותית את המאמץ לעומת שיטות ידניות.
  • ✅ תואם לכל גרסאות ה-Outlook: ללא הגבלות מאקרואים או אזהרות אבטחה.
הערה: כדי ליישם את כלי 'השב עם קובץ מצורף מקורי' של Kutools עבור Outlook, ראשית, עליך להוריד ולהתקין את Kutools עבור Outlook.

מאמרים קשורים

כיצד להעתיק קובץ מצורף למייל אחר ב-Outlook?


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

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

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

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

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

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

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

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

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

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

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

kutools for outlook features1 kutools for outlook features2