Discussion :

[toony63]

Bonsoir a tous,

Je viens de créer une nouvelle table sur ma base qui contient :
Id_mail / Nom_mail / Titre_mail / Corps_mail

j'essaye de pouvoir modifier facilement le contenu d'un mail automatique sans entrée dans le code VBA

La première partie fonctionne :
a savoir la gestion du HTML dans mon formulaire

avec en appel du corps du mail dans le vba

Code :

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

    .HTMLBody = DLookup("[Corps_mail]", "[T_Mail]", "[T_Mail].Nom_mail=""Presentation_test""")

Mais les appels de champs ne fonctionne plus
exemple du mail créé :
Voici le code inscrit dans la table :

Code :

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

1
2
3
4
5
6
7
8
9
10
Bonjour \& Prenom \&, <br/><br/>
Nous sommes passés à votre domicile .<br/><br/>
Suite au sinistre n°  .<br/><br/>
Voici nos coordonnées pour tous renseignements complémentaires :<br/>
Anthony Moreau<br/>
Venez visiter notre site : <a href='http://www..fr'>http://www..fr</a><br/>
Mail : <a href='mailto:mm'>mm</a><br/><br/>
Cordialement.
<br/><br/><br/><br/>
<b><font color="red" size="3">"Attention mail automatique, merci de ne pas répondre."</font></b>

Voici le mail afficher

Bonjour & Prenom &,

Nous sommes passés à votre domicile .

Suite au sinistre n° .

Voici nos coordonnées pour tous renseignements complémentaires :
Anthony Moreau

Venez visiter notre site : http://www..fr
Mail : mm

Cordialement.



"Attention mail automatique, merci de ne pas répondre."

On voit bien le problème avec l’appel du champs "& Prenom &"

Si quelqu'un a une idée j'ai chercher un peu partout et je ne trouve rien

D'avance merci
Anthony

[Invité]

bonsoir,
le comble sur le forum VBA ACCESS, serait de ne même pas vouloir utiliser ACCESS!

[toony63]

bonsoir,
le comble sur le forum VBA ACCESS, serait de ne même pas vouloir utiliser ACCESS!

je n'ai rien compris !!

[toony63]

alors j'ai trouvé

donc

formulaire de modif mail

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Bonjour [Prenom] [Nom], <br/><br/>
Nous sommes passés à votre domicile : [Adresse] [CP] [Ville] .<br/><br/>
Suite au sinistre n° [Numdossier] le [VAT] .<br/><br/>
Voici nos coordonnées pour tous renseignements complémentaires :<br/>
Anthony Moreau<br/>
 
Venez visiter notre site : <a href='http://www..fr'>http://www..fr</a><br/>
Mail : <a href='mailto:m@gmail.com'>m@gmail.com</a><br/><br/>
Cordialement.
<br/><br/><br/><br/>
<b><font color="red" size="3">"Attention mail automatique, merci de ne pas répondre."</font></b>

Donne ==>

Bonjour Pxxxxxxe AxxxxxxxxxU,

Nous sommes passés à votre domicile : 1 CHEMIN DE xxxxxxx 99999 xxxxxxx .

Suite au sinistre n° 5000008 le 08/02/2017 .

Voici nos coordonnées pour tous renseignements complémentaires :
Anthony Moreau

Venez visiter notre site : http://www..fr
Mail : m@gmail.com

Cordialement.



"Attention mail automatique, merci de ne pas répondre."

avec le code VBA 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
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
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
Private Sub Envoyer_presentation_entreprise_Click()
Dim cheminpdf As String
 
'Si pas d'email, on annule l'envoi
If IsNull(EMAIL) Then
    MsgBox "L'adresse email du client n'est pas renseignée (mention obligatoire).", vbCritical, "Adresse email du client"
    Exit Sub
End If
 
'Si pas de dossier de stockage, on annule l'envoi
If IsNull(Dossier_stockage) Then
    MsgBox "Le dossier de stockage n'est pas renseigné (mention obligatoire).", vbCritical, "Dossier de stockage"
    Exit Sub
End If
 
'Si la compagnie est Dxxxxxx
If Compagnie = "Dxxxxxxx" Then
    MsgBox "Pensez à joindre les CGV Dxxxxxxxxx.", vbCritical, "CGV Dxxxxxxxxxx"
End If
 
'Ouverture du document
    DoCmd.OpenReport "E_Fiche_client", acViewPreview, , "ID_Client=" & Forms![F_Clients]![ID_Client]
 
'Enregistrement du document
cheminpdf = Dossier_stockage & "\Dossier n°" & Numero_dossier & " - " & Prenom & " " & Nom_Client & ".pdf"
DoCmd.OutputTo acOutputReport, "E_Fiche_client", acFormatPDF, cheminpdf
 
'Ouverture de l'email
Dim objOutlook As Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
Dim objOutlookRecip As Outlook.Recipient
Dim objOutlookAttach As Outlook.Attachment
 
'pour modifier mail
Dim Message_origine As String
Dim Message_modif As String
 
'modification message
  Message_origine = DLookup("[Corps_mail]", "[T_Mail]", "[T_Mail].Nom_mail=""Presentation_test""")
 
    ' Construire un message personnalisé
    ' (on remplace chaque [...] du message par les champs
    ' équivalents de la requête
    Message_modif = Replace(Message_origine, "[Prenom]", Prenom)
    Message_modif = Replace(Message_modif, "[Nom]", Nom_Client)
    Message_modif = Replace(Message_modif, "[Adresse]", Adresse)
    Message_modif = Replace(Message_modif, "[CP]", CP)
    Message_modif = Replace(Message_modif, "[Ville]", Ville)
    Message_modif = Replace(Message_modif, "[VAT]", Date_VAT)
    Message_modif = Replace(Message_modif, "[Numdossier]", Numero_dossier)
    Message_modif = Replace(Message_modif, "[Compagnie]", Compagnie)
    Message_modif = Replace(Message_modif, "[toto]", Ville)
    Message_modif = Replace(Message_modif, "[toto]", Ville)
    Message_modif = Replace(Message_modif, "[toto]", Ville)
 
'Création de la session Outlook
Set objOutlook = CreateObject("Outlook.Application")
 
'Création du message
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
 
With objOutlookMsg
    'Ajout du destinataire
    Set objOutlookRecip = .Recipients.Add(EMAIL)
    objOutlookRecip.Type = olTo
 
    'Sujet et corps du message
    .Subject = "Présentation de l'entreprise"
 
    'Corps au format HTML
    .BodyFormat = olFormatHTML
    .HTMLBody = Message_modif
    .Display
    'Ajout de la pièce jointe
    If Not IsMissing(cheminpdf) Then
        Set objOutlookAttach = .Attachments.Add(cheminpdf)
    End If
End With
 
  ' Fermeture modif message
  ' On libère les ressources
Message_modif = ""
 
Set objOutlook = Nothing
 
'Fermeture de l'état
DoCmd.Close acReport, "E_Fiche_client"
End Sub