opening outlook

[jasonseay]

i posted the question on how to get emails from my inbox and i received the code at the bottom of this post. now the problem is that this only works if outlook is open. how do i call the inbox when outlook is closed?

 

 

 

Imports System.Reflection

 

Module Module1

 

Sub Main()

' Create Outlook application.

Dim oApp As Outlook.Application = New Outlook.Application()

 

' Get Mapi NameSpace.

Dim oNS As Outlook.NameSpace = oApp.GetNamespace("mapi")

oNS.Logon("YourValidProfile", Missing.Value, False, True) ' TODO:

 

' 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

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("---------------------------")

Next

 

' Log off.

oNS.Logoff()

 

' Clean up.

oApp = Nothing

oNS = Nothing

oItems = Nothing

oMsg = Nothing

End Sub

 

End Module

[jasonseay]

i finally got it to work

 

changed line:

 

ons.logon("yourvalidprofile", missing.value, false, true)

 

to:

 

ons.logon(<emailaddress>, <password>, false, true)