Bonjour,
Est-ce que quelqu'un sait comment récupérer la listes des destinataires (emails) d'un rapport BO (Webi) ?
Merci.
Bonjour,
Est-ce que quelqu'un sait comment récupérer la listes des destinataires (emails) d'un rapport BO (Webi) ?
Merci.
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.
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 :
La personne qui s'en occupe ne sait pas grand chose de plus..
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
Merci.
Oui c'est pas ça xD
et j'ai même oublié un "S"...
Je suis en train de testé avec çà :
ç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)
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
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
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager