Discussion :

[lerico]

Bonjour,

J'ai repris le code qui permait d'envoyer une mail dans Lotus Notes sur Access, ça marche trés bien.
Par contre je n'arrive pas à concevoir un message autrement qu'avec des constantes de visual basic et elles sont trés limitées. L'utilisation de code de mise en forme HTML ne fonctionne pas.

Voici une partie de mon code avec des constantes visual basic :

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
 
'Sujet du mail 
        Subject = "Dossiers RR Cogedem non valides" 
        'Texte du mail 
        BodyText = BodyText & "Bonjour," & vbCrLf & vbLf & "Veuillez trouver ci-joint la liste" & _ 
                " des dossiers RR Cogedem non valides." & _ 
                vbCrLf & vbLf & "Cordialement," & _ 
                vbCrLf & vbLf & "CSP Magasin" & _ 
                vbCrLf & vbLf & "LEGENDE" & _ 
                vbCrLf & "REF = Numéro du magasin" & vbTab & vbTab & "CA  = Code Article" & _ 
                vbCrLf & "CF   = Code Famille" & vbTab & vbTab & vbTab & "FAM = Famille" & _ 
                vbCrLf & "FRS  = Fournisseur Constructeur" & vbTab & vbTab & "DES = Désignation" & _ 
                vbCrLf & "REFF = Référence Fournisseur" & _ 
                vbCrLf & "DOCUMENTS OU INFORMATIONS MANQUANTS" & _ 
                vbCrLf & "CSM  = Copie Saisie Mercure" & vbTab & vbTab & "ARF = Accord Retour Fournisseur" & _ 
                vbCrLf & "PDD  = Preuve de départ" & vbTab & vbTab & "IMEI= Numéro IMEI pour GSM" 
 
        BodyText = BodyText & vbCrLf & vbLf 
        'Pour chaque champ, crée une colonne avec le nom du champ 
        For Each oFld In oRst.Fields 
            BodyText = BodyText & oFld.Name & vbTab 
        Next oFld 
        'Termine la ligne 
        BodyText = BodyText & vbCr 
        'Pour chaque enregistrement, crée une nouvelle ligne 
        While Not oRst.EOF 
        BodyText = BodyText & vbCr 
        'Pour chaque champ, crée une colonne avec la valeur du champ 
        For Each oFld In oRst.Fields 
            BodyText = BodyText & oFld.Value & vbTab 
        Next oFld 
        'Termine la ligne 
        BodyText = BodyText & vbCr 
        'Passe à l'enregistrement suivant 
        oRst.MoveNext 
        Wend

Je voudrais remplacer ces constantes (vbCr , vbTab ...) par du HTML.
Avoir la possibilité de mettre du caractère gras, des couleurs.

Dans la deuxième partie du code, je joins les données d'une table. Même problème, les données sont mises suivant des tabulations et retour à la ligne. L'apparence n'est pas joli et peu lisible.

Merci pour votre aide,

LeRico

[cafeine]

Hello,

il suffit de faire des replace

Code :

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

1
2
str = Replace(str, VbCrLf, "<br>")
str = Replace(str, VbTab, "&nbsp;&nbsp;&nbsp;&nbsp;")

avec BodyText à la place de str