Improve company productivity with a Business Account.Sign Up

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 167
  • Last Modified:

check outlook from access vba with a specific profile name

Check Outlook for several options:




If not open: Open with specific profile:
Dim objOL As Outlook.Application
    On Error Resume Next
    Set objOL = GetObject(, "Outlook.Application")
    If objOL Is Nothing Then
        Set objOL = CreateObject("Outlook.Application")
        objOL.Session.Logon ProfileName, , False, True
    End If
    Set OpenOL = objOL
    Set objOL = Nothing

Open in new window







If outlook is open :
Look for the profile name: if it is not a specific profile name then close it and open with a specific prpfile name...

Need code for checking outlook with a specific profile name ??


Function OpenOL(Optional ProfileName) As Outlook.Application
    Dim objOL As Outlook.Application
    On Error Resume Next
    Set objOL = GetObject(, "Outlook.Application")
    If objOL Is Nothing Then
        Set objOL = CreateObject("Outlook.Application")
        objOL.Session.Logon ProfileName, , False, True
    End If
    Set OpenOL = objOL
    Set objOL = Nothing
End Function

Open in new window




Thanks
Fordraiders
0
Fordraiders
Asked:
Fordraiders
1 Solution
 
Rgonzo1971Commented:
Hi,

pls try
Sub Macro()
Dim objOL As Outlook.Application
    On Error Resume Next
    Set objOL = GetObject(, "Outlook.Application")
    
    If Not objOL Is Nothing Then
        If objOL.Session.CurrentProfileName <> ProfileName Then
            objOL.Session.Logoff
            objOL.Session.Logon ProfileName, , False, True
        End If
    Else
        Set objOL = CreateObject("Outlook.Application")
        objOL.Session.Logon ProfileName, , False, True
    End If
    Set OpenOL = objOL
    Set objOL = Nothing

End Sub

Open in new window

Regards
0
 
FordraidersAuthor Commented:
thanks  !
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Get 10% Off Your First Squarespace Website

Ready to showcase your work, publish content or promote your business online? With Squarespace’s award-winning templates and 24/7 customer service, getting started is simple. Head to Squarespace.com and use offer code ‘EXPERTS’ to get 10% off your first purchase.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now