Hi I would like to readn emails from a http location like in this following example. how to do that? thanks Imports System.Reflection Module Module1 Sub Main() ' Create Outlook application. Dim oApp As Outlook.Application = New Outlook.Application ' String used for comparison with mail item. Dim sClassComp = "IPM.Note" ' Get Mapi NameSpace. Dim oNS As Outlook.NameSpace = oApp.GetNamespace("MAPI") ' Get Messages collection of Inbox. Dim oInbox As Outlook.MAPIFolder = oNS.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderInbox) Dim oItems As Outlook.Items = oInbox.Items Console.WriteLine("Total : " & oItems.Count) ' Get unread e-mail messages. oItems = oItems.Restrict("[Unread] = true") Console.WriteLine("Total Unread : " & oItems.Count) ' Loop each unread message. Dim oMsg As Outlook.MailItem Dim i As Integer For i = 1 To oItems.Count 'Test to make sure item is a mail item 'and not a meeting request. If oItems.Item(i).MessageClass = sClassComp Then oMsg = oItems.Item(i) Console.WriteLine(i) Console.WriteLine(oMsg.SenderName) Console.WriteLine(oMsg.Subject) Console.WriteLine(oMsg.ReceivedTime) Console.WriteLine(oMsg.Body) Console.WriteLine("---------------------------") Console.ReadLine() End If Next ' Clean up. oApp = Nothing oNS = Nothing oItems = Nothing oMsg = Nothing End Sub End Module
