Are your clients/co-workers work on Mail Clients (Microsoft Outlook, Outlook Express or Lotus Notes)?
Don’t worry, you can know their mail client with this simple code below:
Function CheckDefaultMailClient() As String
'Reads the value for the default email client from Registry
'If the key cannot be found, the return value is ""
Dim objWindowsScript As Object
Dim strDefaultMailClient As String
Dim strRegistryKey As String
strRegistryKey = "HKEY_LOCAL_MACHINE\SOFTWARE\Clients\Mail\"
On Error Resume Next
'Access Windows scripting
Set objWindowsScript = CreateObject("WScript.Shell")
'Read key from registry
strDefaultMailClient = objWindowsScript.RegRead(strRegistryKey)
If strDefaultMailClient = vbNullString Or strDefaultMailClient = "" Then
CheckDefaultMailClient = ""
Else
CheckDefaultMailClient = strDefaultMailClient
End If
End Function
Advertisements
