[OLE] Oultlook : Connaître le nombre d'E-mails

Bonjour à vous tous,

Voila j'aimerais obtenir le nombre de mails contenus dans la boite de réception par exemple.

J'ai trouvé ceci mais je n'arrive pas à le convertir sous forme c++ builder :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
Sub EssaisCode()
'---------------------------------------------------------------------------------------
' Procédure : EssaisCode
' Auteur    : Dolphy35
' Site      : http://dolphy35.developpez.com
' Détail    : Permet de lister les noms d'expéditeur des Mails présent dans la
'             boîte de réception.
'---------------------------------------------------------------------------------------
'
    'Déclarations
    Dim olApp As Outlook.Application // C++ : vMSOutlook = Variant::GetActiveObject("Outlook.Application");
    Dim olMail As Outlook.MailItem // C++ : vMailItem = Variant::CreateObject("Outlook.MailItem");
    Dim mapDossier As Outlook.MAPIFolder // C++ : vmapDossier = vMSOutlook.OleFunction("GetNameSpace", "MAPI"); ? 
    Dim strResultat As String
    'Instancies
    Set olApp = Outlook.Application
    Set mapDossier = olApp.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
    'Boucle parcourant les Emails de la boîte de réception
    For Each olMail In mapDossier.Items
        strResultat = strResultat & olMail.SenderName & vbCr
    Next
    'Affichage du résultat
    MsgBox strResultat, , "Liste de Noms des Mails reçus"
End Sub

Solution :

Code:

1
2
3
4
5
6
 
	vMapDossier = vMSOutlook.OleFunction("GetNameSpace", "MAPI");
	vDossierReception = vMapDossier.OlePropertyGet("GetDefaultFolder", 6);
	vmyItem = vDossierReception.OlePropertyGet("Items");
	vNbMails = vmyItem.OleFunction("Count");
	ShowMessage(vNbMails );