Besoin d'aide pour traduction de code VB -> Windev
Stagiaire WDF
Inscrit:
05/10/2005 12:32
De LA VARENNE SAINT HILAIRE
Post(s): 20
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.

Contribution le : 13/11/2007 15:45
Créer un fichier PDF de la contribution Imprimer


Re: Besoin d'aide pour traduction de code VB -> Windev
Animateur WDF
Inscrit:
26/06/2002 16:24
De wdforge.org
Post(s): 2822
objSession.AddressBook(OneAddress:=True)
devient
objSession>>AddressBook(True) si OneAddress est le premier paramètre de la méthode.

Contribution le : 14/11/2007 08:32
_________________
R&B
Contact, CV.
Créer un fichier PDF de la contribution Imprimer


Re: Besoin d'aide pour traduction de code VB -> Windev
Stagiaire WDF
Inscrit:
05/10/2005 12:32
De LA VARENNE SAINT HILAIRE
Post(s): 20
Bonjour,

Merci bien pour votre réponse, cela correspond bien à ce que je veux.

Cela dit, je bloque en faite sur :

' 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

Quelqu'un serait traduire cette portion de code en Wlangage ? Je m'aperçois que je ne sais pas lire une propriété multivaluée correctement.

Merci.

Contribution le : 15/11/2007 09:46
Créer un fichier PDF de la contribution Imprimer


Re: Besoin d'aide pour traduction de code VB -> Windev
Animateur WDF
Inscrit:
02/03/2003 04:07
De Noisy le grand(93)
Post(s): 2745
Bonjour,

Quelque chose du genre:
Ind est un entier
v est une chaine

Pour Ind = 1 A objField>>Count()
  v = objField>>Item(Ind)  
  Info( "Autre adresse : " + v )
Fin

Contribution le : 16/11/2007 17:51
_________________
@A+
Contact (privé)......
email : drcharly@wdforge.org
[DrCharly93]
Créer un fichier PDF de la contribution Imprimer


Re: Besoin d'aide pour traduction de code VB -> Windev
Stagiaire WDF
Inscrit:
05/10/2005 12:32
De LA VARENNE SAINT HILAIRE
Post(s): 20
Merci beaucoup pour cette réponse, je vais tester dès que possible.

Un grand merci à la communauté.

Je vous tiens au courant.

Contribution le : 19/11/2007 11:47
Créer un fichier PDF de la contribution Imprimer



 Haut   Précédent   Suivant




Enregistrer votre réponse
CompteNom   Mot de passe   Authentification
Message:


Vous ne pouvez pas débuter de nouveaux sujets.
Vous pouvez voir les sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.

[Recherche avancée]


Connexion
Menu
Chercher WDForge
Chercher Web
Partenaires
Visualiser tous les Partenaires...
WinDev, WebDev, WinDev Mobile et HyperFile sont des marques déposées par PCSoft. |  Voter |  Legal |  Contact |   XOOPS 2.0.13.2