Function GetOutlook() As Outlook.NameSpace
Dim objOutlook As New Outlook.Application
Dim objNamespace As Outlook.NameSpace
Dim strProfile As String
Dim strPassword As String
strProfile = "A"
strPassword = "mypassword"
Set objNamespace = objOutlook.GetNamespace("MAPI")
Call objNamespace.Logon(strProfile, _
strPassword, False, True)
Set GetOutlook = objNamespace
End Function