ananar1407
Messages postés1Date d'inscriptionjeudi 12 février 2009StatutMembreDernière intervention 9 septembre 2010
-
9 sept. 2010 à 15:15
cs_loulou69
Messages postés672Date d'inscriptionmercredi 22 janvier 2003StatutMembreDernière intervention 2 juin 2016
-
10 sept. 2010 à 16:27
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.
Ma première ébauche :
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 :
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 :
<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
On m'a expliqué que concernant l'image, c'est normal car je fais fais un lien vers mon disque dur. Il faut hébergé l'image sur un serveur web.
Malheureusement, je ne peux pas adopter cette solution
Ma seconde ébauche :
J'ai trouvé 2 codes.
Le premier utilise un fichier .oft :
Sub CreateFromTemplate()
Dim myOlApp As Outlook.Application
Dim MyItem As Outlook.MailItem
Set myOlApp = CreateObject("Outlook.Application")
Set MyItem = myOlApp.CreateItemFromTemplate("C:\Documents and Settings\6503038v\Bureau\RéponsesTypes\CommentBénéficierDuService\CommentBénéficierDuService.oft")
MyItem.Display
End Sub
Le second créé un mail de réponse :
Sub TestReply()
Dim OMail As Outlook.MailItem
Dim objReplyMail As Outlook.MailItem
Set OMail = ActiveExplorer.Selection(1)
Set objReplyMail = OMail.Reply
objReplyMail.Display
End Sub
J'essaie depuis un moment de "fusionner" les deux, sans succès
En fait, je voudrai utiliser le second code en mettant dans le corps du mail de réponse un modèle .oft.
D'avance merci à celles et ceux qui prendront le temps de lire mon message.