Discussion :

[6ril25]

Bonjour,

j'essais d'envoyer un mail (jusque là, pas de problème) en html (pas de soucis non plus), mais contenant de l'html.... et là, ben rien ne va: je reçois le mail, avec à l'intérieur, le code visible (il s'agit d'un simple <a href...>)

Auriez-vous la solution pour que mon "client" de messagerie (Outlook, Gmail, etc...) traduise correctement le mail envoyé?

6ril

[Gary_Stoupy]

Bonjour,

En remplaçant la propriété "body" de ton message par la propriété "htmlbody", il ne devrait plus y avoir de souci...

[6ril25]

Merci de te pencher sur mon soucis, mais je ne vois pas très bien ce que tu veux que je remplace...
J'utilise:

Code :

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

1
2
3
4
5
 
monMessage = "<a href='chemin_vers_PDF'>PDF</a>"
DoCmd.SendObject , , "HTML (*.html)", mesDestinataires, enCopie, "", Objet, monMessage, False, ""
sur le modèle:
DoCmd.SendObject [typeobjet][, nomobjet][, formatdesortie][, à][, cc][, ccc][, sujet][, textemessage][, modifiermessage][, fichiermodèle]

Où apparait le body??
A tout hasard: faudrait-il faire une page html complete dans ma variable monMessage??

[6ril25]

UP

Apparemment Gary_Stoupy sèche aussi.
Snif

[6ril25]

la reponse pour ceux qui aurait besoin...

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
Public Sub MailHTML(Destinataire As String, _
                        Sujet As String, _
                        EditMessage As Boolean, _
                        Optional Corps As String)
 
Dim Ol_App As New Outlook.Application
Dim Ol_Item As Outlook.MailItem
 
DoCmd.Hourglass True
 
SysCmd acSysCmdClearStatus
Set Ol_Item = Ol_App.CreateItem(olMailItem)
 
With Ol_Item
    .To = Destinataire
    .Subject = Sujet
    .HTMLBody = Corps
    .Save
    If EditMessage = True Then
        .Display
    Else
        .Send
    End If
End With
 
Set Ol_Item = Nothing
Set Ol_App = Nothing
DoCmd.Hourglass False
 
End Sub