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
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