Envoi email sur click

  • Thread starter Thread starter Raphael
  • Start date Start date
R

Raphael

Bonjour à 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èsecongés"
du formulaire "F_Agents".


Voici le code sur click :

Private Sub Commande62_Click()
Dim MonOutlook As Object
Dim MonMessage As Object
Set MonOutlook = CreateObject("Outlook.Application")
Set MonMessage = MonOutlook.createitem(0)
MonMessage.to = Forms![F_Synthèse congés].Form.MailChefService
MonMessage.Cc = "(e-mail address removed)"
MonMessage.Subject = "Proposition d'absence au " &
Forms![F_Synthèsecongés].Form.Date_de_saisie
Corps = "Bonjour,"
Corps = Corps & Chr(13) & Chr(10)
Corps = Corps & "Veuillez trouvez ci joint ma proposition d'absence en
date du " & Forms![F_Synthèse congés].Form.Date_de_saisie
Corps = Corps & Chr(13) & Chr(10)
Corps = Corps & "Cordialement,"
Corps = Corps & Chr(13) & Chr(10)
Corps = Corps & Forms![F_Synthèse congés].Form.Prénom &
Forms![F_Synthèse congés].Form.Nom

MonMessage.body = Corps
MonMessage.Attachments.Add Forms![E_Synthèse congés]
MonMessage.send

Set MonOutlook = Nothing


End Sub




Voici le message d'erreur :

Erreur d'execution 2450
Impossible de trouver le formulaire 'F_Synthèsecongés' auquel il est
fait référence dans une expression de macro ou un code visualbasic.



Voici la question :

Comment trouver le formulaire....



Merci de votre aide !


Raphael
 
Raphael,

Perhaps you would find more response on microsoft.public.fr.access.

Good luck,

Tom


Bonjour à 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èsecongés"
du formulaire "F_Agents".


Voici le code sur click :

Private Sub Commande62_Click()
Dim MonOutlook As Object
Dim MonMessage As Object
Set MonOutlook = CreateObject("Outlook.Application")
Set MonMessage = MonOutlook.createitem(0)
MonMessage.to = Forms![F_Synthèse congés].Form.MailChefService
MonMessage.Cc = "(e-mail address removed)"
MonMessage.Subject = "Proposition d'absence au " &
Forms![F_Synthèsecongés].Form.Date_de_saisie
Corps = "Bonjour,"
Corps = Corps & Chr(13) & Chr(10)
Corps = Corps & "Veuillez trouvez ci joint ma proposition d'absence en
date du " & Forms![F_Synthèse congés].Form.Date_de_saisie
Corps = Corps & Chr(13) & Chr(10)
Corps = Corps & "Cordialement,"
Corps = Corps & Chr(13) & Chr(10)
Corps = Corps & Forms![F_Synthèse congés].Form.Prénom &
Forms![F_Synthèse congés].Form.Nom

MonMessage.body = Corps
MonMessage.Attachments.Add Forms![E_Synthèse congés]
MonMessage.send

Set MonOutlook = Nothing


End Sub




Voici le message d'erreur :

Erreur d'execution 2450
Impossible de trouver le formulaire 'F_Synthèsecongés' auquel il est
fait référence dans une expression de macro ou un code visualbasic.



Voici la question :

Comment trouver le formulaire....



Merci de votre aide !


Raphael
 
Bonjour Raphael,

You have 2 spellings of form

MonMessage.to = Forms![F_Synthèse congés].Form.MailChefService

MonMessage.Subject = "Proposition d'absence au " &
Forms![F_Synthèsecongés].Form.Date_de_saisie

Should there be a SPACE in second spelling?

Is this form also a sous-formulaire du formulaire "F_Agents"?

If not, is it open?

Bon chance,

gary


Bonjour à 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èsecongés"
du formulaire "F_Agents".


Voici le code sur click :

Private Sub Commande62_Click()
Dim MonOutlook As Object
Dim MonMessage As Object
Set MonOutlook = CreateObject("Outlook.Application")
Set MonMessage = MonOutlook.createitem(0)
MonMessage.to = Forms![F_Synthèse congés].Form.MailChefService
MonMessage.Cc = "(e-mail address removed)"
MonMessage.Subject = "Proposition d'absence au " &
Forms![F_Synthèsecongés].Form.Date_de_saisie
Corps = "Bonjour,"
Corps = Corps & Chr(13) & Chr(10)
Corps = Corps & "Veuillez trouvez ci joint ma proposition d'absence en
date du " & Forms![F_Synthèse congés].Form.Date_de_saisie
Corps = Corps & Chr(13) & Chr(10)
Corps = Corps & "Cordialement,"
Corps = Corps & Chr(13) & Chr(10)
Corps = Corps & Forms![F_Synthèse congés].Form.Prénom &
Forms![F_Synthèse congés].Form.Nom

MonMessage.body = Corps
MonMessage.Attachments.Add Forms![E_Synthèse congés]
MonMessage.send

Set MonOutlook = Nothing


End Sub




Voici le message d'erreur :

Erreur d'execution 2450
Impossible de trouver le formulaire 'F_Synthèsecongés' auquel il est
fait référence dans une expression de macro ou un code visualbasic.



Voici la question :

Comment trouver le formulaire....



Merci de votre aide !


Raphael
 
Hi Raphael,

Please disregard previous post.

When you look at Properties
of this sous-formulaire "F_Synthèsecongés"
(or "F_Synthèse congés"?)
what

Name ...............?????? = F_Synthèsecongés ????
SourceObject ....?????

To refer to a control on a subform, use the following syntax:

Forms![main form name]![subform control name].Form![control name]

If "MailChefService" is the name of a control on a
subform "F_Synthèsecongés"

MonMessage.to = Forms!F_Agents![F_Synthèsecongés].Form!MailChefService

good luck,

gary
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Back
Top