Discussion :

[ceura]

Bonjour,

Je recherche actuellement une solution pour ajouter des pièces jointes lors de la création d'un rendez-vous sur Outlook à l'aide de Windev. J'ai trouvé le code suivant dans la documentation, qui fonctionne bien pour la création de rendez-vous :

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
 
// Ouverture d'une session Outlook 
IDSession est un entier
IDSession = OutlookOuvreSession("MonProfil")
// Initialisation des variables de la structure RendezVous
RendezVousRAZ()
// Renseignements des variables pour le nouveau rendez-vous
mRendezVous.Objet = "Réunion commerciaux"
mRendezVous.DateDébut = "20070125100000"
mRendezVous.Lieu = "Salle 3B"
mRendezVous.NbParticipant = 3
mRendezVous.Participant[1] = "Romain"
mRendezVous.Participant[2] = "Lucas"
mRendezVous.Participant[3] = "Stéphane"
// Ajout du rendez-vous
SI RendezVousAjoute(IDSession) = Vrai ALORS
Info("Rendez-vous ajouté")
SINON
Erreur("Erreur lors de l'ajout", ErreurInfo())
FIN

Cependant, en consultant la documentation de l'objet mRendezVous (https://doc.pcsoft.fr/?1000019244&na..._type_variable), je n'ai pas trouvé d'information sur la manière d'ajouter une pièce jointe à un rendez-vous. Est-ce que quelqu'un pourrait me fournir des conseils ou une alternative pour accomplir cette tâche ?

Merci d'avance pour l'aide

[frenchsting]

Bonjour,

[EDIT]Après lecture un peu plus approfondie de la doc, mon idée de Ressource, n'est pas du tout la bonne.

Une solution est, à mon avis, de passer par le champ ActiveX.

[ceura]

Une idée que j'ai eu serait de passer par le COM Outlook. Je sais que c'est facilement faisable avec Python :

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
 
import win32com.client as client
 
Outlook = client.Dispatch("outlook.application")
cal_item = Outlook.CreateItem(1)
cal_item.subject = "test sujet"
cal_item.body = "test_body"
cal_item.location = "Emplacement test"
cal_item.start = "11/01/2024 10:00:00 AM"
cal_item.duration = 90
cal_item.Attachments.Add("Chemin Vers fichier")
cal_item.MeetingStatus = 1
 
required = cal_item.Recipients.add("test@gmail.com")
required.Type = 1 
cal_item.display()
cal_item.send()

Je vais voir si c'est possible avec Windev. Notamment avec les fonctions COMCréeInstance et COMAppelleMéthode

[frenchsting]

Oui, c'est une possibilité. Il y a également un exemple complet de pilotage de Outlook en utilisant le bon vieux OLE.

[ceura]

Ducoup le code suivant est fonctionnel pour ajouter un rendez-vous sur Outlook.

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
 
OUTLOOK	est un objet OLE dynamique
Calendrier	est un objet OLE dynamique
nItem	est un entier
nMeetingStatus	est un entier
 
nItem			= 1
nMeetingStatus  = 1
 
 
OUTLOOK			 = allouer un objet OLE "Outlook.Application"
Calendrier			 = OUTLOOK>>CreateItem(nItem)
Calendrier>>subject      = "Test objet"
Calendrier>>body 	 = "Test body"
Calendrier>>location      = "Test location"
Calendrier>>start 	 = "11/01/2024 10:00:00 AM"
Calendrier>>end		 = "11/01/2024 11:00:00 AM"
 
Calendrier>>Attachments>>add("Chemin fichier")
Calendrier>>MeetingStatus = nMeetingStatus
Calendrier>>Recipients>>add("test@gmail.com")	
 
Calendrier>>Send()
 
libérer Calendrier
libérer OUTLOOK

Le seule petit problème qu'il me reste est le fait que ce rendez-vous s'ajoute dans mon calendrier aussi. Est ce possible d'ajouter le rendez-vous seulement au calendrier du recipients ?

[Lo²]

Bonjour,

Etant donné qu'il s'agit d'une création de réunion (si j'ai bien lu en diagonal), l'occurrence est présente côté créateur et destinataires.
Si c'est pour créer un rdv sur un calendrier qui n'est pas celui de l'utilisateur Outlook local, il y a peut-être moyen de lister les calendriers disponibles quelque part.

[frenchsting]

Bonjour,

Pour moi, il faut trouver comment changer de calendrier. Par défaut, il prend celui de l'utilisateur qui ouvre la session.

Il faut regarder dans le code VBA pour Outlook. Un point de départ ici