Discussion :

[marius84]

Bonjour,
Je ne suis pas encore suffisamment familiarisé avec VBA pour Access et j'aurais besoin de tuyaux pour avancer dans mon projet.
J'ouvre un formulaire et j'ai créé une sub permettant l'envoi de mails à partir de mon compte Outlook. Tout fonctionne sauf que le destinataire reçoit un message de ce style <div>blabla</div>. Le texte provient d'un contrôle de type texte. A la réception le texte est inséré entre 2 balises HTML. Est-ce qu'il y a une syntaxe particulière ou bien faut-il un contrôle spécial ou bien faut-il donner à ce contrôle une propriété particulière. Si quelqu'un peut me faire l'amabilité de me dire ce que je dois faire, je l'en remercie par avance.
marius84

[madefemere]

Bonsoir,

Pouvez-vous poster le code du "sub" en question s'il vous plait? Parce que là on ne sait rien de ce qu'il y a sous le capot.

Cordialement,

[marius84]

Bonjour et merci de m'avoir répondu,
Comme vous le demandez à juste titre voici le code que j'ai utilisé, Me.txtMail est un contrôle de type alpha.

Private Sub SendOneMail()
Dim Olk As Outlook.Application
Dim OlkMsg As Outlook.MailItem
Set Olk = CreateObject("Outlook.Application")
Set OlkMsg = Olk.CreateItem(olMailItem)

On Error Resume Next
With OlkMsg
Dim OlkRecip As Outlook.Recipient
'Set OlkRecip = .Recipients.Add(Me.Messagerie)
Set OlkRecip = .Recipients.Add("mymessagerie@gmail.com")
OlkRecip.Type = olTo
.Subject = Me.txtSubject
.Body = Me.txtMail
' il faut créer le texte du chemin d'accès au fichier
' if me.txtFile <> "" then
' .Attachments.Add ActiveWorkbook.FullName
' .Attachments.Add ("C:\Users\MyName\Documents\Dossier Access\" & Me.txtFile)
' end if
' à la place de send on peut utiliser ".Display" pour voir le mail.
' .Send
.Display
End With
On Error GoTo 0
Set Olk = Nothing
Set OlkMsg = Nothing
Set OlkRecip = Nothing

End Sub

Cordialement,
marius84

[madefemere]

Bonjour,

J'ai essayé ton code, mais je n'ai pas eu de souci.
Par précaution, essaies de paramétrer la propriété bodyformat de ton objet mail.
après la ligne :

Code :

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

1
2
3
4
5
 
.....
.Body = Me.txtMail
.BodyFormat = olFormatRichText 'Mettre ici la constante voulue
....

Cordialement,

[marius84]

Bonsoir et merci d'avoir examiné mon cas.
Le fait d'avoir utilisé BodyFormat n'a rien changé, j'ai essayé avec olFormatHTML, mais ça ne donne rien. je vais continuer mes recherches
Bonne soirée et merci.
marius84

[marius84]

Bonjour,
Suite à mes deux précédents messages j'ai trouvé quelque chose mais qui ne résout rien. En effet mon champ texte était de type Texte Long, quand je le mets au format Texte Court, je n'ai plus aucune balise. Le problème est que je me retrouve avec une limite de 255 caractères, ce qui est largement insuffisant. Je peux évidemment remplir le texte avec Word et lancer mon publipostage par la suite, mais je voulais faire quelque chose d'autre.
Si vous avez l'amabilité de me mettre sur la voie, je vous en serais très reconnaissant. Par avance je vous en remercie.
marius84

[marius84]

Encore moi, Bonjour,
En fait je n'ai rien résolu car quand je rempli mon champ avec un certain nombre de caractères je retrouve encore mes balises. Faut-il utiliser un Trim ou quelque chose d'autre?
Merci d'avance.
Marius84