[AC-2003] FAQ Comment envoyer un mail (courriel) contenant des sauts de ligne ? [Résolu]

[Philobee]

Bonjour,

J'ai ajouter un bouton basé sur Send mail dans ma BD et je voulais mettre un peu de mise en forme dans le corps de mon message.

J'ai trouvée dans le FAQ la réponse dont j'avais besoin..
le problème c'est qu il doit me manquer quelque chose.
J'ai seulement voulu tester pour voir si c'est ce que je cherchais mais au lieu de me donner un sauts de ligne, il inscrit textuellement la balise HTML ex:coucou<br>TEST3

J'ai ajouter les bibliothèques

Microsoft Outlook Object Library
Microsoft DAO Object Library

en me disant que peut-être cela aura une incidence mais non..

Merci beaucoup pour votre aide toujours précieuse!

[User]

Salut,

Est-ce que tu te réfères à cette source ?

As-tu essayé avec <br/> ?

A+

[Philobee]

Bonjour,

J'ai effectivement testé de mettre <br/>. Mais cela me donne coucou<br/>TEST3

Je ne comprend pas car j'ai tout bêtement copier collé la procédure de cette source: http://access.developpez.com/faq/?pa...SendMailvbcrlf

Je voulais tester pour comprendre le fonctionnement avant de tenter d'adapter à mon problème..

Merci beaucoup pour votre aide!!

[User]

Re,

Et ça donne quoi avec le retour chariot ?

vbCrLf ou vbNewLine ...

Code :

1
2
3
4
5
6
Sub tesjdn() 
Dim textemsg As String 
 
textemsg = "coucou" & vbNewLine & "TEST3" 
DoCmd.SendObject , , acFormatTXT, "toto@aol.com", , , "titre", textemsg, True 
End Sub

A+

[Philobee]

Merci beaucoup cela fonctionne!

Mais la raison pour laquelle je testais cette procédure c'est que j'essai de mettre du code HTML dans une procédure sendmail.

J'ai parcontre regardé la procédure que vous avez envoyé dans le premier message http://access.developpez.com/sources/?page=ole#MailHTML

Je vais continuer de tester avec cette dernière si je ne peux pas adapter..

Mais juste pour savoir, est-ce que quelqu'un sait pourquoi ça ne fonctionne pas avec la balise <br>

Merci encore!

[Philobee]

Bonjour,

Y a-t-il moyen, selon vous, avec la procédure que vous m'avez indiqué de ne pas voir tous les champs de ma requête dans le résultat

Exemple, nous avons les champs

Réf produit
Nom du produit
quantité par unité
Prix unitaire

Réf produit est obligatoire dans ma requête mais je ne veux pas que le client le voit dans le courriel

Aussi, comment arrive t-on a avoir des largeur de colonne qui respectent le texte (les miennes renvoient à la ligne et c'est pas très jolie..)

Merci Beaucoup!!

[Arkham46]

bjr,

pour rejeter un champ, on peut tester son nom :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
'Pour chaque champ, crée une colonne avec le nom du champ
For Each oFld In oRst.Fields
    If oFld.Name <> "Réf produit" then
      strContenu = strContenu & "<td><b>" & oFld.Name & "</b></td>"
    End If
Next oFld
[...]
  'Pour chaque champ, crée une colonne avec la valeur du champ
  For Each oFld In oRst.Fields
    If oFld.Name <> "Réf produit" then
      strContenu = strContenu & "<td>" & oFld.Value & "</td>"
    End If
  Next oFld

pour la largeur des colonnes, tu peux ajouter Width à chaque td de la première ligne
ce n'est pas un auto-size en fonction de la taille du texte (je ne sais pas faire ça en HTML), c'est juste une largeur en pourcent ou en pixels mais ça peut déjà formatter les colonnes un peu mieux que la distribution par défaut

à tester :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
'Pour chaque champ, crée une colonne avec le nom du champ
dim lWidth as string
For Each oFld In oRst.Fields
    If oFld.Name <> "Réf produit" then
      Select case oFld.Name
        Case "Nom du produit"
          lWidth = "15%" ' Taille en pourcentage
        Case "Prix unitaire"
          lWidth = "50" ' Taille en pixel (je crois)
        Case Else
          lWidth = "" ' Taille par défaut pour les autres champs
      End Select
      strContenu = strContenu & "<td" & iif(lWidth<>""," width=""" & lWidth & """","") & "><b>" & oFld.Name & "</b></td>"
    End If
Next oFld

[Philobee]

Merci beaucoup !!! Je teste ça et je vous reviens, je l'espère avec un "résolu"

Merci!!!

[Philobee]

Finalement, je viens de pouvoir me remettre le nez dans ce problème..

et ça fonctionne Super!!

Merci!!