Urgent: Outlook with VB.net

[srinivas]

Hi,
i'm trying to retreive the appointments from different profiles of
outlook.
My outlook has 3 profiles created.('Sampl e1','Sample2',' Sample3')
my form contains 3 buttons.each one for each profile.
so when user clicks on a button my code has to show the appointments
for that particular profile that was given there.
i wrote a small procedure for that
here's the code:
----------------------------
Private Sub btnProfile1_Cli ck(ByVal sender As System.Object, ByVal e
As System.EventArg s) Handles btnProfile1.Cli ck
olProfile("Samp le1")
End Sub

Private Sub btnProfile2_Cli ck(ByVal sender As System.Object, ByVal
e As System.EventArg s) Handles btnProfile2.Cli ck
olProfile("Samp le2")
End Sub

Private Sub btnProfile3_Cli ck(ByVal sender As System.Object, ByVal
e As System.EventArg s) Handles btnProfile3.Cli ck
olProfile("Samp le3")
End Sub
//This is the procedure....
Private Sub olProfile(ByVal profile As String)
MsgBox("Generat ing for the profile:" & profile)

Dim appProfile As Outlook.Applica tion = New
Outlook.Applica tion()
Dim nsProfile As Outlook.NameSpa ce =
appProfile.GetN amespace("mapi" )

nsProfile.Logon (profile, , False, True)
Dim fldrProfile As Outlook.MAPIFol der =
nsProfile.GetDe faultFolder(Out look.OlDefaultF olders.olFolder Calendar)
Dim aProfile As Outlook.Items = fldrProfile.Ite ms
Dim aptProfile As Outlook.Appoint mentItem
Dim iProfile As Integer
MsgBox("Appoint ment Information from the profile" & profile)
MsgBox(aProfile .Count)
aptProfile = aProfile.GetFir st

For iProfile = 0 To aProfile.Count - 1
MsgBox("Subject :" & aptProfile.Subj ect & vbCrLf & "
Location:" & aptProfile.Loca tion & vbCrLf & "Start Time:" &
aptProfile.Star t & vbCrLf & " End Time:" & aptProfile.End)
aptProfile = aProfile.GetNex t
Next
nsProfile.Logof f()
appProfile = Nothing
nsProfile = Nothing
aProfile = Nothing
aptProfile = Nothing

End Sub

----------------------------------------
When i click on one of button it's showing the appointments for that
profile.If i click another button then also it's working fine.
HERE's the problem:
From then onwards if i click any button it's showing the previous
profile's appointments only,irrespecti ve of the button.
here i was caught....how to get rid of this...?
Is there any way to check whether outlook application was launched or
not...if so with what profile??
Can anyone please help me....
Thanks in advance...

Srinivas

[Jay B. Harlow [MVP - Outlook]]

srinivas,
For starters you are not really releasing the Outlook objects!

appProfile = Nothing
nsProfile = Nothing
aProfile = Nothing
aptProfile = Nothing
End Sub
Remember in .NET we have the GC, setting an object to Nothing, does exactly
that it sets it to Nothing. The GC will at its leisure release the object
(more importantly the COM object). This will cause Outlook to "remain" open,
hence you are getting the same session...

Instead of setting the (COM) objects to Nothing, you should call
ReleaseComObjec t (in a loop) for each of your COM Objects (objects returned
from Outlook).

See: System.Runtime. InteropServices .Marshal.Releas eComObject

This will ensure that the Outlook COM objects are released allowed Outlook
to close. However I do not have multiple profiles to try your sample on...

The following site has a plethora of articles on using Outlook from .NET.

http://www.microeye.com/resources/res_outlookvsnet.htm

Although not necessarily .NET both of these have a lot of Outlook
programming examples & information:

http://www.outlookcode.com/
http://www.slipstick.com/dev/index.htm

Hope this helps
Jay

"srinivas" <sr************ @bharatmail.com > wrote in message
news:e9******** *************** ***@posting.goo gle.com... Hi,
i'm trying to retreive the appointments from different profiles of
outlook.
My outlook has 3 profiles created.('Sampl e1','Sample2',' Sample3')
my form contains 3 buttons.each one for each profile.
so when user clicks on a button my code has to show the appointments
for that particular profile that was given there.
i wrote a small procedure for that
here's the code:
----------------------------
Private Sub btnProfile1_Cli ck(ByVal sender As System.Object, ByVal e
As System.EventArg s) Handles btnProfile1.Cli ck
olProfile("Samp le1")
End Sub

Private Sub btnProfile2_Cli ck(ByVal sender As System.Object, ByVal
e As System.EventArg s) Handles btnProfile2.Cli ck
olProfile("Samp le2")
End Sub

Private Sub btnProfile3_Cli ck(ByVal sender As System.Object, ByVal
e As System.EventArg s) Handles btnProfile3.Cli ck
olProfile("Samp le3")
End Sub
//This is the procedure....
Private Sub olProfile(ByVal profile As String)
MsgBox("Generat ing for the profile:" & profile)

Dim appProfile As Outlook.Applica tion = New
Outlook.Applica tion()
Dim nsProfile As Outlook.NameSpa ce =
appProfile.GetN amespace("mapi" )

nsProfile.Logon (profile, , False, True)
Dim fldrProfile As Outlook.MAPIFol der =
nsProfile.GetDe faultFolder(Out look.OlDefaultF olders.olFolder Calendar)
Dim aProfile As Outlook.Items = fldrProfile.Ite ms
Dim aptProfile As Outlook.Appoint mentItem
Dim iProfile As Integer
MsgBox("Appoint ment Information from the profile" & profile)
MsgBox(aProfile .Count)
aptProfile = aProfile.GetFir st

For iProfile = 0 To aProfile.Count - 1
MsgBox("Subject :" & aptProfile.Subj ect & vbCrLf & "
Location:" & aptProfile.Loca tion & vbCrLf & "Start Time:" &
aptProfile.Star t & vbCrLf & " End Time:" & aptProfile.End)
aptProfile = aProfile.GetNex t
Next
nsProfile.Logof f()
appProfile = Nothing
nsProfile = Nothing
aProfile = Nothing
aptProfile = Nothing

End Sub

----------------------------------------
When i click on one of button it's showing the appointments for that
profile.If i click another button then also it's working fine.
HERE's the problem:
From then onwards if i click any button it's showing the previous
profile's appointments only,irrespecti ve of the button.
here i was caught....how to get rid of this...?
Is there any way to check whether outlook application was launched or
not...if so with what profile??
Can anyone please help me....
Thanks in advance...

Srinivas