Envoyer les données d'un formulaire par email

**karima123** · 21/01/2016, 12h35

Bonjour tous le monde,
j'ai crée la fourmulaire ci dessous à partir d'une seule table, et je veux envoyée le tableau de la fourmulaire par email, j'ai le code ci dessous mais je ne sais pas comment l'adapter pour envoyer les données de la fourmualire dans le corps d'email??
Merci

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
19
20
21
22
23
24
25
26
27
28
29
30
31
'send
Dim MonOutlook As Object
Dim MonMessage As Object
Set MonOutlook = CreateObject("Outlook.Application")
Set MonMessage = MonOutlook.CreateItem(0)
'   Destinataire du message :
MonMessage.To = "adresse_email"
'  Titre du mail :
MonMessage.Subject = "Alerte: Mise à jour AMDEC-changement N°: " & [N°_changement]
'  Contenu du mail :
corps = "Bonjour,"
corps = corps & Chr(13) & Chr(10)
corps = corps & "Merci de valider les mises à jours ci_dessous"
corps = corps & Chr(13) & Chr(10)
corps = corps & "N° changement : "
corps = corps & [N°_changement]
corps = corps & Chr(13) & Chr(10)
corps = corps & "Date_changement: "
corps = corps & [Date_changement]
corps = corps & Chr(13) & Chr(10)
corps = corps & "Projet : "
corps = corps & [Projet]
corps = corps & Chr(13) & Chr(10)
corps = corps & "Description changement : "
corps = corps & [Description_changement]
corps = corps & Chr(13) & Chr(10)
MonMessage.Body = corps
'   C’est parti :
MonMessage.Send
 '   Fermeture de la session Outlook :
Set MonOutlook = Nothing

Nom : email.png
Affichages : 295
Taille : 164,2 Ko

**karima123** · 22/01/2016, 10h07

where are you guys, help me

**madefemere** · 22/01/2016, 11h35

Bonjour,

Il faut parcourir le Recordset de ton formulaire filtré et placer ses valeurs en forme de tableau.
Le code serait du genre :
....... Code corrigé reporté vers mon dernier message
Cordialement,

EDIT : Suppression code erroné

**karima123** · 22/01/2016, 17h04

Envoyé par madefemere

Bonjour,

Il faut parcourir le Recordset de ton formulaire filtré et placer ses valeurs en forme de tableau.
Le code serait du genre :

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
'send
Dim MonOutlook As Object
Dim MonMessage As Object
Set MonOutlook = CreateObject("Outlook.Application")
Set MonMessage = MonOutlook.CreateItem(0)
'   Destinataire du message :
MonMessage.To = "adresse_email"
'  Titre du mail :
MonMessage.Subject = "Alerte: Mise à jour AMDEC-changement N°: " & [N°_changement]
'  Contenu du mail :
corps = "Bonjour,"
corps = corps & Chr(13) & Chr(10)
corps = corps & "Merci de valider les mises à jours ci_dessous"
corps = corps & Chr(13) & Chr(10)
corps = corps & " N° changement " & "|" & " Date_changement " & "|" & " Projet " & "|" & " Description changement "
corps = corps & Chr(13) & Chr(10)
 
With Me.Recordset
    .MoveFirst
    While Not .EOF
        corps = corps & ![N°_changement] & "|" & ![Date_changement] & "|" & ![Projet] & "|" & ![Description_changement]
        corps = corps & Chr(13) & Chr(10)
    Wend
    .MoveNext
End With
 
corps = corps & "Cordialement."
 
MonMessage.Body = corps
'   C’est parti :
MonMessage.Send
 '   Fermeture de la session Outlook :
Set MonOutlook = Nothing

Cordialement,

je te remercie pour ton aide, j'ai fait copie coller des code et j'ai change l'adresse email avec celle que je veux utilisé, mais le fichier se bloque et l'email ne s'envoie pas!! ci dessou un capture d'ecran de ce qui se passe quand j'excute le code, Nom : 1547.png
Affichages : 275
Taille : 177,7 Ko

Nom : 1547.png
Affichages : 275
Taille : 177,7 Ko

**madefemere** · 22/01/2016, 17h25

Bonsoir,

Peux-tu indiquer le problème avec le code que tu as posté initialement ?

Cordialement,

**karima123** · 22/01/2016, 17h51

Envoyé par madefemere

Bonsoir,

Peux-tu indiquer le problème avec le code que tu as posté initialement ?

Cordialement,

j'ai fait juste copie coller de ton code avec modification de l'adresse email, voice le code:
mais quand je clique sur le boutton access se bloque!!

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
'send
Dim MonOutlook As Object
Dim MonMessage As Object
Set MonOutlook = CreateObject("Outlook.Application")
Set MonMessage = MonOutlook.CreateItem(0)
'   Destinataire du message :
MonMessage.To = "email outlook à modifier"
'  Titre du mail :
MonMessage.Subject = "Alerte: Mise à jour AMDEC-changement N°: " & [N°_changement]
'  Contenu du mail :
corps = "Bonjour,"
corps = corps & Chr(13) & Chr(10)
corps = corps & "Merci de valider les mises à jours ci_dessous"
corps = corps & Chr(13) & Chr(10)
corps = corps & " N° changement " & "|" & " Date_changement " & "|" & " Projet " & "|" & " Description changement "
corps = corps & Chr(13) & Chr(10)
 
With Me.Recordset
    .MoveFirst
    While Not .EOF
        corps = corps & ![N°_changement] & "|" & ![Date_changement] & "|" & ![Projet] & "|" & ![Description_changement]
        corps = corps & Chr(13) & Chr(10)
    Wend
    .MoveNext
End With
 
corps = corps & "Cordialement."
 
MonMessage.Body = corps
'   C’est parti :
MonMessage.Send
 '   Fermeture de la session Outlook :
Set MonOutlook = Nothing

**karima123** · 22/01/2016, 17h58

Envoyé par madefemere

Bonsoir,

Peux-tu indiquer le problème avec le code que tu as posté initialement ?

Cordialement,

le code que j'ai posté initialement m'envoie juste un seule enregistrement.
mais ce que je veux c'est envoyer tous les enregistrements afichées sur la fourmulaire.

merci pour ton aide

**madefemere** · 22/01/2016, 20h00

et désolé, le code posté sans vérification comportait une erreur dans la boucle (boucle infinie).
Le code corrigé :

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
'send
Dim MonOutlook As Object
Dim MonMessage As Object
Set MonOutlook = CreateObject("Outlook.Application")
Set MonMessage = MonOutlook.CreateItem(0)
'   Destinataire du message :
MonMessage.To = "adresse_email"
'  Titre du mail :
MonMessage.Subject = "Alerte: Mise à jour AMDEC-changement N°: " & [N°_changement]
'  Contenu du mail :
corps = "Bonjour,"
corps = corps & Chr(13) & Chr(10)
corps = corps & "Merci de valider les mises à jours ci_dessous"
corps = corps & Chr(13) & Chr(10)
corps = corps & " N° changement " & "|" & " Date_changement " & "|" & " Projet " & "|" & " Description changement "
corps = corps & Chr(13) & Chr(10)

With Me.Recordset
    .MoveFirst
    While Not .EOF
        corps = corps & ![N°_changement] & "|" & ![Date_changement] & "|" & ![Projet] & "|" & ![Description_changement]
        corps = corps & Chr(13) & Chr(10)
         .MoveNext
    Wend

End With

corps = corps & "Cordialement."

MonMessage.Body = corps
'   C’est parti :
MonMessage.Send
 '   Fermeture de la session Outlook :
Set MonOutlook = Nothing

Interversion des 2 lignes en rouge.

Cordialement,

**karima123** · 25/01/2016, 13h04

Envoyé par madefemere

et désolé, le code posté sans vérification comportait une erreur dans la boucle (boucle infinie).
Le code corrigé :

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
'send
Dim MonOutlook As Object
Dim MonMessage As Object
Set MonOutlook = CreateObject("Outlook.Application")
Set MonMessage = MonOutlook.CreateItem(0)
'   Destinataire du message :
MonMessage.To = "adresse_email"
'  Titre du mail :
MonMessage.Subject = "Alerte: Mise à jour AMDEC-changement N°: " & [N°_changement]
'  Contenu du mail :
corps = "Bonjour,"
corps = corps & Chr(13) & Chr(10)
corps = corps & "Merci de valider les mises à jours ci_dessous"
corps = corps & Chr(13) & Chr(10)
corps = corps & " N° changement " & "|" & " Date_changement " & "|" & " Projet " & "|" & " Description changement "
corps = corps & Chr(13) & Chr(10)

With Me.Recordset
    .MoveFirst
    While Not .EOF
        corps = corps & ![N°_changement] & "|" & ![Date_changement] & "|" & ![Projet] & "|" & ![Description_changement]
        corps = corps & Chr(13) & Chr(10)
         .MoveNext
    Wend

End With

corps = corps & "Cordialement."

MonMessage.Body = corps
'   C’est parti :
MonMessage.Send
 '   Fermeture de la session Outlook :
Set MonOutlook = Nothing

Interversion des 2 lignes en rouge.

Cordialement,

c'est pas grave et merci encore une fois pour ton aide le code function parfaitement mais l'affichage des données est c'est pas Claire dans le corps d'email, ce que je veux c'est comme une forme d'un tableau. aider moi à relaiser ce tableau dans le coprs d'email.

comme vous pouvez voir dans l'image ci dessous l'affichage des données est pas facile à lire si c'ete dans un tableau sa sera plus Claire.
comment faire ce tableau????