VBWEB - Ler o catálogo de endereços usando MAPI

USUÁRIO: SENHA:

SALVAR LOGIN ?


	Dicas
	Visual Basic (Internet)

Título da Dica: Ler o catálogo de endereços usando MAPI

Postada em 1/1/2004 por PC

     Inclua o componente Microsoft MAPI Controls 6.0 (MSMAPI32.OCX)

    Dim i As Integer
    Dim msgSet As MAPIMessages
    Dim sAdresses() As String

    frmMain.MAPISession.DownLoadMail = False
    frmMain.MAPISession.SignOn
    With frmMain.MAPIMessages
        .SessionID = frmMain.MAPISession.SessionID
        .FetchUnreadOnly = True
        .Fetch

        ReDim sAdresses(0)
        For i = 0 To .MsgCount - 1
            .MsgIndex = i
            sAdresses(UBound(sAdresses)) = .MsgOrigAddress
            ReDim Preserve sAdresses(UBound(sAdresses) + 1)
        Next i
        ReDim Preserve sAdresses(UBound(sAdresses) - 1)

        .MsgIndex = -1
        .AddressResolveUI = False
        For i = 0 To UBound(sAdresses)
            .Compose
            .RecipAddress = sAdresses(i)
            .ResolveName
            MsgBox .RecipDisplayName
        Next i

    End With
    frmMain.MAPISession.SignOff


		CyberWEB Network Ltda. © Copyright 2000-2024 - Todos os direitos reservados. Powered by HostingZone - A melhor hospedagem para seu site