Discussion :

[jeyGey]

Bonjour,

Est-ce que quelqu'un sait comment récupérer la listes des destinataires (emails) d'un rapport BO (Webi) ?

Merci.

[bastoonet]

Tu veux surement parler d'une planification ? (faite sous BO ou 360 ?)


le mieux est de demander à la personne qui a créer la planification.

[jeyGey]

Oui une planification pardon.

Avec une le query builder j'arrive à voir les adresses mail que je veux

SELECT top 100000 SI_ID, SI_NAME, SI_SCHEDULEINFO.SI_DESTINATION FROM CI_INFOOBJECTS WHERE SI_ID = SI_ID

Il se trouve la dedans :

SI_DESTINATIONS.1.SI_DEST_SCHEDULEOPTIONS.SI_MAIL_ADDRESSES.1.X@X.X

Je voudrais récupérer la liste des adresses en VB c'est la ou je suis bloqué maintenant.

J'arrive bien à récupérer des champs simples comme "SI_ID" avec ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
For Each DocumentItem In Documents
    For i = 1 To DocumentItem.Properties.Count
        Debug.Print DocumentItem.Properties.Item(i).Name
 
        If DocumentItem.Properties.Item(i).Name = "SI_ID" Then
            Rng(RowNum, i) = DocumentItem.Properties.Item(i).Value
        End If
 
        If DocumentItem.Properties.Item(i).Name = "SI_DESTINATION " Then ==> NE FONCTIONNE PAS
            Rng(RowNum, i) = "-"
        End If
   Next
Next

La personne qui s'en occupe ne sait pas grand chose de plus..

Merci.

[bastoonet]

Oui une planification pardon.

Avec une le query builder j'arrive à voir les adresses mail que je veux

SELECT top 100000 SI_ID, SI_NAME, SI_SCHEDULEINFO.SI_DESTINATION FROM CI_INFOOBJECTS WHERE SI_ID = SI_ID

Il se trouve la dedans :

SI_DESTINATIONS.1.SI_DEST_SCHEDULEOPTIONS.SI_MAIL_ADDRESSES.1.X@X.X

Je voudrais récupérer la liste des adresses en VB c'est la ou je suis bloqué maintenant.

J'arrive bien à récupérer des champs simples comme "SI_ID" avec ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
For Each DocumentItem In Documents
    For i = 1 To DocumentItem.Properties.Count
        Debug.Print DocumentItem.Properties.Item(i).Name
 
        If DocumentItem.Properties.Item(i).Name = "SI_ID" Then
            Rng(RowNum, i) = DocumentItem.Properties.Item(i).Value
        End If
 
        If DocumentItem.Properties.Item(i).Name = "SI_DESTINATION " Then ==> NE FONCTIONNE PAS
            Rng(RowNum, i) = "-"
        End If
   Next
Next

La personne qui s'en occupe ne sait pas grand chose de plus..

Merci.

t'as mis un espace après "SI_DESTINATION " ...mais j'imagine que le problème ne vient pas de là

[jeyGey]

Oui c'est pas ça xD

et j'ai même oublié un "S"...

Je suis en train de testé avec çà :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
For Each DocumentItem In Documents
    Dim oScheduleInfo As CrystalInfoStoreLib.SchedulingInfo
    Set oScheduleInfo = DocumentItem.SchedulingInfo
    Rng(RowNum, 3) = oScheduleInfo.Properties.Item("SI_DESTINATIONS").Properties("1").Properties("SI_DEST_SCHEDULEOPTIONS").Properties("SI_MAIL_ADDRESSES").Properties("1").Value
Next DocumentItem

ça fonctionne ! MAIS je sais pas comment boucler sur les adresses.. il peut y en avoir plusieurs (ça correspond au propriétés("1") le dernier)

[jeyGey]

Résolu :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
26
 
        Dim SI_DESTINATIONS As Property
        Dim SI_DEST_SCHEDULEOPTIONS As Property
        Dim SI_MAIL_ADDRESSES As Property
        Dim emailsToString As String
 
        emailsToString = ""
 
        'SI_DESTINATIONS
        For Each SI_DESTINATIONS In DocumentItem.SchedulingInfo.Properties
            If SI_DESTINATIONS.Name = "SI_DESTINATIONS" Then
                'SI_DEST_SCHEDULEOPTIONS
                For Each SI_DEST_SCHEDULEOPTIONS In SI_DESTINATIONS.Properties("1").Properties
                    If SI_DEST_SCHEDULEOPTIONS.Name = "SI_DEST_SCHEDULEOPTIONS" Then
                        'SI_MAIL_ADDRESSES
                        For Each SI_MAIL_ADDRESSES In SI_DEST_SCHEDULEOPTIONS.Properties
                            If SI_MAIL_ADDRESSES.Name = "SI_MAIL_ADDRESSES" Then
                                For i = 2 To SI_MAIL_ADDRESSES.Properties.Count
                                    emailsToString = emailsToString & SI_MAIL_ADDRESSES.Properties(i).Value & ";"
                                Next
                            End If
                        Next
                    End If
                Next
            End If
        Next