Discussion :

[maringot]

Bonjour,

Je ne sais pas vraiment dans quelle rubrique poster ce message.

Dans ma fiche fournisseur, j'ai un champ "adresse e-mail". Lorsque je clique dessus une page html s'ouvre pour l'envoi du message. Jusque là tout va bien..

J'aimerais inclure dans le corps de texte de cet html, les informations des champs du formulaire et du sous formulaire.

Y-a-t'il un moyen de faire cela ?

Merci pour vos conseils

[maringot]

J'ai oublié de préciser que j'ai un module "mail" qui est le suivant :

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
Option Compare Database
 
' ---
' Entrée : strEmail <- Adresse e-mail du destinataire
'              strObj   <- Objet du courrier
'              strMsg   <- Corps du message
'              blnEdit  <- True pour pouvoir modifier le courrier avant envoi
'                          False pour expédier le courrier directement.
'
Public Sub SendMail(ByVal strEmail As String, _
  ByVal strObj As String, _
  ByVal strMsg As String, _
  ByVal blnEdit As Boolean)
On Error Resume Next
DoCmd.SendObject acSendNoObject, , , strEmail, , , strObj, strMsg, blnEdit
End Sub

et que le champ "Email" a la procédure évènementielle suivante:

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
Private Sub F_E_mail_DblClick(Cancel As Integer)
Dim strDest As String       ' L'adresse e-mail du destinataire
Dim strMessage As String    ' Le corps du message
 
' Création du corps du message
 
' On demande l'adresse e-mail du destinataire
strDest = [F-E-mail]
If strDest = "" Then Exit Sub
 
' Envoi du message
SendMail strDest, _
  "Objet:", _
  strMessage, _
  True
End Sub

[naphta]

Bonjour,

c'est un email ou une url ?

Dans ma fiche fournisseur, j'ai un champ "adresse e-mail
Lorsque je clique dessus une page html s'ouvre

fais un test avec juste ceci :

Code :

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

1
2
3
 
 
DoCmd.SendObject acSendNoObject, , , "polo@marcel.com", , , "On rigole bien", "Bonjour, Quand même ! A+", True

dans la fenêtre d’exécution du vba.

Pour le reste, faire le corps du message à partir des contrôles du form et du subform c'est possible.
a+