טיפ: שפות אחרות הן Google-Translated. אתה יכול לבקר את English גרסה של קישור זה.
התחבר
x
or
x
x
הירשם
x

or
0
0
0
s2smodern

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

בדרך כלל, כאשר מחילים את הפונקציה Reply All כדי להשיב להודעה על כל הנמענים ב- Outlook, הקבצים המצורפים המקוריים יאבדו באופן אוטומטי. האם ניתן לצרף קבצים מצורפים מקוריים כאשר אתה עונה לכולם ב- Outlook?

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

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


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

כאשר אתה צריך להשיב דוא"ל לכל הנמענים עם קבצים מצורפים מקוריים, Kutools עבור Outlook's Replay כל עם קבצים מצורפים תכונה יכול לעזור לך לפתור את העבודה הזאת בהקדם האפשרי.

doc תשובה עם כל קובץ מצורף 8

Kutools עבור Outlook: עם יותר מ 20 + שימושי Excel תוספות, ללא תשלום כדי לנסות ללא הגבלה 60 ימים. הורד ונסה את גרסת הניסיון בחינם עכשיו!

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

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

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

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

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

Sub ReplyAllWithAttachments()
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
    xTmpFile = xTmpPath & xAttachment.FileName
    xAttachment.SaveAsFile xTmpFile
    xTargetItem.Attachments.Add xTmpFile, , , xAttachment.DisplayName
    xFSO.DeleteFile xTmpFile
Next
If xFSO.FolderExists(xTmpPath) Then
    Kill xTmpPath
End If
Set xFSO = Nothing
End Sub

doc תשובה עם כל קובץ מצורף 1

3. ולאחר מכן לחץ על אישור כלים > הפניות ב Microsoft Visual Basic עבור יישומים חלון, בחצי הפניות-Project1 תיבת הדו שיח, לבדוק זמן ריצה של אפשרות מתוך הפניות זמינות רשימה, ראה צילום מסך:

doc תשובה עם כל קובץ מצורף 9

4. לאחר מכן שמור וסגור את חלון הקוד, ולאחר מכן תוכל להוסיף את לחצן המאקרו לתוך סרגל הכלים של גישה מהירה.

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

doc תשובה עם כל קובץ מצורף 2

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

(1) מאקרו מ בחר פקודות מ רשימה נפתחת;

(2). לחץ על שם המאקרו שהוספת רק עכשיו;

(3) ולאחר מכן לחץ על אישור להוסיף כדי להוסיף את המאקרו לתוך התאמה אישית של סרגל הכלים של גישה מהירה.

doc תשובה עם כל קובץ מצורף 3

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

doc תשובה עם כל קובץ מצורף 4

8. עכשיו, לחץ על כפתור המאקרו, וחלון ההודעה עונה עם קבצים מצורפים מקוריים נפתח, ולאחר מכן כתוב את ההודעה משיב, ולחץ לִשְׁלוֹחַ כפתור, ראה צילום מסך:

doc תשובה עם כל קובץ מצורף 5


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

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

Kutools עבור Outlook : עם יותר מ 20 שימושי תוספות של Excel, ללא תשלום כדי לנסות ללא הגבלה 60 ימים.

לאחר ההתקנה Kutools עבור Outlook, אנא בצע את הפעולות הבאות:

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

doc תשובה עם כל קובץ מצורף 6

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

doc תשובה עם כל קובץ מצורף 7

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


100 + כלים ותכונות רבי עוצמה עבור Outlook 2010 / 2013 / 2016 / 2019 / Office 365:

לי כתוםתואם ל- Outlook 2010 / 2013 / 2016 / 2019 / Office 365 (32 / 64);

לי כתוםתואם עם Windows XP, Windows Vista, Windows 7 / 8 / 10, Windows Server 2003 / 2008, מערכת Citrix ו- Windows Terminal (שולחן עבודה מרוחק) שרת;

לי כתוםללא תשלום ללא הגבלה תכונה 45 ימים!

קרא עוד | הורדה חינם | קנה עכשיו

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
People in conversation:
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    ugurk · 27 days ago
    All files in mail adding as attachment such as image in my signiture.
    How can i only attachment files
    • To post as a guest, your comment is unpublished.
      skyyang · 24 days ago
      Hi,
      If you need to exclude the images within the messages which are inserted into the attachments, please apply the below VBA code, hope it can help you!
      Sub ReplyAllWithAttachments()
      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
  • To post as a guest, your comment is unpublished.
    Sam · 2 months ago
    Getting compile error as : User-define type not defined at line no " Dim xFSO As Scripting.FileSystemObject" under "Sub GetAttachments(xSourceItem, xTargetItem)"
    Kindly Advice on this error.
    • To post as a guest, your comment is unpublished.
      skyyang · 2 months ago
      Hello, Sam,
      Sorry, the article misses the step 3, I have updated this article, please try again. Hope it can help you!

      Thank you for your reminder.