Discussion :

[don_pets]

Bonjour le fofo,

Je reviens vers des champions afin de voire s'il existe une solution à cette demande.

Pour faire simple, j'ai enregistré des mails types sur mon serveur dans un répertoire défini (du genre \\partage\Tintin\mails_types\ et ici tous mes .msg)

Ouvrir l'un de ces mails types via outlook, c'est assez simple je ne me complique pas l'existence, j'utilise ce code :

Code :

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

1
2
3
4
5
 
 
Set newItem = Application.CreateItemFromTemplate("\\partage\Tintin\mails_types\superréponsequidéboite.msg")
newItem.Display
Set newItem = Nothing

ça ok, no problemo, comme ça tous les users à qui j'installe cette macro peuvent ouvrir le mail type, avec sa signature, et ça c'est beau !

Maintenant ma demande :

Comment puis-je faire pour répondre à un mail entrant, en incorporant mon mail type dans le corps du mail réponse ? c'est confus à dire comme ça je l'admets.

Mais en fait c'est "simple"

Je reçois un mail, je veux y répondre (donc je garde son contenu) et j'y incorpore mon .msg

Is that possible ?

Merci par avance à ceux qui réfléchiront sur le sujet.

Pets

[Oliv-]

Salut,

par exemple tu peux faire comme cela

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
' ca c'est la reponse
Set MyItem = activeinspector.currentitem
 
MyItemHTML= MyItem.HTMLBODY
 
Set newItem = Application.CreateItemFromTemplate("\\partage\Tintin\mails_types\superréponsequidéboite.msg")
newItem.Display
 
MyItem.htmlbody =NewItem.HTMLBODY & " " & MyItemHTML
 
NEWITEM.close

[don_pets]

Salut Oliv,

Merci de ta réponse.

C'est presque nickel, en ce sens qu'il ne me reprend pas l'image qui accompagne ma signature !

Une des pistes à laquelle je pensais, était de mettre les mails types dans un folder, et de faire genre un copier coller du body.

Qu'en penses-tu ?

[Oliv-]

...

C'est presque nickel, en ce sens qu'il ne me reprend pas l'image qui accompagne ma signature !

c'est quoi la signature par défaut ?

Une des pistes à laquelle je pensais, était de mettre les mails types dans un folder, et de faire genre un copier coller du body.

Qu'en penses-tu ?

C'est ce que je fais dans le code transmis mais en HTML donc effectivement cela ne reprend pas les images,

En principe si tu as défini une signature par défaut pour les réponses, lorsque tu fais un .Display elle se met !


Avec le code précédent tu devrais dans ce cas avoir 2 fois ta signature ?

Après cela dépend aussi quand tu lances ta macro avant ou après avoir cliqué sur répondre.


L'autre méthode c'est de faire un copier coller avec WORDEDITOR (=macro WORD)

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
31
32
33
34
35
36
37
38
39
40
Sub FusionReponseEtMsg()
    Dim MonOutlook As Outlook.Application
    Dim mail As Object
    Dim LeMail As Outlook.MailItem
    Dim MyNewMail As Outlook.MailItem
    Dim LesMails As Object
    Dim HTML As String
    Dim objWordDocEditor
    Set MonOutlook = Outlook.Application
 
    Set MyNewMail = MonOutlook.ActiveInspector.CurrentItem
    Dim NewWordEditor
    MyNewMail.Display
    'MyNewMail.HTMLBody = ""
    Set NewWordEditor = MyNewMail.GetInspector.WordEditor
 
    Numero = 1
 
    Set LeMail = Application.CreateItemFromTemplate("e:\temp\test.msg")
    '  LeMail.Display
 
    If LeMail.GetInspector.EditorType = olEditorWord Then
        'Word format email so try to copy with formatting
        'http://www.outlookcode.com/article.aspx?id=31
        'http://support.microsoft.com/kb/212682
        Set objWordDocEditor = LeMail.GetInspector.WordEditor
        objWordDocEditor.Range.Copy
        ' NewWordEditor.Range.Paste
        Set objSel = NewWordEditor.Windows(1).Selection
        objSel.MOVE wdStory, -1
 
        objSel.MOVE wdParagraph, 1
 
        objSel.Paste    'AndFormat (wdPasteDefault)
        Numero = Numero + 1                    ' ajout de ligne
    End If
    LeMail.Close olDiscard
 
    MsgBox "Opération terminée"
End Sub

[don_pets]

c'est quoi la signature par défaut ?

Chaque user a une signature par défaut qui est identique à savoir le logo de la boutique (donc l'image) et ensuite le nom et coordonnées.

Avec le code précédent tu devrais dans ce cas avoir 2 fois ta signature ?

L'idée c'est que comme initialement je lançais les mails types (mes .msg) via un excel et que je les ai filé à plusieurs personnes, pour ne pas être embêté avec les signatures je n'en mettais pas sur les mails types. Le texte s'arrêtait sur "Sincères salutations,". Ainsi chaque personne cliquant sur le bouton mail type avait le message qui s'ouvrait avec sa propre signature.

Mais l'inconvénient de cette manipulation, c'est que si tu veux répondre à un mail entrant, tu vas sur le fichier excel, tu cliques sur le mail type désiré, et ensuite tu copies colles le contenu du mail entrant, ce qui n'est pas l'extase.

Dans ce que j'avais imaginé, c'était de pouvoir répondre à un mail entrant, en cliquant un bouton via ton bandeau réponse + mail type. Ainsi tu as et l'historique et le mail type et la signature.

En tenant ta deuxième méthode j'obtiens une erreur sur objSel.Move wdStory, -1 paramètre incorrect

[Oliv-]

Essaye en ajoutant une référence à MICROSOFT WORD 1X.0 OBJECT LIBRARY

[don_pets]

Essaye en ajoutant une référence à MICROSOFT WORD 1X.0 OBJECT LIBRARY

Arrf il est toujours plus facile d'oublier ce qui est évident !!

Cela fonctionne presque nickel ^^.

La macro ne se lance que si je fais répondre, ce qui n'est pas dérangeant mais me colle deux signatures !

Mais le résultat est déjà probant !!

[Oliv-]

Peut être dans ce cas utiliser la méthode OpenSharedItem au lieu de CreateItemFromTemplate

Code :

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

1
2
3
4
5
' Get a reference to a NameSpace object.
    Set oNamespace = Application.GetNamespace("MAPI")
 
    Set LeMail = oNamespace.OpenSharedItem( _
                      "C:\temp\Mise à jour CRM.msg")

[don_pets]

Salut Oliv,

Pardonne ma réponse tardive j'ai été happé par la réunion du jeudi qui commence de manière inattendu et se termine à pas d'heure !

Je viens de tester ta dernière modification et c'est exactement ça !!

Comme d'habitude tu m'as trouvé la parade, merci Oliv.

Donc pour les gens qui auraient un jour ce même besoin que ouame, voici le code que j'utilise pour répondre à un mail en utilisant un mail type

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
31
32
33
34
35
36
 Dim MonOutlook As Outlook.Application
    Dim mail As Object
    Dim LeMail As Outlook.MailItem
    Dim MyNewMail As Outlook.MailItem
    Dim LesMails As Object
    Dim HTML As String
    Dim objWordDocEditor
    Set MonOutlook = Outlook.Application
 
    Set MyNewMail = MonOutlook.ActiveInspector.CurrentItem
    Dim NewWordEditor
    MyNewMail.Display
    'MyNewMail.HTMLBody = ""
    Set NewWordEditor = MyNewMail.GetInspector.WordEditor
 
    Numero = 1
 
' Get a reference to a NameSpace object.
    Set oNamespace = Application.GetNamespace("MAPI")
 
    Set LeMail = oNamespace.OpenSharedItem( _
                      "nomdurep\mailquideboite.msg")
 
    If LeMail.GetInspector.EditorType = olEditorWord Then
        Set objWordDocEditor = LeMail.GetInspector.WordEditor
        objWordDocEditor.Range.Copy
        ' NewWordEditor.Range.Paste
        Set objSel = NewWordEditor.Windows(1).Selection
        objSel.Move wdStory, -1
 
        objSel.Move wdParagraph, 1
 
        objSel.Paste    'AndFormat (wdPasteDefault)
        Numero = Numero + 1                    ' ajout de ligne
    End If
    LeMail.Close olDiscard

ne pas oublier de déclarer la référence à MICROSOFT WORD 1X.0 OBJECT LIBRARY

Encore une fois merci Oliv !

Pet's

[don_pets]

'llo le fofo,

Dans le même ordre d'idée mais avec la possibilité d'ajouter directement une PJ via une fenêtre de dialogue :

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Dim MonOutlook As Outlook.Application
Dim mail As Object
Dim LeMail As Outlook.MailItem
Dim MyNewMail As Outlook.MailItem
Dim LesMails As Object
Dim HTML As String
Dim objWordDocEditor
Dim myAttachments As Outlook.Attachments
 
Set MonOutlook = Outlook.Application
 
Set MyNewMail = MonOutlook.ActiveInspector.CurrentItem
Dim NewWordEditor
MyNewMail.Display
 
Set NewWordEditor = MyNewMail.GetInspector.WordEditor
 
Numero = 1
 
Set oNamespace = Application.GetNamespace("MAPI")
 
Set LeMail = oNamespace.OpenSharedItem( _
  "chemin\monmailquidéboite.msg")
 
If LeMail.GetInspector.EditorType = olEditorWord Then
Set objWordDocEditor = LeMail.GetInspector.WordEditor
objWordDocEditor.Range.Copy
 
Set objSel = NewWordEditor.Windows(1).Selection
objSel.Move wdStory, -1
 
objSel.Move wdParagraph, 1
 
objSel.Paste
Numero = Numero + 1
 
End If
 
Dim XL As Object
Dim strTest As String
Set XL = CreateObject("Excel.Application")
 
piecejointe = XL.GetOpenFilename()
 
Set myAttachment2 = MyNewMail.Attachments
myAttachments.Add piecejointe
 
 
LeMail.Close olDiscard

Enjoy

Pet's