Aporte: ¿Cómo detectar que programa está asociado al protocolo mailto?

[haggenx]

Les comparto este código para saber con que programa se va a abrir el comando mailto cuando por ejemplo hagamos clic en un enlace de correo en el navegador:

Public Function getMailtoApp() As String

Dim ret As Long, key As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.ClassesRoot
Dim rtn As String = "", secondKey As String = ""

key = key.OpenSubKey("mailto\Shell\Open\Command")

If key IsNot Nothing Then

secondKey = key.GetValue("").ToString().Trim

If secondKey.IsNullOrEmpty(secondKey) = False Then

rtn = secondKey.Trim
rtn = System.Text.RegularExpressions.Regex.Match(rtn, "\""(.*?)\""").Groups(0).Value

End If

End If

rtn = rtn.Trim
If rtn.StartsWith(Chr(34)) = True Then rtn = rtn.Substring(1, rtn.Length - 1)
If rtn.EndsWith(Chr(34)) = True Then rtn = rtn.Substring(0, rtn.Length - 1)

Return rtn

End Function