As developers we often find ourselves writing small one off applications to perform a specific “here and now” requirement. The task was to produce a list of e-mail addresses from a Microsoft Outlook folder. I’m reasonably happy with my understanding of the Microsoft Outlook object model, well, happy enough that I’ve managed to get it to do what I need it to do. I am by no means an expert, however since I’ve been making reasonable progress with my “duplicate e-mail remover” application, I figured that iterating over an Outlook folder extracting the e-mail address on they way couldn’t be too hard.<\/p>\n
Indeed, for SMTP e-mail addresses, it’s fairly straightforward – a mail message<\/a> in Outlook has a SenderEmailAddress<\/strong> property that holds the e-mail address in the format name@domain.com<\/strong>. <\/p>\n In a corporate environment you may find X400 formatted addresses similar to this one: <\/p>\n \/O= The aforementioned SenderEmailAddress is also used to store this address, so if you were expecting an SMTP address, too bad! <\/p>\n However, mail messages also have a string property SenderEmailType<\/strong> which returns EX for mail items that use Exchange Server addressing. Here’s how you might use it:<\/p>\n The eagle-eyed reader will have noticed the call to GetEmailAddressFromExchange.<\/strong> I really wanted an SMTP address for all the mail items in the folder(s) in question. A little bit of searching revealed this well-written article<\/a> by Julian Biddle at An Original Idea<\/a>.<\/p>\n Julian’s article explained how to get an e-mail address from an Exchange Server address using Visual Basic in .NET. I prefer to use C#, so set about converting Julian’s code (which was known to work). There are other flavours of this code floating on the Internet, this one works for me, your mileage may vary<\/a>.<\/p>\n The entire application can be downloaded here<\/a>. This little application is crude, but it solved a problem for me at the time of writing. It demonstrates how to iterate over Microsoft Outlook folders (not just the Inbox) building a treeview on the way. It also demonstrates how to save the contents of a ListView control to a CSV file. <\/p>\n Technorati Tags: GetEmailAddressFromExchange<\/a>, Julian Biddle<\/a>, An Original Idea<\/a>, Microsoft Outlook<\/a>, Outlook<\/a>, Microsoft Exchange Server<\/a>, Exchange Server<\/a>, Exchange<\/a>, e-mail address<\/a>, ListView<\/a>, Save<\/a>, CSV<\/a>, SaveToCSV<\/a><\/p>\n","protected":false},"excerpt":{"rendered":" As developers we often find ourselves writing small one off applications to perform a specific “here and now” requirement. The task was to produce a list of e-mail addresses from a Microsoft Outlook folder. I’m reasonably happy with my understanding of the Microsoft Outlook object model, well, happy enough that I’ve managed to get it … Continue reading Implementing GetEmailAddressFromExchange in C#<\/span> \r\n \/\/ Catch e-mails sitting on an Exchange Server...\r\n if (oMsg.SenderEmailType == \"EX\")\r\n { \r\n display = GetEmailAddressFromExchange(oMsg.SenderName);\r\n }\r\n else\r\n \/\/ Otherwise, assume SMTP addresses\r\n display = string.Format(\"{0}\", oMsg.SenderEmailAddress);\r\n<\/pre>\n\r\nusing System;\r\nusing System.Collections.Generic;\r\nusing System.ComponentModel;\r\nusing System.Data;\r\nusing System.Drawing;\r\nusing System.Linq;\r\nusing System.Text;\r\nusing System.Windows.Forms;\r\nusing Microsoft.Office.Interop.Outlook;\r\nusing System.Runtime.InteropServices;\r\nusing System.IO;\r\n\r\nnamespace OutlookEmailAddressExtractor\r\n{\r\n public partial class frmExtractEmailAddresses : Form\r\n {\r\n public frmExtractEmailAddresses()\r\n {\r\n InitializeComponent();\r\n }\r\n\r\n const int S_OK = 0;\r\n\r\n [DllImport(\"MAPI32.DLL\", CharSet = CharSet.Ansi, EntryPoint = \"HrGetOneProp@12\")]\r\n private static extern void HrGetOneProp(IntPtr pmp, uint ulPropTag, out IntPtr ppProp);\r\n\r\n [DllImport(\"MAPI32.DLL\", CharSet = CharSet.Ansi, EntryPoint = \"HrSetOneProp@8\")]\r\n private static extern void HrSetOneProp(IntPtr pmp, IntPtr pprop);\r\n\r\n [DllImport(\"MAPI32.DLL\", CharSet = CharSet.Ansi, EntryPoint = \"MAPIFreeBuffer@4\")]\r\n private static extern void MAPIFreeBuffer(IntPtr lpBuffer);\r\n\r\n [DllImport(\"MAPI32.DLL\", CharSet = CharSet.Ansi)]\r\n private static extern int MAPIInitialize(IntPtr lpMapiInit);\r\n\r\n [DllImport(\"MAPI32.DLL\", CharSet = CharSet.Ansi)]\r\n private static extern void MAPIUninitialize();\r\n\r\n const string IID_IMAPIProp = \"00020303-0000-0000-C000-000000000046\";\r\n const uint PR_SMTP_ADDRESS = 972947486;\r\n\r\n struct SPropValue\r\n {\r\n public uint ulPropTag;\r\n public uint dwAlignedPad;\r\n public long Value;\r\n }\r\n\r\n Microsoft.Office.Interop.Outlook.Application oApp;\r\n NameSpace oNS;\r\n\r\n\r\n private string GetEmailAddressFromExchange(string emailName)\r\n {\r\n MailItem loDummyMsg = (MailItem)oApp.CreateItem(OlItemType.olMailItem);\r\n Recipient loAddress = loDummyMsg.Recipients.Add(emailName);\r\n loAddress.Resolve();\r\n string SMTPAddress = GetMAPIProperty(loAddress.AddressEntry.MAPIOBJECT, PR_SMTP_ADDRESS);\r\n\r\n return SMTPAddress;\r\n }\r\n\r\n\r\n private string GetMAPIProperty(object oMAPIObject, uint uiPropertyTag)\r\n {\r\n if (oMAPIObject == null)\r\n {\r\n return \"\";\r\n }\r\n\r\n string sProperty = \"\";\r\n IntPtr pPropValue = IntPtr.Zero;\r\n\r\n IntPtr IUnknown = IntPtr.Zero;\r\n IntPtr IMAPIProperty = IntPtr.Zero;\r\n\r\n try\r\n {\r\n MAPIInitialize(IntPtr.Zero);\r\n\r\n IUnknown = Marshal.GetIUnknownForObject(oMAPIObject);\r\n\r\n Guid guidMAPIProp = new Guid(IID_IMAPIProp);\r\n\r\n if (Marshal.QueryInterface(IUnknown, ref guidMAPIProp, out IMAPIProperty) != S_OK)\r\n {\r\n return \"\";\r\n }\r\n\r\n try\r\n {\r\n HrGetOneProp(IMAPIProperty, uiPropertyTag, out pPropValue);\r\n\r\n if (pPropValue == IntPtr.Zero)\r\n {\r\n return \"\";\r\n }\r\n\r\n SPropValue propValue = (SPropValue)Marshal.PtrToStructure(pPropValue, typeof(SPropValue));\r\n\r\n sProperty = Marshal.PtrToStringAnsi(new IntPtr(propValue.Value));\r\n }\r\n catch (System.Exception ex)\r\n {\r\n throw ex;\r\n }\r\n }\r\n finally\r\n {\r\n if (pPropValue != IntPtr.Zero)\r\n {\r\n MAPIFreeBuffer(pPropValue);\r\n }\r\n\r\n if (IMAPIProperty != IntPtr.Zero)\r\n {\r\n Marshal.Release(IMAPIProperty);\r\n }\r\n\r\n if (IUnknown != IntPtr.Zero)\r\n {\r\n Marshal.Release(IUnknown);\r\n }\r\n\r\n MAPIUninitialize();\r\n }\r\n\r\n return sProperty;\r\n }\r\n\r\n \r\n\r\n void _PopulateFolderList(MAPIFolder oFolder, TreeNode node)\r\n {\r\n foreach (MAPIFolder folder in oFolder.Folders)\r\n {\r\n string s =String.Format(\"{0} ({1}) [{2}]\", \r\n folder.Name, \r\n folder.Folders.Count, \r\n folder.Items.Count);\r\n \r\n TreeNode thisNode = node.Nodes.Add(s);\r\n\r\n thisNode.Tag = folder;\r\n\r\n if (folder.Folders.Count > 0)\r\n {\r\n _PopulateFolderList(folder, thisNode);\r\n }\r\n }\r\n }\r\n\r\n private void btnGetFolders_Click(object sender, EventArgs e)\r\n {\r\n oApp = new Microsoft.Office.Interop.Outlook.Application();\r\n oNS = oApp.GetNamespace(\"MAPI\");\r\n\r\n progressBar.Minimum = 0;\r\n progressBar.Maximum = oNS.Folders.Count;\r\n progressBar.Value = 0;\r\n\r\n this.Cursor = Cursors.WaitCursor;\r\n\r\n foreach (MAPIFolder f in oNS.Folders)\r\n {\r\n TreeNode node = tvOutlookFolders.Nodes.Add(f.Name);\r\n\r\n if (f.Name != \"Public Folders\" && f.Name != \"Internet Calendars\")\r\n _PopulateFolderList(f, node);\r\n\r\n progressBar.Value++;\r\n }\r\n\r\n progressBar.Value = 0;\r\n this.Cursor = Cursors.Arrow;\r\n }\r\n\r\n\r\n \r\n\r\n private void btnGetEmailAddresses_Click(object sender, EventArgs e)\r\n {\r\n TreeNode nodeSelected = tvOutlookFolders.SelectedNode;\r\n MAPIFolder folder = (MAPIFolder)nodeSelected.Tag;\r\n\r\n this.Cursor = Cursors.WaitCursor;\r\n\r\n lvEMailInSelectedFolder.Items.Clear();\r\n\r\n if (folder != null)\r\n {\r\n progressBar.Maximum = folder.Items.Count;\r\n progressBar.Minimum = 0;\r\n progressBar.Value = 0;\r\n\r\n string sClassComp = \"IPM.Note\";\r\n\r\n Items oItems = folder.Items;\r\n\r\n label1.Text = oItems.Count.ToString();\r\n\r\n MailItem oMsg = (MailItem)oItems.GetFirst();\r\n\r\n while (oMsg != null)\r\n {\r\n if (oMsg.MessageClass == sClassComp)\r\n {\r\n\r\n if (oMsg.Body != null)\r\n {\r\n string display;\r\n\r\n \/\/ Catch e-mails sitting on an Exchange Server...\r\n if (oMsg.SenderEmailType == \"EX\")\r\n { \r\n display = GetEmailAddressFromExchange(oMsg.SenderName);\r\n }\r\n else\r\n \/\/ Otherwise, assume SMTP addresses\r\n display = string.Format(\"{0}\", oMsg.SenderEmailAddress);\r\n\r\n bool okToAdd = true;\r\n \r\n if (cbIgnoreDuplicates.Checked)\r\n okToAdd = lvEMailInSelectedFolder.FindItemWithText(display) == null;\r\n\r\n if (okToAdd)\r\n {\r\n ListViewItem item;\r\n item = lvEMailInSelectedFolder.Items.Add(display);\r\n\r\n item.SubItems.Add(oMsg.SenderName.ToString());\r\n\r\n if (oMsg.Subject != null)\r\n item.SubItems.Add(oMsg.Subject.ToString());\r\n else\r\n item.SubItems.Add(\" \");\r\n\r\n item.SubItems.Add(oMsg.SenderEmailType);\r\n }\r\n }\r\n }\r\n\r\n bool exceptionRaised = true;\r\n\r\n while (exceptionRaised)\r\n {\r\n try\r\n {\r\n oMsg = (MailItem)oItems.GetNext();\r\n progressBar.Value++;\r\n exceptionRaised = false;\r\n }\r\n catch\r\n {\r\n exceptionRaised = true;\r\n }\r\n }\r\n }\r\n\r\n lvEMailInSelectedFolder.AutoResizeColumns(ColumnHeaderAutoResizeStyle.ColumnContent);\r\n\r\n btnSaveToCSV.Enabled = true;\r\n\r\n progressBar.Value = 0;\r\n\r\n this.Cursor = Cursors.Arrow;\r\n }\r\n }\r\n\r\n private void btnSaveToCSV_Click(object sender, EventArgs e)\r\n {\r\n StringBuilder listViewContent = new StringBuilder();\r\n\r\n foreach (ListViewItem item in this.lvEMailInSelectedFolder.Items)\r\n {\r\n listViewContent.Append(\"\\\"\");\r\n listViewContent.Append(item.Text);\r\n listViewContent.Append(\"\\\"\");\r\n\r\n listViewContent.Append(\",\");\r\n\r\n listViewContent.Append(\"\\\"\");\r\n listViewContent.Append(item.SubItems[1].Text);\r\n listViewContent.Append(\"\\\"\");\r\n \r\n listViewContent.Append(Environment.NewLine);\r\n }\r\n\r\n saveFileDialog.FileName = \"e-mail addresses.csv\";\r\n saveFileDialog.Filter = \"CSV files (*.csv)|*.csv|All files (*.*)|*.*\";\r\n saveFileDialog.ShowDialog();\r\n\r\n if (saveFileDialog.FileName != \"\")\r\n {\r\n TextWriter tw = new StreamWriter(saveFileDialog.FileName);\r\n\r\n tw.WriteLine(listViewContent.ToString());\r\n\r\n tw.Close();\r\n }\r\n }\r\n\r\n private void tvOutlookFolders_AfterSelect(object sender, TreeViewEventArgs e)\r\n {\r\n if (tvOutlookFolders.SelectedNode != null)\r\n {\r\n btnGetEmailAddresses.Enabled = true;\r\n }\r\n }\r\n }\r\n}\r\n<\/pre>\n