Discussion :

[marcel10]

Bonjour à tous,

J'ai un formulaire sur access qui me permet de créer un mail.
Là tout fonctionne, le souci que j'ai viens du fait que j'aimerais bien suivant le choix de ma liste déroulante pour la localisation, un texte différents qui s'affiche dans mon mail.

Voici un exemple pour le choix "maison"

Code :

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

1
2
 
If Localisation = "Maison" Then strHopital = "Rue du tata 28  " & vbCrLf & "6280 gerpinnes"

J'indique bien que si le choix est maison, la variable strHopital prend la valeur avec le nom de la rue et le code postal.

Maintenant j'aimerais bien l'affiche dans mon mail à cet endroit:

Code :

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

1
2
 
strMessage = strMessage & vbCrLf & vbCrLf & "L'imprimante se trouve à "

Voici le code complet pour l'envoi de mon mail

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
 
 
' Creation mail
' ---
'
Public Sub btnEmail_Click()
 
strDest = "test@gmail"
Dim strMessage As String
Dim strHopital As String
 
 
 
' Création du corps du message
strMessage = "Bonjour, " & vbCrLf
strMessage = strMessage & vbCrLf & "Je voudrais demander l'intervention technique pour une " & Me![imprimante]
If Localisation = "Maison" Then strHopital = "Rue du tata 28  " & vbCrLf & "6280 gerpinnes"
 
 
strMessage = strMessage & vbCrLf & "Problème " & Me![Problème]
strMessage = strMessage & vbCrLf & "Numéro de série:  " & Me![Numéro d'équipement]
strMessage = strMessage & vbCrLf & vbCrLf & "L'imprimante se trouve à "
 
 
 
strMessage = strMessage & vbCrLf & vbCrLf & "Pourriez-vous nous prévenir de votre passage à l'avance afin d'assurer l'accessibilité du bureau où ce trouve l'imprimante lors de votre passage."
 
 
' Envoi du message
SendMail strDest, _
  " Demande d'intervention", _
  strMessage, _
  True
End Sub
 
 
 
' ---
' ENVOYER UN MAIL DEPUIS ACCESS
' ---
' 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

Si jamais quelqu'un a une idée je suis preneur.


Bonne journée

[PipoWIL]

Bonjour,

Je ne suis pas sûr de bien comprendre votre question.
Votre problème est-il de rajouter la localisation dans le corps du message ?

Si telle est votre question, alors ceci peut-il vous aider ?

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
' Création du corps du message
strMessage = "Bonjour, " & vbCrLf
strMessage = strMessage & vbCrLf & "Je voudrais demander l'intervention technique pour une " & Me![imprimante]
If Localisation = "Maison" Then
    strHopital = "Rue du tata 28  " & vbCrLf & "6280 gerpinnes"
Else
    strHopital = "Téléphonnez-moi pour que je vous dise où est l'imprimante."
End If
 
strMessage = strMessage & vbCrLf & "Problème " & Me![Problème]
strMessage = strMessage & vbCrLf & "Numéro de série:  " & Me![Numéro d'équipement]
strMessage = strMessage & vbCrLf & vbCrLf & "L'imprimante se trouve à " & strHopital
 
 
 
strMessage = strMessage & vbCrLf & vbCrLf & "Pourriez-vous nous prévenir de votre passage à l'avance afin d'assurer l'accessibilité du bureau où ce trouve l'imprimante lors de votre passage."

J'ai apporté 2 changements :
1 strHopital : soit l'imprimante est à l'hopital soit elle est ailleurs.
2 vous rajoutez la chaine de caractères strHopital à strMessage de façon à avoir l'adresse de l'imprimante.


J'espère que cela peut vous aider.

Bonne journée.

[marcel10]

Bonjour,

Merci pour votre aide, ça parait logique et sa fonctionne très bien.

Maintenant je vais devoir regarder à un autre soucis ou je ne m'en sort pas ^^