Discussion :

[zooffy]

Bonjour à tous

Je suis un peu dépassé par les évènements sur un point.
Je vous propose mon code et on en aprle ensuite :

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
 
Private Sub btnSaveRecord_Click()
Dim oEmail As Outlook.MailItem
Dim appOutLook As Outlook.Application
Dim odbMail As DAO.Database
Set odbMail = CurrentDb
 
' Créer un nouvel item mail
Set appOutLook = New Outlook.Application
Set oEmail = appOutLook.CreateItem(olMailItem)
Dim body As String
 
body = NoteSWIFT.Value
 
' Les paramètres
oEmail.BodyFormat = olFormatRichText
oEmail.To = "user@server.com"
oEmail.Subject = "Réactivation ou déblocage ou création"
oEmail.body = body
oEmail.FormDescription = "Ma description"
 
' Envoie le message
oEmail.Send
 
' Détruit les références aux objets
Set oEmail = Nothing
Set appOutLook = Nothing
odbMail.Close
Set odbMail = Nothing
Me.Refresh
End Sub

Voici ce que je reçois par mail :

<div>Bonjour</div>

<div>&nbsp;</div>

<div>Ceci est un email de test</div>

<div>&nbsp;</div>

<div>Ce test porte sur le mail d'envoi pour réactiver ou débloquer ou encore créer une valeur à la suite de la réception d'un mail.</div>

<div>&nbsp;</div>

Je cherche le moyen de ne pas envoyer de balise HTML et je en trouve pas.
Sur le oEmail.BodyFormat = olFormatRichText j'ai essyé tous les foramts, ça passé pas.
J'ai remarqué que les balises sont dans la variable body, donc doivent venir du Value de la TextBox, mais comment je l'enlève ?

Je suis bloqué.

Merci pour votre aide.

[Invité]

Bonjour,
Remplaces tes div par des <P></P>

oEmail.HTMLBody=body