Outlook Code Run from Excel
 

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

Outlook Code Run from Excel
 

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.

Outlook Code Run from Excel
 

On Jun 23, 12:06*pm, "Vacuum Sealed" wrote:
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.

Outlook Code Run from Excel
 

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.

--
Garry

Free usenet access at http://www.eternal-september.org
ClassicVB Users Regroup! comp.lang.basic.visual.misc