Discussion :

[Frenchguy]

Bonjour,

J'utilise la fonction sendObject pour mettre en forme un email, en reprennant certains champs, et en mixant le tout de texte fixe (pas dynamiquement à partir d'un champ quoi...)

Sauf que dan outlook, mon texte est triste a c****

je me demandais si je pouvais indiquer dans mon code VBA, imbriqué a la commande sendObject de mettre de la couleu, ou changer la taille d'un texte...

mon code:

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
Private Sub CmdmailSuivit_Click()
Dim texte1 As String
Dim texte2 As String
Dim texte3 As String
Dim texte4 As String
Dim texte5 As String
Dim texte6 As String
Dim texte7 As String
texte1 = _
"Bonjour," & vbCrLf & vbCrLf & "blabalbablalblabablblablblblbalabl" & _
vbCrLf & vbCrLf & "1) balblablalba:" & _
vbCrLf & Nz([TitreBis], "") & " " & Nz([NomBis], "") & " " & Nz([PrenomBis], "") & _
vbCrLf & Nz([AdresseBis], "") & _
vbCrLf & Nz([CPBis], "") & " " & Nz([VilleBis], "") & _
vbCrLf & "Tél:" & " " & Nz([TelBis], "") & _
vbCrLf & "Fax:" & " " & Nz([FaxBis], "") & _
vbCrLf & "Spécialité:" & " " & Nz([SpecialiteBis], "") & _
vbCrLf & "--------------------------------------------------------------------------"
texte2 = _
vbCrLf & "2) Doc et démo envoyée le:" & vbCrLf & _
vbCrLf & "--------------------------------------------------------------------------"
texte3 = _
vbCrLf & "3) Besoins du client:" & vbCrLf & _
vbCrLf & "--------------------------------------------------------------------------"
texte4 = _
vbCrLf & "4) Compte rendu de votre prise de contact:" & vbCrLf & _
vbCrLf & "--------------------------------------------------------------------------"
texte5 = _
vbCrLf & "5) RDV pour démo prévut le:" & vbCrLf & _
vbCrLf & "--------------------------------------------------------------------------"
texte6 = _
vbCrLf & "6) RDV démo fait le:" & vbCrLf & _
vbCrLf & "Compte rendu de ce RDV:" & vbCrLf & _
vbCrLf & "Démonstrations réalisée:" & vbCrLf & _
vbCrLf & "--------------------------------------------------------------------------"
texte7 = _
vbCrLf & "7) Bilan de la démonstration:" & vbCrLf & _
vbCrLf & "--------------------------------------------------------------------------" & _
vbCrLf & vbCrLf & "Merci de compléter les paragraphes au fur et à mesure de la démarche." & vbCrLf _
& vbCrLf & Nz([CommercialBis], "") _
& vbCrLf & "Service Commercial" _
& vbCrLf & "blablalbalbal"
DoCmd.SendObject , , acFormatHTML, Nz([Revendeur_Email2], ""), , , "blablablablalbal", Nz(texte1, "") & Nz(texte2, "") & Nz(texte3, "") & Nz(texte4, "") & Nz(texte5, "") & Nz(texte6, "") & Nz(texte7, ""), True
End Sub

MERCI

[Tofalu]

Tu as déjà posé une question similaire

[NOODLE02]

Il suffit peut-être de formatter ton texte avec des balises HTML et de configurer Outlook pour spécifier que le format est du HTML

[Frenchguy]

Tu as déjà posé une question similaire

c'est fort possible

formater avec des balises html!!??

si je les insères comme du texte, et outlook va les reconnaitres ensuite...

bah, j'ai essayé et ça ne marche pas...

l'idée etait bonne quand meme...

[NOODLE02]

Tu dois bien sûr t'assurer qu'Outlook est configuré pour utiliser le format HTML dans les mails sortants et non pas le format texte !

[Frenchguy]

c'est deja le cas...