OVH Cloud OVH Cloud

Envoi Email sur click()

18 réponses
Avatar
Raphael
Bonjour =E0 tous,


J'ai un formulaire "F_Agents" dans lequel il y a un sous-formulaire
"F_SaisieAgents".
Dans ce dernier, j'ai un bouton pour envoyer un email.
L'adresse email se trouve dans un sous-formulaire "F_Synth=E8secong=E9s"
du formulaire "F_Agents".


Voici le code sur click :


Private Sub Commande62_Click()
Dim MonOutlook As Object
Dim MonMessage As Object
Set MonOutlook =3D CreateObject("Outlook.Applicat=ADion")
Set MonMessage =3D MonOutlook.createitem(0)
MonMessage.to =3D Forms![F_Synth=E8se cong=E9s].Form.MailChefService
MonMessage.Cc =3D "tatay...@yahoo.fr"
MonMessage.Subject =3D "Proposition d'absence au " &
Forms![F_Synth=E8secong=E9s].Form.=ADDate_de_saisie
Corps =3D "Bonjour,"
Corps =3D Corps & Chr(13) & Chr(10)
Corps =3D Corps & "Veuillez trouvez ci joint ma proposition d'absence en
date du " & Forms![F_Synth=E8se cong=E9s].Form.Date_de_saisie
Corps =3D Corps & Chr(13) & Chr(10)
Corps =3D Corps & "Cordialement,"
Corps =3D Corps & Chr(13) & Chr(10)
Corps =3D Corps & Forms![F_Synth=E8se cong=E9s].Form.Pr=E9nom &
Forms![F_Synth=E8se cong=E9s].Form.Nom


MonMessage.body =3D Corps
MonMessage.Attachments.Add Forms![E_Synth=E8se cong=E9s]
MonMessage.send


Set MonOutlook =3D Nothing


End Sub


Voici le message d'erreur :


Erreur d'execution 2450
Impossible de trouver le formulaire 'F_Synth=E8secong=E9s' auquel il est
fait r=E9f=E9rence dans une expression de macro ou un code visualbasic.


Voici la question :


Comment trouver le formulaire....=20


Merci de votre aide !=20


Raphael

8 réponses

1 2
Avatar
Raphael
Mon code actuel :

MonMessage.Attachement.Add "E_Synthèsecongés"

Mon message d'erreur :

Erreur d'execution 438
Propiété ou méthode non géré par cet objet
Avatar
Raphael
Avatar
Eric
re,

Une idée : Tu exportes ton état au format pdf et tu attaches ce pdf puis
tu supprimes le pdf. Non ?

Je te remercie pour le lien,
mais dans cet exemple, il attache un fichier.

Je souhaite pour ma part attacher toujours le même état.



--
A+
Eric
http://users.skynet.be/mpfa/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

Avatar
Raphael
Oui mais non,

oui c'est possible et simple

mais non parceque je souhaite que l'attache se fasse automatiquement !!

pourquoi faire simple quand on peut faire compliqué !!!


re,

Une idée : Tu exportes ton état au format pdf et tu attaches ce pdf p uis
tu supprimes le pdf. Non ?

Je te remercie pour le lien,
mais dans cet exemple, il attache un fichier.

Je souhaite pour ma part attacher toujours le même état.



--
A+
Eric
http://users.skynet.be/mpfa/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl= fr



Avatar
pgz
Précisément sur le bouton qui ouvre le formulaire en complétant la commande
d'ouverture, probablement attachée à l'évènement 'on click'.
G'espère que c'est plus clair.
Zalut et bonne chance
pgz


Meric mais là je ne comprend pas bien ou il faut que j'aille...

J'ai un menu où se trouve un bouton pour ouvrir F_Agents
C'est sur F_Agents qui est lié à la liste des agents que je dois
placer mon critère.

Où écrire tes codes ?
Sur le bouton pour ouvrir le formulaire ?
Dans la macro AUTOEXEC ?
Ailleurs ??




Avatar
Raphael
oui

je situe mais comment compléter la commande ?

Je suis l'heureux possesseur de "VBA pour Acces POUR les NULS " depuis
hier 17h00 et je suis qu'a la page 16 !!!
;-)
Avatar
pgz
Pour mémoire, une erreur d'orthographe :
attachments au lieu de attachement
Ge la trouve pas si mal l'idée d'Eric. Et ça se programme tout ça.
Zalut,
pgz


Mon code actuel :

MonMessage.Attachement.Add "E_Synthèsecongés"

Mon message d'erreur :

Erreur d'execution 438
Propiété ou méthode non géré par cet objet




Avatar
Raphael
La pièce jointe fait maintenant partie du corps du message





Pour mémoire, une erreur d'orthographe :
attachments au lieu de attachement
Ge la trouve pas si mal l'idée d'Eric. Et ça se programme tout ça.
Zalut,
pgz


Mon code actuel :

MonMessage.Attachement.Add "E_Synthèsecongés"

Mon message d'erreur :

Erreur d'execution 438
Propiété ou méthode non géré par cet objet






1 2