Email Profiles

[Jonathan Derbyshire]

Hi,

I have set up a new email profile called 'New Profile',
which connects to my friends inbox. Using the following
code, I am able to access the inbox...

Dim ol As New Outlook.Application
Dim ns As Outlook.NameSpace

Set ns = ol.GetNamespace("MAPI")

ns.Logon "New Profile", , True, True
Set fdInbox = ns.GetDefaultFolder(olFolderInbox)


Set ns = Nothing
Set ol = Nothing

The profile that I created (in: control Panel/Mail and
Fax) has been set up to use no default logon (Username and
password), meaning that running the above code requires
me to enter a Username, Domain and Password. This task
needs to be automated, and thus it is not acceptable that
I have to manually enter these details on each entry.

Can I preset the required details to variables which could
then somehow bypass the logon screen?

Please Help

Thanks in advance

Jonathan