Valeur variable access dans mail
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:
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:
1
2
|
strMessage = strMessage & vbCrLf & vbCrLf & "L'imprimante se trouve à " |
Voici le code complet pour l'envoi de mon mail
Code:
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
