[Résolu][Base] Envoi courriel des rendez-vous programmés d'un client

[cegtio]

Titre modifié pour plus de clarté.
Merci d'éviter le "franglish" à l'avenir.

Bonjour la communauté,
Je suis un professionnel de soin de santé et j'utilise Base pour gérer mes "dossiers patients" (pour simplifier: un table CLIENTS et, jointe, une table RDV)

Mon objectif "ultime" serait de pouvoir automatiser (avec par exemple un bouton dans le formulaire AGENDA, voir fichier joint) l'envoi d'un email (via Thunderbird) à un client avec, dans le corps du mail, la liste des rendez-vous programmés (présents dans le sous-formulaire), et en pièce jointe de l'email, un fichier .ICS qui lui permet d'importer l'ensemble de ses rendez-vous dans son agenda.


Peut-être je demande la lune... J'avoue être complètement perdu par rapport à l'immensité de ce chantier et mes compétences très limitées (en même temps, je tiens à utiliser BASE, un logiciel open-source, pour gérer ça et pas être tenté par un logiciel intégré propriétaire couteux et dont le code est obscure).

Peut-être quelqu'un acceptera ici de m'aider, même si c'est pour participer à construire quelques briques.

Belle journée

[Dude]

Salut,

En tant que professionnel de santé, tu dois savoir que l'émail, c'est ce que tu as sur les dents.

Maintenant pour ton problème, celui-ci est complexe.
Et si tu es débutant, tu n'iras pas très loin si tu ne t'investis pas dans la programmation.

un bouton dans le formulaire AGENDA

La 1ere difficulté est de créer ce bouton et de récupérer les données du contrôle table que tu sélectionnes.
Voici un exemple simple de code à étudier :

Code : Tout sélectionner

Sub Main
	'Partie issue de https://beaussier.com/sections/viewtopic.php?f=8&t=158
	oDB = thisDatabaseDocument
	oCnx = oDB.currentcontroller
	If Not oCnx.isConnected() Then oCnx.Connect
	oForms = oDB.FormDocuments
	oForm = oForms.getByName("AGENDA") 'ici le nom du document formulaire 
	oPage = oForm.Component.DrawPage.Forms(0) 'ici le contrôle formulaire dans le document
	oJeu = oPage.createResultSet
	oCtrl = oPage.getByName("MainForm_Grid") 'ici le nom du contrôle 
	oVue = ThisComponent.CurrentController.getControl(oCtrl)
	sMoi = oVue.Selection
	if UBound(sMoi) >= 0 then 
		oJeu.moveToBookmark(sMoi(0))
		MsgBox("Ligne sélectionnée : " & oJeu.getString(3) & " " & oJeu.getString(4))
	else
		msgbox "Sélectionnez une ligne avec la flèche verte"
	endif
End Sub

Il te reste ensuite à combiner les informations avec le sujet que je t'ai précédemment fourni : viewtopic.php?t=67361

un fichier .ICS qui lui permet d'importer l'ensemble de ses rendez-vous dans son agenda

Complexité supplémentaire car il va falloir grouper les événements dans un seul ICS.

[Bidouille]

Dernière visite : 29 juin 2023 22:01

Bonjour,
Vous avez lu semble t-il les réponses qui vous ont été faites sans y donner de suite.
N'ayant plus de nouvelle, on peut en déduire que le problème est résolu ou ne se reproduit plus.
Merci de baliser par vous-même la prochaine fois.

Un remerciement fait aussi plaisir aux bénévoles qui vous ont consacré de leur temps.
La courtoisie fait également partie de la philosophie du logiciel libre.
En cas d'erreur, veuillez lire ce sujet pour une éventuelle réouverture de votre question :
ftopic52748-reouverture-de-question-fermee.html
Cordialement,