Macro envoi mail avec signature ET piece jointe

**Aiyolia** · 30/01/2017, 17h56

Bonjour,

j'ai écumé beaucoup de forums et je n'arrive toujours pas à trouver la solution parfaite à mon problème, je souhaite envoyer un mail avec PJ et signature via EXCEL.

J'ai tenté différentes approches dont les codes proposés par ron de bruin (http://www.rondebruin.nl/win/s1/outlook/signature.htm) mais qui ne réponds pas parfaitement à mes attentes puisqu'il n'inclut pas la PJ ou que les codes en question font totalement planter la macro dés lors que j'ajoute l'attachementsAdd. Ce qui se rapproche le plus de ce que je souhaite je pense est le code ci-dessous.

Toutefois la fonction GetInspector ne marche pas, je n'ai pas d'erreur de macro mais elle n'appose pas ma signature, pour le reste tout est OK, le fichier est bien mis en PJ et la Mise en page est OK.

Si qq'un a des suggestions je suis preneur, ou bien sûr un code formulé autrement qui m'aiderait :

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
Sub Sendings()
 
    Dim a As Outlook.MailItem
    Dim olApp As New Outlook.Application
 
    Dim datRef          As Date
    Dim strPer          As String
 
    'Determination de la date du jour
 
    datRef = Date
    strPer = ""
    strPer = Format(datRef, "YYYY_MM_DD")
 
    '1ere file Test ------------------------------------------------------------
    'groupecc -------------------------------
 
    Set a = Outlook.CreateItem(olMailItem)
    Set olApp = Nothing
    With a
        .To = "blabla@test"
        .CC = "blabla@test"
        .Subject = "TEST"
        .BodyFormat = olFormatHTML
        .HTMLBody = "<p>TEST,<p>"
        .Attachments.Add ("F:\TEST\TEST_" & strPer & ".xls")
        .GetInspector.CommandBars.Item("Insert").Controls("Signature").Controls(1).Execute
        .Display
 
    End With
 
    On Error GoTo 0
    Set OutMail = Nothing
    Set OutApp = Nothing
 
End Sub

**parmi** · 30/01/2017, 18h10

Bonjour,

Pour la signature, tu n'as qu'à faire un .Display au début.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
    With a
        .Display   'crée la signature
        .To = "blabla@test"
        .CC = "blabla@test"
        .Subject = "TEST"
        .BodyFormat = olFormatHTML
        .HTMLBody = "<p>TEST,<p>" & .HTML.Body  'ajoute ton texte avant la signature
        .Attachments.Add "F:\TEST\TEST_" & strPer & ".xls"
        .Display
 
    End With

**Aiyolia** · 30/01/2017, 18h32

Hello Parmi,

merci pour ce retour rapide, j'ai fais les modifs avec un & .HTMLBody et le remove de la ligne GetInspector, comme tu me l'as notifié (pas de point sur mon VBA entre HTML et Body).

Toutefois j'ai une erreur 287 qui apparait en me notifiant que l'objet n'est pas défini, as tu une idée d'où cela peut venir ?

Par contre si je rajoute le .display en gardant le GetInspector, comme tu me l'as mis, j'ai effectivement tout qui s'affiche mais la signature arrive avant le texte.

Si tu as une idée du pourquoi de l'erreur ou de comment réorganiser la 2e solution ... Je suis à l'écoute.

Et merci encore pour ton temps.

**parmi** · 30/01/2017, 18h53

J'avais effectivement fait une erreur en ajoutant un point entre HTML et Body... désolé
Par contre, pour ton erreur où survient-elle ?

**joe.levrai** · 30/01/2017, 19h21

Bonjour,

à quoi servent ces deux variables que je n'aperçoit qu'à leur destruction ?

Code :

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

1
2
Set OutMail = Nothing
Set OutApp = Nothing

Pourquoi partir de Outlook au lieu de olApp pour créer le Mailitem ?

Code :

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

Set a = Outlook.CreateItem(olMailItem)

pourquoi détruire l'objet application au milieu du gué ?

Code :

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

Set olApp = Nothing

vu que j'ai pour habitude de le détruire à la fin, ma question est peut-être naïve et non liée à ton problème d'objet

Question hors sujet (ou presque) : pourquoi ne pas travailler en liaison tardive ?

EDIT : je conseille un .Save de sécurité après l'ajout de la pièce jointe. Ca m'a parfois joué des tours (principalement lors d'ajouts multiples)

**Aiyolia** · 31/01/2017, 15h21

Envoyé par parmi

J'avais effectivement fait une erreur en ajoutant un point entre HTML et Body... désolé
Par contre, pour ton erreur où survient-elle ?

Bonjour Parmi,

après un F8 j'ai constaté que lorsque la macro arrive sur la ligne

BodyFormat = olFormatHTML, cela supprime la signature précédemment crée par le display.

Ensuite l'erreur survient sur la ligne

.HTMLBody = "TEST," & "TEST" & .HTMLBody en erreur 287 donc. Peut-être Est-ce dû au fait que la signature précédemment importée s'efface ?

Si tu as une idée, je prends.

Envoyé par joe.levrai

Bonjour,

à quoi servent ces deux variables que je n'aperçoit qu'à leur destruction ?

Code :

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

1
2
Set OutMail = Nothing
Set OutApp = Nothing

Pourquoi partir de Outlook au lieu de olApp pour créer le Mailitem ?

Code :

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

Set a = Outlook.CreateItem(olMailItem)

pourquoi détruire l'objet application au milieu du gué ?

Code :

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

Set olApp = Nothing

vu que j'ai pour habitude de le détruire à la fin, ma question est peut-être naïve et non liée à ton problème d'objet

Question hors sujet (ou presque) : pourquoi ne pas travailler en liaison tardive ?

EDIT : je conseille un .Save de sécurité après l'ajout de la pièce jointe. Ca m'a parfois joué des tours (principalement lors d'ajouts multiples)

Bonjour Joe, je n'ai que peu de réponses à te donner sur ces points :/, comme dit plus au haut je commence sur la VBA, j'apprends donc par moi même et ce code est un mix de deux solutions trouvés sur Internet et d'un ajout de ma part, le code n'est donc peut-être pas optimal ou très beau à voir pour un initié, mais si tu as mieux ou plus propre je suis preneur. Même de conseils sur les bases et fondamentaux.

Je note ta remarque concernant le save car cela pourra m'aider pour plus tard sur un ajout multiple de PJ.

Pour la liaison tardive, j'ai regardé sur Internet mais je n'ai rien trouvé de pertinent mais si tu peux m'expliquer ? Ou si c'est une piste à la résolution de mon problème je suis preneur.

**halaster08** · 31/01/2017, 16h03

Bonjour,

Ceci marche pour moi: (et c'est du late binding)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim ObjOutlook As Object
txt=" test "
Set ObjOutlook = CreateObject("outlook.application")
    Set oBjMail = ObjOutlook.CreateItem(olMailItem)
    With oBjMail
        .Display
        .To = ""
        .CC = ""
       .Subject = "test" ' l'objet du mail
       .HTMLBody = txt & .HTMLBody
       .Attachments.Add "" & Range("pcjt2")
    End With

edit: nettoyage

**parmi** · 31/01/2017, 16h43

Lorsqu'on travaille en liaison tardive, ça nous évite de créer une référence locale qui pourrait être différente pour d'autres utilisateurs ou encore lorsqu'on change de système.
L'utilisation de CreateObject permet de créer une instance d'Outlook sans devoir créer de référence.
Par contre, il faut faire la même chose avec le MailItem...

Code :

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

Set oBjMail = ObjOutlook.CreateItem(0)      '(olMailItem) olMailItem n'est pas reconnu si on ne crée pas de référence, à moins d'ajouter une constante en début de code

**parmi** · 31/01/2017, 16h45

Envoyé par Aiyolia

Bonjour Parmi,

après un F8 j'ai constaté que lorsque la macro arrive sur la ligne

BodyFormat = olFormatHTML, cela supprime la signature précédemment crée par le display.

Ensuite l'erreur survient sur la ligne

.HTMLBody = "TEST," & "TEST" & .HTMLBody en erreur 287 donc. Peut-être Est-ce dû au fait que la signature précédemment importée s'efface ?

Si tu as une idée, je prends.

Supprime cette ligne qui ne sert à rien, je pense...
HTMLBody sous-entend que le body sera en HTML versus Body qui serait en texte "plain"

**Aiyolia** · 31/01/2017, 17h12

Envoyé par parmi

Supprime cette ligne qui ne sert à rien, je pense...
HTMLBody sous-entend que le body sera en HTML versus Body qui serait en texte "plain"

Hello effectivement cette ligne ne sert à rien mais j'en reviens du coup toujours à cette même erreur qui se déclenche toujours au même endroit :

.HTMLBody = "text" & "blabla" & "bla" & "bla" & "bla" & .HTMLBody

Si j'enlève le & .HTMLBody le code fonctionne mais pas de signature.

Si je le laisse, erreur 287 avec seulement le mail avec la signature.

Je ne comprends pas ...

**parmi** · 31/01/2017, 17h20

Écris-nous ton code comme il est maintenant pour qu'on ait une meilleure idée.

**Aiyolia** · 31/01/2017, 17h26

Envoyé par halaster08

Bonjour,

Ceci marche pour moi: (et c'est du late binding)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim ObjOutlook As Object
txt=" test "
Set ObjOutlook = CreateObject("outlook.application")
    Set oBjMail = ObjOutlook.CreateItem(olMailItem)
    With oBjMail
        .Display
        .To = ""
        .CC = ""
       .Subject = "test" ' l'objet du mail
       .HTMLBody = txt & .HTMLBody
       .Attachments.Add "" & Range("pcjt2")
       .Display
    End With

edit: nettoyage

Hello,

même souci qu'avec le code de parmi, j'ai toujours cette fichue erreur 287 sur ce bout de code & .HTMLBody ...

Je ne vois vraiment pas d'où ça peut venir, l'expression existe sous excel 2010, mes librairies sont à jour et activées avec une version 14.0.

Je ne comprends pas

Revoilà le code avec le seul souci sur le & .HTMLBody

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
 
Sub Sendings()
 
    Dim a As Outlook.MailItem
    Dim olApp As New Outlook.Application
 '
    Dim datRef          As Date
    Dim strPer          As String
 '
    'Determination de la date du jour
 
   datRef = Date
   strPer = ""
   strPer = Format(datRef, "YYYY_MM_DD")
 
    '1ere file Test ------------------------------------------------------------
    'groupecc -------------------------------
 
   Set a = Outlook.CreateItem(olMailItem)
   Set olApp = Nothing
 
    With a
 
       .Display
       .To = "test@test"
       .CC = "test@test"
       .Subject = "TEST"
       .HTMLBody = "<p>test,<p>" & "<p>test<p>" & "<p>test<p>" & .HTMLBody
       .Attachments.Add ("F:\test\Fichier_" & strPer & ".xls")
       .Display
 
    End With
 
End Sub

Invité · 31/01/2017, 17h27

https://www.developpez.net/forums/d1...t/#post7968025

**parmi** · 31/01/2017, 17h50

Comme déjà mentionné, enlève cette ligne

Code :

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

Set olApp = Nothing

Et mets-la à la fin en y ajoutant

Code :

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

Set a = Nothing

**Aiyolia** · 31/01/2017, 18h01

Bonjour c'est fait mais ça ne change pas le problème apparemment.

J'ai toujours cette erreur avec la ligne .HTMLBody

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
Sub Sendings()
 
    Dim a As Outlook.MailItem
    Dim olApp As New Outlook.Application
 '
    Dim datRef          As Date
    Dim strPer          As String
 '
    'Determination de la date du jour
 
   datRef = Date
   strPer = ""
   strPer = Format(datRef, "YYYY_MM_DD")
 
    '1ere file Test ------------------------------------------------------------
    'groupecc -------------------------------
 
   Set a = Outlook.CreateItem(olMailItem)
 
    With a
 
       .Display
       .To = "test@test"
       .CC = "test@test"
       .Subject = "TEST"
       .HTMLBody = "<p>test,<p>" & "<p>test<p>" & "<p>test<p>" & .HTMLBody
       .Attachments.Add ("F:\test\Fichier_" & strPer & ".xls")
       .Display
 
    End With
 
    Set olApp = Nothing
    Set a = Nothing
 
End Sub

**joe.levrai** · 31/01/2017, 18h18

Bonjour,

peux-tu tester ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Sendings()
Dim olApp  As Object
Set olApp = CreateObject("Outlook.Application")
    With olApp.createitem(0)
       .Display
       .To = "test@test"
       .CC = "test@test"
       .Subject = "TEST"
       .HTMLBody = "<p>test,<p>" & "<p>test<p>" & "<p>test<p>" & .HTMLBody
       .Attachments.Add ("F:\test\Fichier_" & Format(Date, "YYYY_MM_DD") & ".xls")
       .Display
    End With
Set olApp = Nothing
End Sub

EDIT : soyons fous, 0 variable !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Sendings()
    With CreateObject("Outlook.Application")
        With .createitem(0)
           .Display
           .To = "test@test"
           .CC = "test@test"
           .Subject = "TEST"
           .HTMLBody = "<p>test,<p>" & "<p>test<p>" & "<p>test<p>" & .HTMLBody
           .Attachments.Add ("F:\test\Fichier_" & Format(Date, "YYYY_MM_DD") & ".xls")
           .Display
        End With
    End With
End Sub

Invité · 31/01/2017, 18h23

Pas grave de toutes les façons concatène HTMLBody avec lui même ca rime a rien!

Code :

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

.HTMLBody = "<p>test,</p><p>test</p><p>test</p>"

**Aiyolia** · 31/01/2017, 18h29

Envoyé par joe.levrai

Bonjour,

peux-tu tester ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Sendings()
Dim olApp  As Object
Set olApp = CreateObject("Outlook.Application")
    With olApp.createitem(0)
       .Display
       .To = "test@test"
       .CC = "test@test"
       .Subject = "TEST"
       .HTMLBody = "<p>test,<p>" & "<p>test<p>" & "<p>test<p>" & .HTMLBody
       .Attachments.Add ("F:\test\Fichier_" & Format(Date, "YYYY_MM_DD") & ".xls")
       .Display
    End With
Set olApp = Nothing
End Sub

EDIT : soyons fous, 0 variable !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Sendings()
    With CreateObject("Outlook.Application")
        With .createitem(0)
           .Display
           .To = "test@test"
           .CC = "test@test"
           .Subject = "TEST"
           .HTMLBody = "<p>test,<p>" & "<p>test<p>" & "<p>test<p>" & .HTMLBody
           .Attachments.Add ("F:\test\Fichier_" & Format(Date, "YYYY_MM_DD") & ".xls")
           .Display
        End With
    End With
End Sub

Hello,

merci mais toujours ce même souci sur cette même ligne ... :/, même en copiant stricto sensu ce code.

**joe.levrai** · 31/01/2017, 18h31

Bon, vu que je n'aurai pas le temps ce soir de suivre la discussion, je vais immédiatement vers le problème exact

Dans le modèle Objet Outlook, il y a des "choses" qui sont protégées quand on les appelle par programmation, par exemple :

- récupérer des informations du carnet d'adresse
- interroger certaines propriétés MAPI
- ....

interroger le HTMLBody en fait partie.

cette sécurité n'est pas là pour faire jolie. Nous parlons d'une application cliente qui gère du mail, porte d'entrée très critique pour tout programme/logiciel malveillant.

Quand tu le fais, Outlook (par défaut) va t'envoyer une alerte de sécurité, et t'obliger à accepter l'action que ton programme veut faire.
Si maintenant ton service informatique a placé la sécurité au dessus des paramètres par défaut, l'action est refusée sans te demander ton avis.
Et là ... Excel n'obtiens pas ce qu'il a demandé à Outlook ... et bon jour l'erreur "définie par l'application ou l'objet" ... ici c'est l'application Outlook

Regarde quand même dans les paramètres de sécurité de ton Outlook si tu as la main pour restaurer l'alerte de sécurité

**Aiyolia** · 31/01/2017, 18h33

Envoyé par dysorthographie

Pas grave de toutes les façons concatène HTMLBody avec lui même ca rime a rien!

Code :

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

.HTMLBody = "<p>test,</p><p>test</p><p>test</p>"

La ça marche mais du coup ça efface la signature comme je disais plus haut.

J'ai aussi regardé le premier lien que tu m'as montré, je vais regarder si je peux réussir à l'appliquer mais j'ai du mal à voir avec quoi remplir les fields après le If.

Comme je l'ai dis je débute, mais je vais regarder ce soir si cela peut être une autre solution.

Merci pour l'aide en tout cas

Macro envoi mail avec signature ET piece jointe [XL-2010]

Macros et VBA Excel

Discussions similaires

Partager

Partager