Discussion :

[Ssika]

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

[alassanediakite]

Salut
Un petit tour dans l'aide de VBA...
je te demande d'essayer...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DoCmd.SendObject acForm, "F_Voyages_disponibles", "MicrosoftExcelBiff8(*.xls)", Me.[le nom du contrôle ayant l'adresse], "", "", "", "", False, ""

Bonne suite.