एकाधिक ईमेल से सभी अनुलग्नकों को एक नए ईमेल में कॉपी करें

किसी ईमेल से सभी अनुलग्नकों को उसके उत्तर देने वाले ईमेल में कॉपी करें

यह आलेख आउटलुक में एकाधिक ईमेल से सभी अनुलग्नकों को तुरंत एक नए में कॉपी करने के लिए एक वीबीए पेश करेगा। कृपया इस प्रकार करें:

1. एकाधिक ईमेल चुनें जिनके अनुलग्नक आप कॉपी करेंगे, और दबाएँ ऑल्ट + F11 एप्लिकेशन विंडो के लिए Microsoft Visual Basic खोलने के लिए कुंजियाँ।
नोट: पकड़े हुए कंट्रोल कुंजी, आप एकाधिक गैर-आसन्न ईमेल को एक-एक करके क्लिक करके चुन सकते हैं; पकड़े पाली कुंजी, आप पहले और आखिरी पर क्लिक करके कई आसन्न ईमेल का चयन कर सकते हैं।

2। क्लिक करें सम्मिलित करें > मॉड्यूल, और फिर नई मॉड्यूल विंडो में नीचे 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

3। दबाएँ F5 कुंजी या रन इस VBA को चलाने के लिए बटन।

अब आप देखेंगे कि सभी अनुलग्नक चयनित ईमेल से कॉपी हो गए हैं, और एक नए ईमेल में पेस्ट हो गए हैं।

यदि आपके पास आउटलुक के लिए कुटूल स्थापित है, तो आप इसे लागू कर सकते हैं अनुलग्नक के साथ उत्तर दें आउटलुक में किसी ईमेल से उसके उत्तर देने वाले ईमेल में सभी अनुलग्नकों को आसानी से कॉपी करने की सुविधा। कृपया इस प्रकार करें:

वह ईमेल चुनें जिसका आप उत्तर देंगे और क्लिक करें कुटूल > अनुलग्नक के साथ उत्तर दें > अनुलग्नक के साथ उत्तर दें. स्क्रीनशॉट देखें:

अब आप देखेंगे कि सभी अनुलग्नक उत्तर देने वाले ईमेल पर स्वचालित रूप से कॉपी हो गए हैं।

आउटलुक में किसी अन्य ईमेल में अटैचमेंट को कैसे कॉपी करें?