Macro envoi mail avec signature ET piece jointe

Version imprimable

Voir 40 message(s) de cette discussion en une page

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:

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 = "TEST," .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

Bonjour,

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

Code:

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

30/01/2017, 17h32
Aiyolia

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.
30/01/2017, 17h53
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 ?
30/01/2017, 18h21
joe.levrai
Bonjour,

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

1 2 Set OutMail = Nothing Set OutApp = Nothing
Pourquoi partir de Outlook au lieu de olApp pour créer le Mailitem ?

Code:

Set a = Outlook.CreateItem(olMailItem)

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

Code:

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)
31/01/2017, 14h21
Aiyolia
Citation:

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.
Citation:
Envoyé par joe.levrai

Bonjour,

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

Code:

1 2 Set OutMail = Nothing Set OutApp = Nothing

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

Code:

Set a = Outlook.CreateItem(olMailItem)

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

Code:

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.

Bonjour,

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

Code:

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

31/01/2017, 15h43
parmi

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:

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
31/01/2017, 15h45
parmi

Citation:

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"
31/01/2017, 16h12
Aiyolia

Same problem

Citation:

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 ...
31/01/2017, 16h20
parmi

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

Citation:

Envoyé par halaster08

Bonjour,

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

Code:

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:

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

31/01/2017, 16h27
Invité

https://www.developpez.net/forums/d1...t/#post7968025
31/01/2017, 16h50
parmi

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

Code:

Set olApp = Nothing

Et mets-la à la fin en y ajoutant

Code:

Set a = Nothing

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

J'ai toujours cette erreur avec la ligne .HTMLBody

Code:

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

Bonjour,

peux-tu tester ceci

Code:

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:

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

31/01/2017, 17h23
Invité

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

Code:

.HTMLBody = "test,testtest"

Citation:

Envoyé par joe.levrai

Bonjour,

peux-tu tester ceci

Code:

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:

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.

31/01/2017, 17h31
joe.levrai

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é
31/01/2017, 17h33
Aiyolia

Citation:

Envoyé par dysorthographie

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

Code:

.HTMLBody = "test,testtest"

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

Voir 40 message(s) de cette discussion en une page