This code showed me the different TypeNames that were in my Inbox: Public Sub GetTypeNamesInbox() Dim myOlItems As Outlook.Items Set myOlItems = application.GetNamespace(“MAPI”).GetDefaultFolder(olFolderInbox).Items Dim msg As Object For Each msg In myOlItems Debug.Print TypeName(msg) ’emails are typename MailItem ‘Meeting responses are typename MeetingItem ‘Delivery receipts are typename ReportItem Next msg End Sub HTH
See here http://msdn.microsoft.com/en-us/library/office/ff865637.aspx Sub CreateFromTemplate() Dim MyItem As Outlook.MailItem Set MyItem = Application.CreateItemFromTemplate(“C:\statusrep.oft”) MyItem.Display End Sub Not just for .oft files Set MyItem = Application.CreateItemFromTemplate(“C:\temp\mail_item1.msg”) Edit – I keep forgetting about OpenSharedItem. http://msdn.microsoft.com/en-us/library/office/bb208171(v=office.12).aspx
Something like this … 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