Recherche
Recherche
Les mémos
Je débute...
Visites

 996459 visiteurs

 2 visiteurs en ligne

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


Catégorie : Les mémos - Registre
Page lue 6406 fois