OVH Cloud OVH Cloud

Envoyer un mail au format HTML avec Access ?

14 réponses
Avatar
Nath
Bonjour,

J'aimerais automatiser une application et envoyer via Outlook les messages
avec un papier peint. J'ai essayé en mettant un modèle par défaut dans
Outlook, mais sans succès. Pour l'instant, ça fonctionne en format texte
seulement. Est-ce que quelqu'un peut m'aider ?

Je me suis basé sur le chapitre 8 du CookBook d'Hervé Inisan pour le code.

Merci !

Meg.

' ---
' ENVOYER UN MAIL DEPUIS ACCESS
' ---
' Entrée : strDestinataire <- Adresse e-mail du destinataire
' strSujet <- Objet du courrier
' strMsg <- Corps du message
' blnEdit <- True pour pouvoir modifier le courrier avant
envoi
' False pour expédier le courrier directement.
'
Public Sub EnvoyerEmail(ByVal strDestinataire As String, _
ByVal strCC As String, _
ByVal strBCC As String, _
ByVal strSujet As String, _
ByVal strMsg As String, _
ByVal blnEdit As Boolean)

' Message
strMsg = "Bonjour, " & vbCrLf & vbCrLf _
& "Ceci est un test..." & vbCrLf _
& "Ceci est un 2e test" & vbCrLf & vbCrLf _
& "Ceci est un 3e test" & vbCrLf _
& "Merci !"

On Error Resume Next
DoCmd.SendObject acSendNoObject, , , strDestinataire, strCC, strBCC,
strSujet, strMsg, blnEdit
End Sub

4 réponses

1 2
Avatar
Meg
Salut Raymond.

J'ai résolu le problème de la façon suivante :-)

Il s'agissat de modifier la ligne .HTMLBody comme suit :

.HTMLBody = "<body
background=file:///C:/Program%20Files/Fichiers%20communs/Microsoft%20Shared/Papier%20à%20lettres/aleabanr.gif><HTML><center><H2>Bonjour
à toi </H2><BODY>Mon message doit fonctionner.</BODY><center></HTML>"

Merci pour tes judicieux conseil, ça m'a guidé :-)

PS. C'est quoi le numéro de ton compte au Bahamas ? ;-)

Meg.


"Raymond [mvp]" a écrit dans le message
de news:
ben maintenant faut voir le thème et ça , ça va demander du temps.
même à la main:
Changer le papier à lettres
1.. Sélectionnez un message électronique, puis cliquez sur Répondre,
Répondre à tous ou Transférer.
2.. Sous l'onglet Options, dans le groupe Thèmes, cliquez sur Couleur de
page, puis sur Motifs et textures.
Les options de la boîte de dialogue Motifs et textures comprennent des
dégradés de couleur d'arrière-plan, des textures et des images en
mosaïque.
3.. Cliquez sur OK pour appliquer vos modifications.

ce n'est pas évident que tu ais cette procédure en version xp, ça peut
changer à chaque version.
c'est pas gagné.
--
@+
Raymond Access MVP http://www.OfficeSystemAccess.com/
http://officesystem.access.over-blog.com/
Pour débuter sur le forum: http://www.mpfa.info/

Cet été, j'en ai rien à coder, je me forme : les devoirs de vacances
http://www.comscamp.com/Tracker/Redirect.ashx?linkidJd96883-a859-4212-b4a0-bce47c8e0d99


"Meg" a écrit dans le message de news:

| Elle est sous Outlook, Version XP
|




Avatar
Raymond [mvp]
Bonjour.

c'est vrai que pour le html il faut tout fourrer dedans.
je pense que'il faudrait bouger les balises comme ceci:
.HTMLBody = "<HTML><body
background=file:///C:/Program%20Files/Fichiers%20communs/Microsoft%20Shared/Papier%20à%20lettres/aleabanr.gif><center><H2>Bonjour
à toi </H2>Mon message doit fonctionner.</BODY><center></HTML>"
normalement les balises HTML encadrent la totalité du contenu.
pour le center, je ne me rappelle plus, on ne l'emploie plus comme ça
maintenant, mais que fait outlook ?

pour les bahamas ça va attendre.

--
@+
Raymond Access MVP http://www.OfficeSystemAccess.com/
http://officesystem.access.over-blog.com/
Pour débuter sur le forum: http://www.mpfa.info/

Cet été, j’en ai rien à coder, je me forme : les devoirs de vacances
http://www.comscamp.com/Tracker/Redirect.ashx?linkidJd96883-a859-4212-b4a0-bce47c8e0d99


"Meg" a écrit dans le message de news:

| Salut Raymond.
|
| J'ai résolu le problème de la façon suivante :-)
|
| Il s'agissat de modifier la ligne .HTMLBody comme suit :
|
| .HTMLBody = "<body
|
background=file:///C:/Program%20Files/Fichiers%20communs/Microsoft%20Shared/Papier%20à%20lettres/aleabanr.gif><HTML><center><H2>Bonjour
| à toi </H2><BODY>Mon message doit fonctionner.</BODY><center></HTML>"
|
| Merci pour tes judicieux conseil, ça m'a guidé :-)
|
| PS. C'est quoi le numéro de ton compte au Bahamas ? ;-)
|
| Meg.
|
Avatar
Meg
Bonjour Raymond,

Tu as probablement raison pour la balise HTML même si ça fonctionne
autrement. Pour ce qui est de Outlook, il s'ouvre avec la bon fond d'écran
et la bonne mise en page. Je te laisse ci-dessous le code finaliser de la
procédure appeler par un bouton. Ça me ferait plaisir de t'envoyer
l'application à une adresse email "générique", à défaut de t'envoyer de
l'argent dans ton compte au Bahams ;-)

- Tout ce que ça prend pour tester le code ci-dessous c'est un formulaire
avec un bouton et deux champs

Merci encore pour tout !

Megan.



Private Sub CmdMessage_Click()
Dim mess_body As String
Dim appOutLook As Outlook.Application
Dim MailOutLook As Outlook.MailItem
Set appOutLook = CreateObject("Outlook.Application")
Set MailOutLook = appOutLook.CreateItem(olMailItem)

Set appOutLook = CreateObject("Outlook.Application")
Set MailOutLook = appOutLook.CreateItem(olMailItem)
With MailOutLook
.BodyFormat = olFormatHTML
.To = Me.Courriel 'Réfère au champ du formulaire courriel
.Subject = Me.txtSujet 'Réfère au champ masqué du formulaire
"Bonne fête !"
.HTMLBody = "<HTML><body
background=file:///C:/Program%20Files/Fichiers%20communs/Microsoft%20Shared/Papier%20à%20lettres/aleabanr.gif><center><H2><br><br><br>Aujourd'hui
c'est ton anniversaire.<br><BODY>Je désire te souhaiter une très belle
journée.<br>Pour cette occasion.<br>J'en profite pour te remercier de ta
précieuse collaboration.<br>Bonne fête !<br><br>Le
directeur<H2></BODY></center></HTML>"
'.DeleteAfterSubmit = True 'Permet d'envoyer un message sans
le conserver dans ses éléments envoyé.
.Display
End With
'MsgBox MailOutLook.Body
Exit Sub
email_error:
MsgBox "Une erreur est survenue." & vbCrLf & "Le message
d'erreur est : " & Err.Description
Resume Error_out
Error_out: End Sub


"Raymond [mvp]" a écrit dans le message
de news: e%231$
Bonjour.

c'est vrai que pour le html il faut tout fourrer dedans.
je pense que'il faudrait bouger les balises comme ceci:
.HTMLBody = "<HTML><body
background=file:///C:/Program%20Files/Fichiers%20communs/Microsoft%20Shared/Papier%20à%20lettres/aleabanr.gif><center><H2>Bonjour
à toi </H2>Mon message doit fonctionner.</BODY><center></HTML>"
normalement les balises HTML encadrent la totalité du contenu.
pour le center, je ne me rappelle plus, on ne l'emploie plus comme ça
maintenant, mais que fait outlook ?

pour les bahamas ça va attendre.

--
@+
Raymond Access MVP http://www.OfficeSystemAccess.com/
http://officesystem.access.over-blog.com/
Pour débuter sur le forum: http://www.mpfa.info/

Cet été, j'en ai rien à coder, je me forme : les devoirs de vacances
http://www.comscamp.com/Tracker/Redirect.ashx?linkidJd96883-a859-4212-b4a0-bce47c8e0d99


"Meg" a écrit dans le message de news:

| Salut Raymond.
|
| J'ai résolu le problème de la façon suivante :-)
|
| Il s'agissat de modifier la ligne .HTMLBody comme suit :
|
| .HTMLBody = "<body
|
background=file:///C:/Program%20Files/Fichiers%20communs/Microsoft%20Shared/Papier%20à%20lettres/aleabanr.gif><HTML><center><H2>Bonjour
| à toi </H2><BODY>Mon message doit fonctionner.</BODY><center></HTML>"
|
| Merci pour tes judicieux conseil, ça m'a guidé :-)
|
| PS. C'est quoi le numéro de ton compte au Bahamas ? ;-)
|
| Meg.
|




Avatar
Raymond [mvp]
Bonjour.

prends mon adresse dans mes messages et enlèves les xyz de protection.

--
@+
Raymond Access MVP http://www.OfficeSystemAccess.com/
http://officesystem.access.over-blog.com/
Pour débuter sur le forum: http://www.mpfa.info/

Cet été, j’en ai rien à coder, je me forme : les devoirs de vacances
http://www.comscamp.com/Tracker/Redirect.ashx?linkidJd96883-a859-4212-b4a0-bce47c8e0d99


"Meg" a écrit dans le message de news:

| Bonjour Raymond,
|
| Tu as probablement raison pour la balise HTML même si ça fonctionne
| autrement. Pour ce qui est de Outlook, il s'ouvre avec la bon fond d'écran
| et la bonne mise en page. Je te laisse ci-dessous le code finaliser de la
| procédure appeler par un bouton. Ça me ferait plaisir de t'envoyer
| l'application à une adresse email "générique", à défaut de t'envoyer de
| l'argent dans ton compte au Bahams ;-)
|
| - Tout ce que ça prend pour tester le code ci-dessous c'est un formulaire
| avec un bouton et deux champs
|
| Merci encore pour tout !
|
| Megan.
1 2