Mega Code Archive

 

Categories / VisualBasic Script / Outlook

 

The GetOutlook Function

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