Discussion :

[ananar]

Bonjour à toutes et à tous,

Pour les besoins du boulot, je dois mettre à disposition des utilisateurs une solution pratique, pour formuler rapidement des réponses aux mails que nous recevons.

Ce que j'ai fait :

1) J'ai enregistré les réponses types rédigées avec Word en Page Web. J'ai donc pour chaque modèle un fichier .html et un dossier qui comprend des images (logo).

2) J'ai créé la macro :

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
Public Sub Test()
Dim oMail As Outlook.MailItem
Dim oFSO
Dim oFS
If Application.ActiveExplorer.Selection.Count Then
If TypeOf Application.ActiveExplorer.Selection(1) Is Outlook.MailItem Then
Set oMail = Application.ActiveExplorer.Selection(1).Reply
 
Set oFSO = CreateObject("Scripting.FileSystemObject")
 
Set oFS = oFSO.OpenTextFile("C:\Documents and Settings\6503038v\Bureau\Outlook2003\TemplateEmail\Test.html")
 
stext = oFS.ReadAll
oMail.BodyFormat = olFormatHTML
oMail.HTMLBody = stext & vbCr & oMail.HTMLBody
oMail.Display
End If
End If
End Sub

3) Ce code charge un des fichiers .html précédemment créés dans le corps du mail.

4) Le texte du modèle s'affiche bien, mais pas l'image (logo). J'ai une croix rouge dans un rectangle.

Ci-dessous le code html :

Code :

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

1
2
3
<v:image src="Test_fichiers/image001.jpg" o:title="LOGO ACCES PLUS FINAL 031006"/>
</v:shape><![endif]--><![if !vml]><IMG height=36 
src="Test_fichiers/image002.jpg" width=96

J'ai vérifié les différentes options d'Outlook. Tout est OK.

Si quelqu'un à une idée ?

D'avance merci !

Bien cordialement

[Invité]

Bonjour

Est-ce que l'image n'apparait pas lorsque la personne reçoit le mail ?

Si oui, ton image est sur ton disque dur ou sur un site web ? (http:...)

Philippe

[ananar]

Bonjour Philippe,

Merci pour ta réponse.

L'image ne s'affiche ni dans le mail que je souhaite envoyer, donc pas non plus chez le destinataire.

Effectivement, l'image se trouve sur mon disque dur.

Je ne sais pas s'il est possible de réaliser ce que je souhaite ...

Bien cordialement,

[Dolphy35]

Salut,

Concernant l'image c'est normale car tu fais un lien vers ton disque dur. Il faut hébergé l'image sur un serveur web.

Dolphy

[ananar]

Bonjour à toutes et à tous,

Je tente toujours de trouver la solution (si elle existe ??) à ma problématique (mettre à disposition des utilisateurs une solution pratique, pour formuler rapidement des réponses aux mails que nous recevons).

Ma méthode précédente ne permettait pas d'afficher un logo dans le corps du mail.

Je tente de procéder autrement, en utilisant un modèle Outlook pour répondre.

Voici où j'en suis :

1) J'ai enregistré les réponses types en modèle Outlook (.oft).

2) J'ai créé la macro suivante :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Public Sub CommentBénéficierDuService()
Dim olkReply As Outlook.MailItem, _
olkTemplate As Outlook.MailItem
Set olkReply = Item.Reply
Set olkTemplate = Application.CreateItemFromTemplate("C:\Documents and Settings\6503038v\Bureau\RéponsesTypes\CommentBénéficierDuService\CommentBénéficierDuService.oft")
olkTemplate.Recipients.Add olkReply.Recipients.Item(1).Address
olkTemplate.Recipients.ResolveAll
olkTemplate.Send
Set olkReply = Nothing
Set olkTemplate = Nothing
End Sub

3) J'obtiens à la ligne

Code :

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

Set olkReply = Item.Reply

le code Erreur d'exécution '424' Objet requis


J'ai beau chercher, je ne trouve pas

Si quelqu'un à une idée ?

D'avance merci !

Bien cordialement