आउटलुक में प्राप्तकर्ताओं के आधार पर हस्ताक्षर को स्वचालित रूप से कैसे बदलें?
डिफ़ॉल्ट रूप से, आउटलुक में उपयोगकर्ताओं के लिए विभिन्न ईमेल खातों के माध्यम से ईमेल भेजते समय स्वचालित रूप से हस्ताक्षर बदलने के लिए एक अंतर्निहित फ़ंक्शन होता है। लेकिन इसके अलावा, यहां मैं आपको आउटलुक में To फ़ील्ड में विभिन्न प्राप्तकर्ताओं के आधार पर स्वचालित रूप से हस्ताक्षर बदलने की विधि दिखाऊंगा।
वीबीए कोड के साथ प्राप्तकर्ताओं के आधार पर हस्ताक्षर स्वचालित रूप से बदलें
वीबीए कोड के साथ प्राप्तकर्ताओं के आधार पर हस्ताक्षर स्वचालित रूप से बदलें
आउटलुक में ईमेल भेजते समय संबंधित प्राप्तकर्ताओं पर अलग-अलग हस्ताक्षर लागू करने के लिए कृपया नीचे दिए गए चरणों का पालन करें।
1. सबसे पहले, आपको आउटलुक में ऑटो अटैच्ड सिग्नेचर फीचर को डिसेबल करना होगा। फिर से लॉगिन करने के लिए पट्टिका > ऑप्शंस को खोलने के लिए आउटलुक विकल्प खिड़की.
2। में आउटलुक विकल्प खिड़की, चयन करें मेल बाएँ फलक में, फिर क्लिक करें हस्ताक्षर में बटन संदेश लिखें अनुभाग। स्क्रीनशॉट देखें:
3। में हस्ताक्षर एवं स्टेशनरी डायलॉग बॉक्स में जाएं डिफ़ॉल्ट हस्ताक्षर चुनें के तहत अनुभाग ईमेल हस्ताक्षर टैब में एक ईमेल खाता चुनें ईमेल खाता ड्रॉप-डाउन सूची, और फिर चुनें (कोई नहीं) से नए संदेश और उत्तर/आगे ड्रॉप-डाउन सूचियाँ। इन चरणों को तब तक दोहराएँ जब तक कि सभी ईमेल खाते सेट न हो जाएँ (कोई नहीं)। फिर क्लिक करें OK बटन.
नोट: आप इसमें अपने जरूरी हस्ताक्षर भी बना सकते हैं हस्ताक्षर एवं स्टेशनरी संवाद बॉक्स।
4. क्लिक करें OK जब यह वापस आता है तो बटन दबाएं आउटलुक विकल्प खिड़की.
5। दबाएं ऑल्ट + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
6। में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो, डबल क्लिक करें यह आउटलुक सत्र कोड विंडो खोलने के लिए बाएँ फलक में, और विंडो में VBA कोड के नीचे की प्रतिलिपि बनाएँ। स्क्रीनशॉट देखें:
वीबीए कोड: आउटलुक में प्राप्तकर्ताओं के आधार पर स्वचालित रूप से हस्ताक्षर बदलें
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'Updated by ExtendOffice 2022/08/01
Dim xMailItem As MailItem
Dim xRecipients As Recipients
Dim xRecipient As Recipient
Dim xRcpAddress As String
Dim xSignatureFile, xSignaturePath As String
Dim xFSO As Scripting.FileSystemObject
Dim xDoc As Document
Dim xFindStr As String
On Error Resume Next
Set xFSO = New Scripting.FileSystemObject
If Item.Class <> olMail Then Exit Sub
Set xMailItem = Item
Set xRecipients = xMailItem.Recipients
xSignaturePath = CreateObject("WScript.Shell").SpecialFolders(5) + "\Microsoft\Signatures\"
For Each xRecipient In xRecipients
If xRecipient.AddressEntry.AddressEntryUserType = olExchangeUserAddressEntry Then
xRcpAddress = xRecipient.AddressEntry.GetExchangeUser.PrimarySmtpAddress
Else
xRcpAddress = xRecipient.AddressEntry.Address
End If
Select Case xRcpAddress
Case "Email Address 1"
xSignatureFile = xSignaturePath & "aaa.htm"
Exit For
Case "Email Address 2", "Email Address 3"
xSignatureFile = xSignaturePath & "bbb.htm"
Exit For
Case "Email Address 4"
xSignatureFile = xSignaturePath & "ccc.htm"
Exit For
End Select
Next
VBA.DoEvents
Set xDoc = xMailItem.GetInspector.WordEditor
xFindStr = "From: " & xMailItem.Recipients.Item(1).Name & " <" & xRcpAddress & ">"
If VBA.InStr(1, xMailItem.Body, xFindStr) <> 0 Then
xDoc.Application.Selection.HomeKey Unit:=wdStory, Extend:=wdMove
With xDoc.Application.Selection.Find
.ClearFormatting
.Text = xFindStr
.Execute Forward:=True
End With
With xDoc.Application.Selection
.MoveLeft wdCharacter, 2
.InsertParagraphAfter
.MoveDown Unit:=wdLine, Count:=1
End With
Else
With xDoc.Application.Selection
.EndKey Unit:=wdStory, Extend:=wdMove
.InsertParagraphAfter
.MoveDown Unit:=wdLine, Count:=1
End With
End If
xDoc.Application.Selection.InsertFile FileName:=xSignatureFile, Link:=False, Attachment:=False
End Sub
नोट्स:
- 1). VBA कोड में, कृपया " को प्रतिस्थापित करेंईमेल पता 1/2/3/4प्राप्तकर्ताओं के निश्चित ईमेल पते के साथ।
- 2). "आ.एच.टी.एम""bbb.htm"और"सीसीसी.एचटीएम"ये निर्दिष्ट हस्ताक्षर हैं जिन्हें आप संबंधित प्राप्तकर्ताओं को भेजेंगे।
- 3). इस मामले में, हस्ताक्षर "एएए"को भेजा जाएगा"ईमेल पता 1", हस्ताक्षर "BBB"को भेजा जाएगा"ईमेल पता 2" तथा "ईमेल पता 3", तथा "ईमेल पता 4"हस्ताक्षर के साथ एम्बेडेड ईमेल प्राप्त होगा"मुद्रा तिजोरी सिक्के”। कृपया अपनी आवश्यकताओं के आधार पर उन्हें बदलें।
- 4). यदि किसी ईमेल में एकाधिक प्राप्तकर्ता हैं, तो कोड केवल पहले प्राप्तकर्ता को ध्यान में रखता है। इस मामले में, अन्य प्राप्तकर्ताओं को पहले प्राप्तकर्ता के समान हस्ताक्षर वाले ईमेल प्राप्त होंगे।
7। तब दबायें टूल्स > संदर्भ पर जाने के लिए सन्दर्भ-परियोजना संवाद बकस। संवाद में, कृपया दोनों की जाँच करें माइक्रोसॉफ्ट वर्ड ऑब्जेक्ट लाइब्रेरी और माइक्रोसॉफ्ट स्क्रिप्टिंग रनटाइम विकल्प, और फिर क्लिक करें OK बटन, स्क्रीनशॉट देखें:
8। दबाएं ऑल्ट + Q बंद करने के लिए कुंजियाँ अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
अब से, एक ईमेल लिखने और सेंड बटन दबाने के बाद, To फ़ील्ड में प्राप्तकर्ता के ईमेल पते के आधार पर संबंधित हस्ताक्षर स्वचालित रूप से ईमेल बॉडी के अंत में डाला जाएगा।
आउटलुक में ईमेल भेजते समय हस्ताक्षर के रूप में स्वचालित रूप से वर्तमान तिथि डालें:
यदि आप अपने आउटलुक में नया ईमेल बनाते/उत्तर देते/अग्रेषित करते समय ईमेल के मुख्य भाग में हस्ताक्षर के रूप में टाइमस्टैम्प सम्मिलित करना चाहते हैं, तो आप इसे सक्षम कर सकते हैं नया बनाते समय, उत्तर दें और ईमेल अग्रेषित करते समय दिनांक हस्ताक्षर जोड़ें का विकल्प आउटलुक के लिए कुटूल इसे हासिल करने के लिए. स्क्रीनशॉट देखें:
इसे अभी डाउनलोड करें और आज़माएं (60 दिन का निःशुल्क ट्रायल)।)
सर्वोत्तम कार्यालय उत्पादकता उपकरण
आउटलुक के लिए कुटूल - आपके आउटलुक को सुपरचार्ज करने के लिए 100 से अधिक शक्तिशाली सुविधाएँ
🤖 एआई मेल सहायक: एआई जादू के साथ त्वरित प्रो ईमेल - प्रतिभाशाली उत्तरों के लिए एक-क्लिक, सही टोन, बहुभाषी महारत। ईमेलिंग को सहजता से रूपांतरित करें! ...
📧 ईमेल स्वचालन: कार्यालय से बाहर (POP और IMAP के लिए उपलब्ध) / ईमेल भेजने का शेड्यूल करें / ईमेल भेजते समय नियमों के अनुसार ऑटो सीसी/बीसीसी / स्वतः अग्रेषित (उन्नत नियम) / स्वतः ग्रीटिंग जोड़ें / बहु-प्राप्तकर्ता ईमेल को स्वचालित रूप से अलग-अलग संदेशों में विभाजित करें ...
📨 ईमेल प्रबंधन: आसानी से ईमेल याद रखें / विषयों और अन्य लोगों द्वारा घोटाले वाले ईमेल को ब्लॉक करें / डुप्लिकेट ईमेल हटाएँ / उन्नत खोज / फ़ोल्डरों को समेकित करें ...
📁 अनुलग्नक प्रो: बैच सहेजें / बैच अलग करना / बैच संपीड़न / ऑटो सहेजें / ऑटो डिटैच / ऑटो कंप्रेस ...
🌟 इंटरफ़ेस जादू: 😊अधिक सुंदर और शानदार इमोजी / टैब्ड व्यू के साथ अपनी आउटलुक उत्पादकता बढ़ाएँ / आउटलुक को बंद करने के बजाय छोटा करें ...
???? एक-क्लिक चमत्कार: आने वाले अनुलग्नकों के साथ सभी को उत्तर दें / फ़िशिंग-रोधी ईमेल / 🕘प्रेषक का समय क्षेत्र दिखाएं ...
👩🏼🤝👩🏻 संपर्क एवं कैलेंडर: बैच चयनित ईमेल से संपर्क जोड़ें / किसी संपर्क समूह को अलग-अलग समूहों में विभाजित करें / जन्मदिन अनुस्मारक हटाएँ ...
के ऊपर 100 सुविधाएँ आपके अन्वेषण की प्रतीक्षा करें! अधिक जानने के लिए यहां क्लिक करें।