यह विधि आउटलुक में प्रत्येक आने वाले ईमेल को विशिष्ट डिस्क पर व्यक्तिगत HTML फ़ाइल के रूप में स्वचालित रूप से सहेजने के लिए एक वीबीए पेश करेगी। कृपया इस प्रकार करें:

1। दबाएँ ऑल्ट + F11 एप्लिकेशन विंडो के लिए Microsoft Visual Basic खोलने के लिए कुंजियाँ।

2. Project1 का विस्तार करें, और डबल क्लिक करें यह आउटलुक सत्र इसे खोलने के लिए, और फिर नीचे दिए गए VBA कोड को ThisOutlookSession विंडो में पेस्ट करें। स्क्रीनशॉट देखें:

वीबीए: आउटलुक ईमेल को स्वचालित रूप से डिस्क पर HTML फ़ाइलों के रूप में सहेजें

Private WithEvents InboxItems As Outlook.Items
Sub Application_Startup()
Dim xNameSpace As Outlook.NameSpace
Set xNameSpace = Outlook.Application.Session
Set InboxItems = xNameSpace.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub InboxItems_ItemAdd(ByVal objItem As Object)
Dim FSO
Dim xMailItem As Outlook.MailItem
Dim xFilePath As String
Dim xRegEx
Dim xFileName As String
On Error Resume Next
xFilePath = CreateObject("WScript.Shell").SpecialFolders(16)
xFilePath = xFilePath & "\MyEmails"
Set FSO = CreateObject("Scripting.FileSystemObject")
If FSO.FolderExists(xFilePath) = False Then
FSO.CreateFolder (xFilePath)
End If
Set xRegEx = CreateObject("vbscript.regexp")
xRegEx.Global = True
xRegEx.IgnoreCase = False
xRegEx.Pattern = "\||\/|\<|\>|""|:|\*|\\|\?"
If objItem.Class = olMail Then
Set xMailItem = objItem
xFileName = xRegEx.Replace(xMailItem.Subject, "")
xMailItem.SaveAs xFilePath & "\" & xFileName & ".html", olHTML
End If
Exit Sub
End Sub

3. VBA कोड सहेजें, और अपना Microsoft Outlook पुनरारंभ करें।

अब से, प्रत्येक आने वाली ईमेल को "MyEmails" फ़ोल्डर में व्यक्तिगत HTML फ़ाइल के रूप में सहेजा जाएगा।

नोट्स:
(1) यह VBA दस्तावेज़ फ़ोल्डर के अंतर्गत "MyEmails" नामक एक फ़ोल्डर बनाएगा। आप इस फ़ोल्डर पथ से स्वचालित रूप से सहेजे गए ईमेल का पता लगा सकते हैं: C:\Users\your_user_name\Documents\MyEmails
(2) यह वीबीए डिफ़ॉल्ट ईमेल खाते के इनबॉक्स फ़ोल्डर में प्राप्त ईमेल के साथ काम करेगा।

आउटलुक में एक्सेल/टेक्स्ट/पीएसटी फ़ाइल में बल्क/चयनित ईमेल कैसे निर्यात करें?