Discussion :

[guillome29]

Bonjour,

Je vais essayer de faire court :

Je souhaite afficher dans un mail, une donnée de ma table "Cellule". Premièrement, je pense que je dois utiliser cette ligne de code :

Code :

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

1
2
 
JeSaisPasQuoiMettre = DLookup("[Anomalie1]", "Cellule", "[CelluleID] = 27")

Dans ce Sub-ci :

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
 
Private Sub Afficher_Click()
Dim MonOutlook As Object
Dim MonMessage As Object
Dim Corps As String
Set MonOutlook = CreateObject("Outlook.application")
Set MonMessage = MonOutlook.createitem(0)
'Destinataire du message :
If OptionU11 = True Then MonMessage.To = "Machin.bidule@monentreprise.net; "
 
 
'Titre du mail
MonMessage.Subject = "Anomalies à traiter en U1"
'Contenu du mail :
Corps = "Bonjour,"
Corps = Corps & Chr(13) & Chr(10)
Corps = Corps & "Ce mail est envoyé afin de vous informer des anomalies en cellule U1."
Corps = Corps & Chr(13) & Chr(10)
Corps = Corps & "En outre, l'Anomalie N°:" 'Je sais pas quoi mettre ici non plus
Corps = Corps & Chr(13) & Chr(10)
Corps = Corps & "Cordialement."
Corps = Corps & Chr(13) & Chr(10)
MonMessage.body = Corps
MonMessage.display
Set MonOutlook = Nothing
End Sub

Savez-vous comment je peux extraire ma donnée, de telle sorte à ce qu'elle s'affiche sur la ligne "En outre, l'Anomalie N°:" (Visible dans le code ci-dessus) ?

En vous remerciant d'avance.

Guillaume.

[mumen]

Bonjour

Je suis persuadé que tu as déjà trouvé tout seul...

Code :

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

1
2
3
4
5
6
7
Corps = "Bonjour,"
Corps = Corps & vbCrLf
Corps = Corps & "Ce mail est envoyé afin de vous informer des anomalies en cellule U1."
Corps = Corps & vbCrLf 
Corps = Corps & "En outre, l'Anomalie N°:" & DLookup("[Anomalie1]", "Cellule", "[CelluleID] = 27")
Corps = Corps & vbCrLf
Corps = Corps & "Cordialement."

[guillome29]

Bonjour,

Et bien je ne me doutais pas que cette réponse serait aussi simple ! Je m'en vais essayer ce morceau de code maintenant et je viens vous remercier infiniment tout à l'heure !

Merci d'avance.

Guillaume

[guillome29]

Ça fonctionne ! Clair, net et concis ! C'est de l'efficacité !

Un grand merci

Guillaume