WDForge.org - Forums

Besoin d'aide pour traduction de code VB -> Windev

Sujet: Besoin d'aide pour traduction de code VB -> Windev
par Youpi sur 13/11/2007 15:45:23

Bonjour à tous,

Je rencontre une difficulté particulière, je n'arrive pas à traduire un bout de code en Windev :

   Const CdoPR_EMS_AB_PROXY_ADDRESSES = &H800F101E

   Private Sub AfficherAdresses()
     Dim objSession As MAPI.Session
     Dim objMessage As MAPI.Message
     Dim objRecip As MAPI.Recipient
     Dim objField As MAPI.Field
     Dim v

     Set objSession = CreateObject("MAPI.Session")
     objSession.Logon

     ' Affichage du carnet d’adresses et choix d’une boîte aux lettres.
     Set objMessage = objSession.Outbox.Messages.Add
     Set objMessage.Recipients = objSession.AddressBook(OneAddress:=True)
     Set objRecip = objMessage.Recipients(1)

     ' Affichage du nom et de l’adresse Exchange de la boîte aux lettres
     MsgBox "Nom complet : " & objRecip.Name
     MsgBox "Adresse par défaut : " & objRecip.Address

     ' Récupération de la propriété PR_EMS_AB_PROXY_ADDRESSES
     Set objField = _
        objRecip.AddressEntry.Fields(CdoPR_EMS_AB_PROXY_ADDRESSES)

     ' ATTENTION : PR_EMS_AB_PROXY_ADDRESSES est une propriété multivaluée 
' (PT_MV_TSTRING).
     For Each v In objField.Value
         MsgBox "Autre adresse: " & v
     Next

     Set objMessage = Nothing
     Set objRecip = Nothing
     Set objField = Nothing
     objSession.Logoff
     Set objSession = Nothing
     Unload Me
   End Sub

Mon problème est que je ne sais pas traduire cette instruction,

     Set objMessage.Recipients = objSession.AddressBook(OneAddress:=True)

C'est le "OneAddress:=True" qui me pose problème, je ne sais pas comment traduire ça en équivalent Windev, pour le reste c'est OK.

Merci.