Discussion :

[dbillard60]

Bonjour tout le monde
je me presente, je suis david, totalement novice, je suis actuelement en train de developper une application afin de gerer des archives pour mon entreprise.
j ai mis au point un envoie de mail via access. mais je ne trouve pas comment mettre certaine partie du texte en gras ou souligné voir meme changer la couleur, malgré des recherches sur le forum. ou je ne trouve pas ou je ne comprend pas certaine expliquation faute d experience.

voici ce que j ai créé pour ce mail:

Code :

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

DoCmd.SendObject acSendNoObject, "", "", fadresse_mail & "","archives@diot-siaci.com", "", "Restitution archive", "Bonjour " & fprenom & " " & fnom & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "Vous disposez de l'archive:" & fdemande & " depuis plus de 15 jours" & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "Si vous n'en avez plus besoins;" & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "nous vous remercions de bien vouloir nous la retourner" & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "Merci pour votre collaboration." & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "Cordialement" & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "Le service archives", True

d'avance merci pour votre aide.

[tee_grandbois]

bonjour,
pour ça, il va falloir utiliser le VBA pour mettre en forme le message en mode HTML. Regarde cette discussion ou fais une recherche sur le forum avec le mot-clé HtmlBody

[dbillard60]

bonjour,
pour ça, il va falloir utiliser le VBA pour mettre en forme le message en mode HTML. Regarde cette discussion ou fais une recherche sur le forum avec le mot-clé HtmlBody

hello grandbois et merci pour ta reponse
est ce que je suis obligé de passer par du html?
en arriver jusque la a été une grosse galere deja, s il faut que j aprenne le html maintenant je vais pas m en sortir

[tee_grandbois]

en arriver jusque la a été une grosse galere deja, s il faut que j aprenne le html maintenant je vais pas m en sortir

je me suis un peu précipité dans ma réponse, on peut envoyer du HTML avec la commande SendObject (que je n'utilise jamais), il suffit d'ajouter le paramètre OutputFormat:=acFormatHTML
Si tu postes le corps du message complet en indiquant où il faut mettre les gras et les souligné, on peut t'aider pour la mise en forme

[dbillard60]

grandbois
j ai bien regardé la discution que tu m as indiquer mais... comment dire
j y comprend pas grand chose

[dbillard60]

je me suis un peu précipité dans ma réponse, on peut envoyer du HTML avec la commande SendObject (que je n'utilise jamais), il suffit d'ajouter le paramètre OutputFormat:=acFormatHTML
Si tu postes le corps du message complet en indiquant où il faut mettre les gras et les souligné, on peut t'aider pour la mise en forme

encore merci pour ton aide
je vais essayer d etre le plus claire possible

Bonjour "nom" "prenom"

Vous disposez depuis plus de 15 jours de l'archive:

"reference de l archive"

Si vous n'en avez plus besoins,nous vous remercions de bien vouloir nous la retourner

Merci pour votre collaboration.

Cordialement


Le service archives


voila,voila
ce qui me parrais compliqué, c est qu il ne s'agit pas que de texte mais aussi de variables qui viennent se mettre dans le corp du mail, je les ai mis entre guillemet.
desolé mais je ne suis meme pas certain d employer le bon vocabulaire.

[tee_grandbois]

Ok, merci.
je regarde ce qu'on peut faire de ton message avec SendObject ...

[dbillard60]

Ok, merci.
je regarde ce qu'on peut faire de ton message avec SendObject ...

et bien je ne sais pas quoi te dire a part un grand merci

[tee_grandbois]

voici le code qu'il faudrait mettre à la place du SendObject. La contrainte est qu'il fonctionne qu'avec Outlook:

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
' ancien code:
'DoCmd.SendObject acSendNoObject, "", "", fadresse_mail & "","archives@diot-siaci.com", "", "Restitution archive", "Bonjour " & fprenom & " " & fnom & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "Vous disposez de l'archive:" & fdemande & " depuis plus de 15 jours" & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "Si vous n'en avez plus besoins;" & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "nous vous remercions de bien vouloir nous la retourner" & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "Merci pour votre collaboration." & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "Cordialement" & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "Le service archives", True
Dim OutApp As Object
Dim OutMail As Object
Dim fmessage As String
 
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
 
fmessage = "<html>" & _
"</body>" & _
 "Bonjour <b>" & fprenom & " " & fnom & "</b> <br> <br>" & _
"Vous disposez de l'archive:<b> " & fdemande & "</b> depuis plus de 15 jours." & "<br> <br>" & _
"Si vous n'en avez plus besoins, nous vous remercions de bien vouloir nous la retourner" & "<br> <br>" & _
"Merci pour votre collaboration." & "<br> <br>" & _
"Cordialement" & "<br> <br>" & _
"<b>Le service archives</b>" & _
"</body>" & _
"</html>"
 
On Error Resume Next
    With OutMail
        .To = fadresse_mail
        .CC = "archives@diot-siaci.com"
        .Subject = "Restitution archive"
        .HTMLBody = fmessage
        .Display
        '.Send     'permet d'envoyer directement le message
    End With
 
    On Error GoTo 0
    Set OutMail = Nothing
    Set OutApp = Nothing

Je n'ai pas utilisé la balise souligné (<u>) car il est déconseillé de l'utiliser: d'après ce que j'ai lu, il est préférable d'utiliser les styles, c'est un peu plus compliqué mais pas impossible à implémenter. N'étant pas un pro du HTML je ne l'ai pas fait...
Si toutefois tu veux utiliser la base souligné, voici la ligne de code à mettre à la place de la ligne actuelle:

Code :

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

"<b><u>Le service archives</u></b>" & _

si tu as des difficultés à le mettre en place, poste moi le code complet d'origine

[dbillard60]

bonjour
merci beaucoup pour ton aide.
je teste ca de suite et te tiens au courant.

[dbillard60]

Bon j ai colé le code que tu m as fait.
ca fonctionne impec.
mais je ne vais pas en rester la, je vais en profiter pour etudier ca et aprendre un peut plus et si possible rajouter des couleurs.
un grand merci a toi