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