Outlook Code Run from Excel

[WhytheQ]

Hello All,

I use the following function in Excel to call outlook before creating
an email. Using Office 2010 I'm finding that even with the correct
setting in the Mail section of our Control Panel that if OL is not
running when the function runs then a window appears asking to Choose
Profile. I've tried commenting out the two marked lines below and it
all seems to run without asking for the profile - would it be logical
to assume that these two lines are connected with the application
asking for a profile ?


Any help much appreciated
Jason.


Private Function OpenOutlook()
On Error Resume Next
Set myOutApp = GetObject(, "Outlook.Application")
If Err.Number = 429 Then
Set myOutApp = CreateObject("Outlook.Application")


'possible offending code>>>>>>>>>>>
' Set myNS = myOutApp.GetNamespace("MAPI")
' myNS.Logon
'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>


End If
On Error GoTo 0
End Function 'OpenOutlook

 

[Vacuum Sealed]

Jason

Checkout Ron Bebruin's website:
http://www.rondebruin.nl/cdo.htm

This may help, if not there are many other examples you can have a look at.

HTH
Mick.

 

[WhytheQ]

Jason

Checkout Ron Bebruin's website:http://www.rondebruin.nl/cdo.htm

This may help, if not there are many other examples you can have a look at.

HTH
Mick.

Thanks Mick - I'm familiar with Ron's site. Was hoping for an answer
to my specific question. Any ideas?

Jason

 

[GS]

AFAIK, just starting Outlook defaults to the current user profile if
one exists. Not sure why you have to specify a profile or even start an
email app using CreateObject since SheeExecute opens the default app
when you specify "mailto:" as one of its args.