दिलचस्प पोस्ट
Express.js में 'अगले / अगले ()' को समझने की कोशिश करने के लिए एक कठिन समय आ रहा है FileSystemWatcher परिवर्तित ईवेंट दो बार उठाया गया है मैं UITableView में एक निश्चित सेल पर डबल टैप कैसे खोज सकता हूं? रेंगने को रोकने के लिए मेरे स्कैरी स्पाइडर को बल दें UINavigationBar मल्टी-लाइन शीर्षक प्रतिनिधि राज्य हस्तांतरण (आरईएसटी) और सरल ऑब्जेक्ट एक्सेस प्रोटोकॉल (एसओएपी) एंड्रॉइड: पिछला स्टैक से सभी पिछली गतिविधियों को निकालें VueJs 2 के साथ वैश्विक डेटा बस दो गोल कोनों? सी #, रेगुलर एक्सप्रेशंस: कॉमा से अलग किए गए वैल्यू को पार्स करने के लिए, जहां कुछ मानों को स्वयं को कॉमा वाले स्ट्रिंग उद्धृत किया जा सकता है RMySQL dbWriteTable field.types के साथ क्या गैर-स्थिर कॉल की तुलना में जावा स्थिर कॉल अधिक या कम महंगे हैं? एक बाइट सरणी के लिए एक बाइनरी स्ट्रिंग प्रतिनिधित्व परिवर्तित करें मेटाडेटा मेटाडाटा का उपयोग करके लोड नहीं किया गया था Laravel 5 आवश्यक बूटस्ट्रैप खोलने में विफल … / विक्रेता / autoload.php

क्या मैं उप फ़ोल्डर्स सहित किसी फ़ोल्डर में सभी आउटलुक ईमेलों के माध्यम से दोहरा सकता हूं?

मेरे पास एक फ़ोल्डर है जिसमें अनेक ईमेल और सब-फ़ोल्डर्स शामिल हैं I उन उप-फ़ोल्डरों के भीतर अधिक ईमेल हैं

मैं कुछ वीबीए लिखना चाहूंगा जो एक निश्चित फ़ोल्डर में सभी ई-मेल के माध्यम से दोहराएगा, इनमें से किसी भी उप-फ़ोल्डरों में शामिल होगा विचार हर ईमेल से SenderEmailAddress और SenderName को निकालने और इसके साथ कुछ करना है

मैंने केवल इन दोनों क्षेत्रों में केवल सीएसवी के रूप में फ़ोल्डर निर्यात करने की कोशिश की है और जब यह काम करता है, यह उप-फ़ोल्डर्स में आयोजित निर्यात ईमेल का समर्थन नहीं करता है इसलिए कुछ VBA लिखने की आवश्यकता है

पहिया की फिर से खोज करने से पहले, क्या किसी भी साइट स्निपेट या साइट के लिंक होते हैं, जो कि फ़ोल्डर का नाम दिया जाता है, यह दर्शाता है कि उस फ़ोल्डर और उसके बाद के उप-फ़ोल्डरों में प्रत्येक ईमेल के लिए MailItem ऑब्जेक्ट कैसे प्राप्त करें?

Solutions Collecting From Web of "क्या मैं उप फ़ोल्डर्स सहित किसी फ़ोल्डर में सभी आउटलुक ईमेलों के माध्यम से दोहरा सकता हूं?"

कुछ इस तरह …

  Private Sub processFolder(ByVal oParent As Outlook.MAPIFolder) Dim oFolder As Outlook.MAPIFolder Dim oMail As Outlook.MailItem For Each oMail In oParent.Items 'Get your data here ... Next If (oParent.Folders.Count > 0) Then For Each oFolder In oParent.Folders processFolder oFolder Next End If End Sub 

इसमें बहुत सारे महान कोड हैं जिनकी आप रुचि रखते हैं। इसे मैक्रो के रूप में Outlook / VBA में चलाएं।

 Const MACRO_NAME = "OST2XLS" Dim excApp As Object, _ excWkb As Object, _ excWks As Object, _ intVersion As Integer, _ intMessages As Integer, _ lngRow As Long Sub ExportMessagesToExcel() Dim strFilename As String, olkSto As Outlook.Store strFilename = InputBox("Enter a filename (including path) to save the exported messages to.", MACRO_NAME) If strFilename <> "" Then intMessages = 0 intVersion = GetOutlookVersion() Set excApp = CreateObject("Excel.Application") Set excWkb = excApp.Workbooks.Add For Each olkSto In Session.Stores Set excWks = excWkb.Worksheets.Add() excWks.Name = "Output1" 'Write Excel Column Headers With excWks .Cells(1, 1) = "Folder" .Cells(1, 2) = "Sender" .Cells(1, 3) = "Received" .Cells(1, 4) = "Sent To" .Cells(1, 5) = "Subject" End With lngRow = 2 ProcessFolder olkSto.GetRootFolder() Next excWkb.SaveAs strFilename End If Set excWks = Nothing Set excWkb = Nothing excApp.Quit Set excApp = Nothing MsgBox "Process complete. A total of " & intMessages & " messages were exported.", vbInformation + vbOKOnly, "Export messages to Excel" End Sub Sub ProcessFolder(olkFld As Outlook.MAPIFolder) Dim olkMsg As Object, olkSub As Outlook.MAPIFolder 'Write messages to spreadsheet For Each olkMsg In olkFld.Items 'Only export messages, not receipts or appointment requests, etc. If olkMsg.Class = olMail Then 'Add a row for each field in the message you want to export excWks.Cells(lngRow, 1) = olkFld.Name excWks.Cells(lngRow, 2) = GetSMTPAddress(olkMsg, intVersion) excWks.Cells(lngRow, 3) = olkMsg.ReceivedTime excWks.Cells(lngRow, 4) = olkMsg.ReceivedByName excWks.Cells(lngRow, 5) = olkMsg.Subject lngRow = lngRow + 1 intMessages = intMessages + 1 End If Next Set olkMsg = Nothing For Each olkSub In olkFld.Folders ProcessFolder olkSub Next Set olkSub = Nothing End Sub Private Function GetSMTPAddress(Item As Outlook.MailItem, intOutlookVersion As Integer) As String Dim olkSnd As Outlook.AddressEntry, olkEnt As Object On Error Resume Next Select Case intOutlookVersion Case Is < 14 If Item.SenderEmailType = "EX" Then GetSMTPAddress = SMTP2007(Item) Else GetSMTPAddress = Item.SenderEmailAddress End If Case Else Set olkSnd = Item.Sender If olkSnd.AddressEntryUserType = olExchangeUserAddressEntry Then Set olkEnt = olkSnd.GetExchangeUser GetSMTPAddress = olkEnt.PrimarySmtpAddress Else GetSMTPAddress = Item.SenderEmailAddress End If End Select On Error GoTo 0 Set olkPrp = Nothing Set olkSnd = Nothing Set olkEnt = Nothing End Function Function GetOutlookVersion() As Integer Dim arrVer As Variant arrVer = Split(Outlook.Version, ".") GetOutlookVersion = arrVer(0) End Function Function SMTP2007(olkMsg As Outlook.MailItem) As String Dim olkPA As Outlook.PropertyAccessor On Error Resume Next Set olkPA = olkMsg.PropertyAccessor SMTP2007 = olkPA.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x5D01001E") On Error GoTo 0 Set olkPA = Nothing End Function