Bonjour,
Voici la macro pour envoyer un email. Mais au lieu de l'envoyer à une personne, je voudrais qu'il utilise l'adresse email inscrit dans un champs d'un formulaire.


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
'------------------------------------------------------------
' Email
'
'------------------------------------------------------------
Function Email()
On Error GoTo Email_Err

    DoCmd.SendObject acForm, "F_Voyages_disponibles", "MicrosoftExcelBiff8(*.xls)", "bla.bla@hotmail.com", "", "", "", "", False, ""


Email_Exit:
    Exit Function

Email_Err:
    MsgBox Error$
    Resume Email_Exit

End Function