OVH Cloud OVH Cloud

VBA Captuer le bouton envoyer

10 réponses
Avatar
Stephane D
Bonjour tout le monde

J'ai créer un formulaire à partir de message. Lorsque l'utilisateur
clique sur le bouton evoyer, je voudrai exécuter une macro.
Cette macro créerai un message "classique" et y copierait les
différentes info du formulaire dans le corps du message. Le but est
d'envoyer un message "classqiue" et pas un message avec le formulaire créé.
Exchange 2000 SP3 et outlook XP

A votre bon coeur mesdames et messieurs pour vos idées.

@+ Stephane

10 réponses

Avatar
Isabelle Prawitz
Bonjour tout seul !
Petite question : ton formulaire personnalisé, est-il dans un dossier public, dans les formulaires de organisation ou est-il
perso ?
Ça change le traitement !
A+
Isa

"Stephane D" a écrit dans le message de news:cusn83$a00$
Bonjour tout le monde

J'ai créer un formulaire à partir de message. Lorsque l'utilisateur
clique sur le bouton evoyer, je voudrai exécuter une macro.
Cette macro créerai un message "classique" et y copierait les
différentes info du formulaire dans le corps du message. Le but est
d'envoyer un message "classqiue" et pas un message avec le formulaire créé.
Exchange 2000 SP3 et outlook XP

A votre bon coeur mesdames et messieurs pour vos idées.

@+ Stephane


Avatar
Stephane D
Isabelle Prawitz wrote:
Bonjour tout seul !
Salut Isabelle


Petite question : ton formulaire personnalisé, est-il dans un dossier public, dans les formulaires de organisation ou est-il


Dans l'organisation plutôt

@+ Stephane

Avatar
Isabelle Prawitz
Donc, si je récapitule :
Tu ouvres un formulaire qui va te servir uniquement à collecter des infos et à envoyer un message classique quand on clique
sur le bouton Envoyer dudit formulaire (sachant que le formulaire en question sera refermé sans enregistrement ni envoi ?)
C'est ça ?
Isa

"Stephane D" a écrit dans le message de news:cuvghk$rme$
Isabelle Prawitz wrote:
Bonjour tout seul !
Salut Isabelle


Petite question : ton formulaire personnalisé, est-il dans un dossier public, dans les formulaires de organisation ou
est-il



Dans l'organisation plutôt

@+ Stephane



Avatar
Stephane D
Isabelle Prawitz wrote:
Donc, si je récapitule :
Tu ouvres un formulaire qui va te servir uniquement à collecter des infos et à envoyer un message classique quand on clique
sur le bouton Envoyer dudit formulaire (sachant que le formulaire en question sera refermé sans enregistrement ni envoi ?)
C'est ça ?


En plein dans le mil

@+ Stephane

Avatar
Isabelle Prawitz
Bonjour !
Alors, 1ère chose, sur ton formulaire, si tu ne l'as pas déjà fait ;-), décoche la ligne Mise en page pour la lecture séparée
dans le menu Formulaire (puisque de toute façon il ne servira qu'en composition !)
Ensuite, colle le code ci-dessous dans l'éditeur de script, et adapte/rajoute toutes les infos pour passer les champs
utilisateurs dans le message.
On ne peut pas fermer le formulaire personnalisé dans la procédure Send, mais la fermeture se fera sans sauvegarde et sans
message !

Function Item_Send()
set leMess=application.createitem(0) ' ------ indispensable
lemess.to=item.userproperties("LeDestinataire").value ' à adapter, ici champ utilisateur
lemess.subject=item.subject ' à adapter
if item.bodyformat=2 then ' format HTML
lemess.HTMLBody=item.HTMLBody & "<BR>Ce qu'il faut rajouter"
else
lemess.body=item.body & vbcrlf & "Ce qu'il faut rajouter"
end if
lemess.send ' ------ indispensable
Item_sendúlse ' ------ indispensable
End Function

Function Item_Close()
item.close 1 ' ------ indispensable pour fermer sans enregistrer
End Function

Si tu as des questions... ;-)
A+
Isa

"Stephane D" a écrit dans le message de news:cv1mcb$3vc$
Isabelle Prawitz wrote:
Donc, si je récapitule :
Tu ouvres un formulaire qui va te servir uniquement à collecter des infos et à envoyer un message classique quand on
clique


sur le bouton Envoyer dudit formulaire (sachant que le formulaire en question sera refermé sans enregistrement ni envoi
?)


C'est ça ?


En plein dans le mil

@+ Stephane



Avatar
Stephane D
Isabelle Prawitz wrote:
Bonjour !
Alors, 1ère chose, sur ton formulaire, si tu ne l'as pas déjà fait ;-), décoche la ligne Mise en page pour la lecture séparée
dans le menu Formulaire (puisque de toute façon il ne servira qu'en composition !)
Ensuite, colle le code ci-dessous dans l'éditeur de script, et adapte/rajoute toutes les infos pour passer les champs
utilisateurs dans le message.


Tout ca fonctionne impeccable merci.

On ne peut pas fermer le formulaire personnalisé dans la procédure Send, mais la fermeture se fera sans sauvegarde et sans
message !


ca par contre ca marche pas le formulaire reste ouvert, j'ai essayé en
mettant le nom de la constante masi c'est pareil. Je dois cliquer sur la
croix pour le fermer

@+ Stephane

Avatar
Isabelle Prawitz
Pour le dernier point, oui, c'est ce que je voulais dire par "On ne peut pas fermer le formulaire personnalisé dans la
procédure Send" !
Maintenant, si tu veux un seul bouton pour les deux opérations, il faut utiliser un contrôle Bouton de commande, mettre le
code dans l'évènement de ce bouton et désactiver (ou enlever) le bouton Envoyer.
A toi de voir !
A+
Isa

"Stephane D" a écrit dans le message de news:cv2amt$pr8$
Isabelle Prawitz wrote:
Bonjour !
Alors, 1ère chose, sur ton formulaire, si tu ne l'as pas déjà fait ;-), décoche la ligne Mise en page pour la lecture
séparée


dans le menu Formulaire (puisque de toute façon il ne servira qu'en composition !)
Ensuite, colle le code ci-dessous dans l'éditeur de script, et adapte/rajoute toutes les infos pour passer les champs
utilisateurs dans le message.


Tout ca fonctionne impeccable merci.

On ne peut pas fermer le formulaire personnalisé dans la procédure Send, mais la fermeture se fera sans sauvegarde et
sans


message !


ca par contre ca marche pas le formulaire reste ouvert, j'ai essayé en
mettant le nom de la constante masi c'est pareil. Je dois cliquer sur la
croix pour le fermer

@+ Stephane



Avatar
Stephane D
Isabelle Prawitz wrote:
Pour le dernier point, oui, c'est ce que je voulais dire par "On ne peut pas fermer le formulaire personnalisé dans la
procédure Send" !


Et ben oui mais non.
En fait à la fin de la procedure Item_Send J'ai ajouté l'appel de la
procédure Item_Close. Ca marche le formulaire se ferme.

@+ Stephane

Avatar
Stephane D
Stephane D wrote:
Isabelle Prawitz wrote:

Pour le dernier point, oui, c'est ce que je voulais dire par "On ne
peut pas fermer le formulaire personnalisé dans la
procédure Send" !



Et ben oui mais non.
En fait à la fin de la procedure Item_Send J'ai ajouté l'appel de la
procédure Item_Close. Ca marche le formulaire se ferme.


Et ben oui mais non à nouveau. Ca fonctionne sur le serveur (2000)
exchange mais pas sur les PC (XP). Pourtant c'est le même Outlook
partout (XP).
J'ai créé un second bouton encoyer et là ca fonctionne. Par contre pour
désactiver le bouton envoyer original c'est pour l'instant un mystère.
@+ Stephane


Avatar
Isabelle Prawitz
Bonjour !
Je travaille sur Windows XP, c'est pour ça que chez moi ça ne marchait pas ! ;-)
Pour shunter l'envoi, il suffit de mettre dans le code du Item_Send, juste la ligne :
Item_Sendúlse
Il peut être intéressant également de supprimer le bouton Envoyer de la barre d'outils par clic droit sur les barres
d'outils, Personnaliser... et cliqué-glissé du bouton hors des barres d'outils. Une publication, et hop !
A+
Isa

"Stephane D" a écrit dans le message de news:cv49gv$t61$
Stephane D wrote:
Isabelle Prawitz wrote:

Pour le dernier point, oui, c'est ce que je voulais dire par "On ne
peut pas fermer le formulaire personnalisé dans la
procédure Send" !



Et ben oui mais non.
En fait à la fin de la procedure Item_Send J'ai ajouté l'appel de la
procédure Item_Close. Ca marche le formulaire se ferme.


Et ben oui mais non à nouveau. Ca fonctionne sur le serveur (2000)
exchange mais pas sur les PC (XP). Pourtant c'est le même Outlook
partout (XP).
J'ai créé un second bouton encoyer et là ca fonctionne. Par contre pour
désactiver le bouton envoyer original c'est pour l'instant un mystère.
@+ Stephane