PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEV, WEBDEV e WINDEV Mobile

Inicio | Mensagens recentes | Conecte-se... |  | Português FR
Inicio → WINDEV (versões anteriores) → Ajout d'une piece jointe dans un RDV Outlook
Ajout d'une piece jointe dans un RDV Outlook
Iniciado por cora, dez., 11 2023 4:36 PM - 2 respostas
#1
Membro registado
10 mensagems
Publicado em dezembro, 11 2023 - 4:36 PM
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 :
// Ouverture d'une session Lotus Notes
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&name=rendezvous_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
#2
Membro registado
10 mensagems
Publicado em janeiro, 02 2024 - 11:21 AM
Bonjour à tous,

Je reviens vers vous concernant ma question précédente sur l'ajout de pièces jointes aux rendez-vous Outlook avec Windev. Malheureusement, je n'ai pas encore trouvé de solution.

Si quelqu'un a des idées ou des conseils sur la manière d'ajouter des pièces jointes à un rendez-vous Outlook en utilisant Windev.

Merci d'avance
#3
Membro registado
10 mensagems
Publicado em janeiro, 05 2024 - 10:36 AM
Finalement j'ai utilisé l'OLE d'Outlook pour le faire

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
→ Voltar para WINDEV (versões anteriores)