Discussion :

[alea83]

Bonjour à tous,

J'ai à nouveau besoin d'aide, car selon le code ci-dessous qui me construit un tableau dans un mail, le souci est qu'il me met la signature à l'intérieur du tableau.
J'ai essayé avec If de faire une fin de tableau mais cela ne fonctionne pas.
Merci d'avance pour votre aide.

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
 Set rst = db.OpenRecordset("RelanceP")
 
    rst.MoveLast
   i = rst.RecordCount
   ReDim sAttach(i - 1) 'il faut soustraire 1 parce que les tableaux commencent à 0
    rst.MoveFirst
    i = 0
 
   sLaVariableString = "<p><font face=Calibri size=3,5>" & Me.TexteC & "<BR><BR>"
 
sLaVariableString = sLaVariableString & "<table border = 1>" & "<tr>" & "<td>" & "N°" & "</td>" & "<td>" & "Libellé" & "</td>" & "<td>" & "Date de fin" & "</td>" & "</tr>" & "<tr>"
 
Do While Not rst.EOF
 
sLaVariableString = sLaVariableString & "<tr>" & "<td>" & rst("CODESTR") & "</td>" & "<td>" & rst("LIBELLE") & "</td>" & "<td>" & rst("STB") & "</td>" & "</td>" & " </tr>" & "<tr>"
 
        i = i + 1
        rst.MoveNext
   If rst.EOF = True Then sLaVariableString = sLaVariableString & "<\tr>" & "<\table border = 1>"
        Loop
 
 
'utilisation de la fonction,
      EnvoiMail Me.Mail, "Commande ", sLaVariableString