मुख्य सामग्री पर जाएं

आउटलुक में ईमेल लिखते समय सभी अटैचमेंट नामों को संदेश के मुख्य भाग में कैसे सूचीबद्ध करें?

लेखक: ज़ियाओयांग अंतिम संशोधित: 2020-10-23

क्या आउटलुक में ईमेल लिखते समय सभी अटैचमेंट नामों को संदेश के मुख्य भाग में सम्मिलित करने का कोई अच्छा तरीका है? इस लेख में, मैं आउटलुक में इस समस्या को हल करने के तरीके के बारे में बात करूंगा।

VBA कोड के साथ ईमेल लिखते समय सभी अनुलग्नक नामों को संदेश के मुख्य भाग में सूचीबद्ध करें

एक साधारण सुविधा के साथ ईमेल लिखते समय सभी अनुलग्नक नामों को संदेश के मुख्य भाग में सूचीबद्ध करें

VBA कोड के साथ ईमेल लिखते समय सभी अनुलग्नक नामों को संदेश के मुख्य भाग में सूचीबद्ध करें

कृपया इस कार्य को पूरा करने के लिए निम्नलिखित चरणों का पालन करें:

1. दबाए रखें ALT + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.

2. में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो, डबल क्लिक करें यह आउटलुक सत्र से प्रोजेक्ट1(VbaProject.OTM) मोड खोलने के लिए फलक, और फिर निम्न कोड को कॉपी करके रिक्त मॉड्यूल में पेस्ट करें।

वीबीए कोड: सभी अनुलग्नक नामों को संदेश के मुख्य भाग में सूचीबद्ध करें:

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim xMailItem As MailItem
    If Item.Class = olMail Then
        Set xMailItem = Item
        If xMailItem.Attachments.Count > 0 Then
          AddAttachmentNamesToBody
        End If
    End If
    End Sub

3. फिर क्लिक करते जाइये सम्मिलित करें > मॉड्यूल, नीचे दिए गए कोड को कॉपी करके खुले हुए रिक्त मॉड्यूल में पेस्ट करें, स्क्रीनशॉट देखें:

वीबीए कोड: सभी अनुलग्नक नामों को संदेश के मुख्य भाग में सूचीबद्ध करें:

Public Sub AddAttachmentNamesToBody()
    Dim xMailItem As MailItem
    Dim xAttachment As Attachment
    Dim xFileName As String
   Dim xInspector As Outlook.Inspector
    Dim xDoc As Word.Document
    Dim xWdSelection As Word.Selection
    On Error Resume Next
    Set xMailItem = Outlook.ActiveInspector.CurrentItem
    If xMailItem.Attachments.Count = 0 Then
        Exit Sub
    End If
    xFileName = ""
    For Each xAttachment In xMailItem.Attachments
        If xFileName = "" Then
            xFileName = " <" & xAttachment.FileName & "> "
        Else
            xFileName = xFileName & vbCrLf & " <" & xAttachment.FileName & "> "
        End If
    Next xAttachment
    Set xInspector = Outlook.Application.ActiveInspector()
    Set xDoc = xInspector.WordEditor
    Set xWdSelection = xDoc.Application.Selection
    xWdSelection.HomeKey Unit:=wdStory
    xWdSelection.InsertBefore "Attachments: " & vbCrLf & xFileName & vbCrLf & vbCrLf
    Set xMailItem = Nothing
    End Sub

4। और फिर क्लिक करें टूल्स > संदर्भ में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की, बाहर निकली हुई सन्दर्भ-परियोजना1 संवाद बॉक्स, जाँचें माइक्रोसॉफ्ट वर्ड ऑब्जेक्ट लाइब्रेरी से विकल्प उपलब्ध संदर्भ सूची बॉक्स, स्क्रीनशॉट देखें:

5। क्लिक करें OK डायलॉग बॉक्स से बाहर निकलने के लिए, आपको इसमें मैक्रो बटन जोड़ना चाहिए त्वरित एक्सेस टूलबार। नए में मैसेज विंडो, चुनें अधिक कमांड से क्विक एक्सेस टूलबार कस्टमाइज़ करें नीचे छोड़ें, स्क्रीनशॉट देखें:

6. में आउटलुक विकल्प संवाद बॉक्स में, निम्नलिखित कार्य करें:

(1.) चयन करें मैक्रोज़ से से कमांड चुनें ड्रॉप डाउन सूची;

(2.) उस मैक्रो नाम पर क्लिक करें जिसे आपने अभी डाला है;

(3.) और फिर क्लिक करें मैक्रो को इसमें जोड़ने के लिए बटन क्विक एक्सेस टूलबार कस्टमाइज़ करें.

7। तब दबायें OK डायलॉग बॉक्स को बंद करने के लिए, अब, मैक्रो बटन डाला गया है त्वरित एक्सेस टूलबार, स्क्रीनशॉट देखें:

8. अब, जब आप नया संदेश बनाते हैं, और मैक्रो बटन पर क्लिक करते हैं, तो अनुलग्नक नाम संदेश के मुख्य भाग के ऊपर दिखाए गए स्क्रीनशॉट के अनुसार डाले जाएंगे:

एक साधारण सुविधा के साथ ईमेल लिखते समय सभी अनुलग्नक नामों को संदेश के मुख्य भाग में सूचीबद्ध करें

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

नोट:इसे लागू करने के लिए नाम कॉपी करें, सबसे पहले, आपको डाउनलोड करना चाहिए आउटलुक के लिए कुटूल, और फिर सुविधा को जल्दी और आसानी से लागू करें।

स्थापित करने के बाद आउटलुक के लिए कुटूल, कृपया ऐसा करें:

1. सबसे पहले, कृपया अपनी ज़रूरत का नया ईमेल बनाएं और फिर क्लिक करें कुटूल > नाम कॉपी करें नए में मैसेज विंडो, स्क्रीनशॉट देखें:

2. और फिर, एक प्रॉम्प्ट बॉक्स आपको याद दिलाने के लिए पॉप अप होगा कि अनुलग्नक नाम क्लिपबोर्ड पर कॉपी किए गए हैं, स्क्रीनशॉट देखें:

3. अब आपको बस प्रेस करना है Ctrl + V का आपके लिए आवश्यक संदेश के मुख्य भाग में अनुलग्नक नामों को चिपकाने के लिए कुंजियाँ एक साथ, स्क्रीनशॉट देखें:

अधिक संबंधित लेख:

  • आउटलुक में मूल अनुलग्नकों के साथ सभी को उत्तर दें
  • आम तौर पर, जब आप आउटलुक में सभी प्राप्तकर्ताओं को संदेश का उत्तर देने के लिए रिप्लाई ऑल फ़ंक्शन लागू करते हैं, तो मूल अनुलग्नक स्वचालित रूप से खो जाएंगे। क्या आउटलुक में सभी का उत्तर देते समय मूल अनुलग्नक संलग्न करना संभव है?
  • आउटलुक से एक निश्चित फ़ोल्डर में अटैचमेंट डाउनलोड/सहेजें
  • सामान्यतया, आप आउटलुक में अटैचमेंट > सेव ऑल अटैचमेंट पर क्लिक करके एक ईमेल के सभी अटैचमेंट को सहेज सकते हैं। लेकिन, यदि आपको सभी प्राप्त ईमेल और प्राप्त ईमेल से सभी अनुलग्नकों को सहेजने की ज़रूरत है, तो कोई आदर्श? यह आलेख आउटलुक से एक निश्चित फ़ोल्डर में अनुलग्नकों को स्वचालित रूप से डाउनलोड करने के लिए दो समाधान पेश करेगा।
  • आउटलुक में डिफॉल्ट अटैचमेंट सेविंग लोकेशन बदलें
  • क्या आप आउटलुक लॉन्च करते समय हर बार निर्दिष्ट अनुलग्नक स्थान ढूंढने से तंग आ गए हैं? इस ट्यूटोरियल में, हम आपको दिखाएंगे कि डिफ़ॉल्ट अटैचमेंट स्थान को कैसे बदला जाए। उसके बाद, जब भी आप आउटलुक को पुनः आरंभ करेंगे तब भी आपके द्वारा अनुलग्नकों को सहेजने पर निर्दिष्ट अनुलग्नक बचत फ़ोल्डर स्वचालित रूप से खुल जाएगा।
  • आउटलुक में ईमेल से सभी अनुलग्नक हटाएं
  • आम तौर पर जब आप किसी ईमेल का पूर्वावलोकन कर रहे होते हैं, तो आप राइट क्लिक करके किसी अटैचमेंट को हटा सकते हैं और अटैचमेंट हटाएं आइटम का चयन कर सकते हैं। कभी-कभी किसी ईमेल संदेश में कई अनुलग्नक हो सकते हैं, और उन्हें एक-एक करके हटाना कठिन होगा। यहां हम आपके लिए एक ईमेल में सभी अटैचमेंट हटाने और साथ ही आउटलुक में कई ईमेल से सभी अटैचमेंट हटाने की दो आसान तरकीबें बता रहे हैं।

सर्वोत्तम कार्यालय उत्पादकता उपकरण

आउटलुक के लिए कुटूल - आपके आउटलुक को सुपरचार्ज करने के लिए 100 से अधिक शक्तिशाली सुविधाएँ

🤖 एआई मेल सहायक: एआई जादू के साथ त्वरित प्रो ईमेल - प्रतिभाशाली उत्तरों के लिए एक-क्लिक, सही टोन, बहुभाषी महारत। ईमेलिंग को सहजता से रूपांतरित करें! ...

📧 ईमेल स्वचालन: कार्यालय से बाहर (POP और IMAP के लिए उपलब्ध)  /  ईमेल भेजने का शेड्यूल करें  /  ईमेल भेजते समय नियमों के अनुसार ऑटो सीसी/बीसीसी  /  स्वतः अग्रेषित (उन्नत नियम)   /  स्वतः ग्रीटिंग जोड़ें   /  बहु-प्राप्तकर्ता ईमेल को स्वचालित रूप से अलग-अलग संदेशों में विभाजित करें ...

📨 ईमेल प्रबंधन: आसानी से ईमेल याद रखें  /  विषयों और अन्य लोगों द्वारा घोटाले वाले ईमेल को ब्लॉक करें  /  डुप्लिकेट ईमेल हटाएँ  /  उन्नत खोज  /  फ़ोल्डरों को समेकित करें ...

📁 अनुलग्नक प्रो: बैच सहेजें  /  बैच अलग करना  /  बैच संपीड़न  /  ऑटो सहेजें   /  ऑटो डिटैच  /  ऑटो कंप्रेस ...

🌟 इंटरफ़ेस जादू: 😊अधिक सुंदर और शानदार इमोजी   /  टैब्ड व्यू के साथ अपनी आउटलुक उत्पादकता बढ़ाएँ  /  आउटलुक को बंद करने के बजाय छोटा करें ...

???? एक-क्लिक चमत्कार: आने वाले अनुलग्नकों के साथ सभी को उत्तर दें  /   फ़िशिंग-रोधी ईमेल  /  🕘प्रेषक का समय क्षेत्र दिखाएं ...

👩🏼‍🤝‍👩🏻 संपर्क एवं कैलेंडर: बैच चयनित ईमेल से संपर्क जोड़ें  /  किसी संपर्क समूह को अलग-अलग समूहों में विभाजित करें  /  जन्मदिन अनुस्मारक हटाएँ ...

के ऊपर 100 सुविधाएँ आपके अन्वेषण की प्रतीक्षा करें! अधिक जानने के लिए यहां क्लिक करें।

 

 

Comments (12)
No ratings yet. Be the first to rate!
Autumn
Autumn
This comment was minimized by the moderator on the site
Why am I getting "user-defined type not defined" when I get to Step 8?
Reply
0
0
Autumn
Autumn
This comment was minimized by the moderator on the site
Why am I getting "user-defined type not defined" when I get to Step 8?
Reply
0
0
VMS
VMS
This comment was minimized by the moderator on the site
When I do this, it always put the attachments at the beginning of the message, no matter where my cursor is located. I then have to copy/paste to the bottom of the email. Is there a way to change that?
Reply
0
0
skyyang
skyyang     VMS
This comment was minimized by the moderator on the site
Hello, VMS,
If you want to put the attachments at the the position of your cursor, please replace the second code with following code:

Public Sub AddAttachmentNamesToBody()

Dim xMailItem As MailItem

Dim xAttachment As Attachment

Dim xFileName As String

Dim xInspector As Outlook.Inspector

Dim xDoc As Word.Document

Dim xWdSelection As Word.Selection

On Error Resume Next

Set xMailItem = Outlook.ActiveInspector.CurrentItem

If xMailItem.Attachments.Count = 0 Then

Exit Sub

End If

xFileName = ""

For Each xAttachment In xMailItem.Attachments

If xFileName = "" Then

xFileName = " <" & xAttachment.FileName & "> "

Else

xFileName = xFileName & vbCrLf & " <" & xAttachment.FileName & "> "

End If

Next xAttachment

Set xInspector = Outlook.Application.ActiveInspector()

Set xDoc = xInspector.WordEditor

Set xWdSelection = xDoc.Application.Selection

xWdSelection.InsertBefore "Attachments: " & vbCrLf & xFileName & vbCrLf & vbCrLf

Set xMailItem = Nothing

End Sub

Please try, hope it can help you!
Reply
Report
0
0
VMS
VMS     skyyang
This comment was minimized by the moderator on the site
That worked! Now another favor... How do I exclude certain file types or names? My required company signature contains a PNG file that I would like to exclude.Thank you!!
Reply
0
0
skyyang
skyyang     VMS
This comment was minimized by the moderator on the site
To exclude some specific files, please apply the below code, please try it.
Public Sub AddAttachmentNamesToBody()

Dim xMailItem As MailItem

Dim xAttachment As Attachment

Dim xFileName As String

Dim xInspector As Outlook.Inspector

Dim xDoc As Word.Document

Dim xWdSelection As Word.Selection

Dim xExt As String

Dim xFound As Boolean

Dim xExtArr As Variant

On Error Resume Next

xExtArr = Array("docx", "exe") 'change the file extension you want to exclude

Set xMailItem = Outlook.ActiveInspector.CurrentItem

If xMailItem.Attachments.Count = 0 Then

Exit Sub

End If

xFileName = ""

For Each xAttachment In xMailItem.Attachments

xExt = VBA.Mid(xAttachment.FileName, VBA.InStrRev(xAttachment.FileName, ".") + 1)

xFound = False

For i = LBound(xExtArr) To UBound(xExtArr)

If xExt = xExtArr(i) Then

xFound = True

Exit For

End If

Next

If xFound = False Then

If xFileName = "" Then

xFileName = " <" & xAttachment.FileName & "> "

Else

xFileName = xFileName & vbCrLf & " <" & xAttachment.FileName & "> "

End If

End If

Next xAttachment

Set xInspector = Outlook.Application.ActiveInspector()

Set xDoc = xInspector.WordEditor

Set xWdSelection = xDoc.Application.Selection

xWdSelection.InsertBefore "Attachments: " & vbCrLf & xFileName & vbCrLf & vbCrLf

Set xMailItem = Nothing

End Sub
Reply
Report
0
0
mw4
mw4
This comment was minimized by the moderator on the site
when I tried this code it sends the attachment names in every email that has attachments.
I want it to only do it when I click the macro.

How do I amend the code to do just that?
Reply
Report
0
0
kamelion
kamelion     mw4
This comment was minimized by the moderator on the site
I also don't know how to fix it. Anyone could hep on that?
Reply
0
0
SB
SB
This comment was minimized by the moderator on the site
This is wonderful -- thank you! Is there also a way to somehow view all the attachment names in an email that has been sent to you from someone else (i.e. received)? For some reason, the file names are not displaying in full unless you hover, which is ridiculous when you regularly have 15 files to sort through.
Reply
0
0
skyyang
skyyang     SB
This comment was minimized by the moderator on the site
Hello,
To List all attachment names in an received email, please copy and pase the below VBA code into the ThisOutlookSession module of the Microsoft Visual Basic for Applications window:

Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
Dim xEIDArr As Variant, xEID As Variant, xItem As Object
Dim xAttachment As Attachment
Dim xFileName As String
On Error Resume Next
xEIDArr = Split(EntryIDCollection, ",")
For Each xEID In xEIDArr
Set xItem = Session.GetItemFromID(xEID)
If xItem.Class = olMail Then
xFileName = ""
For Each xAttachment In xItem.Attachments
If IsEmbeddedAttachment(xAttachment) = False Then
If xFileName = "" Then
xFileName = " " & "<" & xAttachment.FileName & ">"
Else
xFileName = xFileName & "
" & " " & "<" & xAttachment.FileName & ">"
End If
End If
Next xAttachment
If xFileName = "" Then Exit Sub
xFileName = "Attachments: " & "
" & xFileName & "
" & "
"
xItem.HTMLBody = "" & xFileName & "" & xItem.HTMLBody
xItem.Save
End If
Next
Set xItem = 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

After pasting this code, when new emails with attachments arriving in your Outlook, the attachment names will be listed at the top of the message body automatically.
Please try it, hope it can help you!
View Attachments (1 / 5)
Reply
Report
0
0
Nich
Nich     skyyang
This comment was minimized by the moderator on the site
this is great. Is there any way to merge this with VMS's request above to exclude some specific files included in signatures (.png, .jpg, etc.)?
Reply
0
0
Daniel
Daniel     skyyang
This comment was minimized by the moderator on the site
Great, thanks for that. I wonder if it is possible that the list of attachments is only attached when I write to a specific email address?
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations