Détails messagerie

Extraire le nom du logiciel de messagerie par défaut

N'oubliez pas de télécharger la fonction fReturnRegKeyValue()
 

Function GetDefaultMailSoftware() As String
    GetDefaultMailSoftware = fReturnRegKeyValue(HKEY_LOCAL_MACHINE, _
                                                "SoftwareClientsMail", "")
End Function

Extraire le compte de messagerie par défaut

N'oubliez pas de télécharger la fonction fReturnRegKeyValue()
 

Function GetDefaultMailAccount() As String
    Dim IAM_Path As String
    IAM_Path = fReturnRegKeyValue(HKEY_CURRENT_USER, _
      "SoftwareMicrosoftInternet Account Manager", "Default Mail Account")

    GetDefaultMailAccount = fReturnRegKeyValue(HKEY_CURRENT_USER, _
        "SoftwareMicrosoftInternet Account ManagerAccounts" _
                              & IAM_Path, "SMTP Email Address")
End Function