Discussion :

[Aiyolia]

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]

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]

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]

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]

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]

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

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.

[parmi]

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 = "<p>TEST,<p>" & "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]

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 = "<p>text<p>" & "<p>blabla<p>" & "<p>bla<p>" & "<p>bla<p>" & "<p>bla<p>" & .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 ...