insertion signature outlook

Version imprimable

Bonjour,

je viens de sortir de mon oeuf et découvre le monde du VBA. ;)

après plusieurs semaine, j'ai réussi un faire un code pour envoyer mon tableau excel vers un nouveau message de outlook. Je suis assez satisfait mais je souhaiterai mettre ma signature automatiquement dans mon nouveau message. et là je coince

:?

auriez-vous une idée ? voici mon code :

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
37
 
Sub envoi_mail()
 
 
    Dim rng As Range
    Dim OutApp As Object
    Dim OutMail As Object
 
    With Application
        .EnableEvents = False
        .ScreenUpdating = False
    End With
 
    Set rng = Nothing
    Set rng = ActiveSheet.Range("A8:F20")   'On définit la plage de données à convertir en HTML
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    OutMail.display 'affiche le message avec la signature par défaut
    OutMail.to = mailto
 
    On Error Resume Next
    With OutMail
        .to = Range("B1")
        .CC = Range("B5")
        .BCC = Range("")
        .Subject = Range("B2")
        .HTMLBody = RangetoHTML(rng) 'On appelle la fonction RangetoHTML qui va convertir la plage en données HTML
        .display
        .Save '.Save pour sauvegarder le mail dans les brouillons, .send pour l'envoyer'
    End With
    On Error GoTo 0
    With Application
        .EnableEvents = True
    End With
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

un tout grand merci pour votre indulgence :D car j'ai déjà vu que ce sujet a déjà été traité mais ça n'a pas résolu mon problème

29/01/2019, 14h59
joe.levrai

Bonjour,

tu trouveras ton bonheur ici probablement

https://www.developpez.net/forums/d1...-piece-jointe/

concaténer le HtmlBody avec lui-même quand tu insères ton rng OU allez chercher directement la signature stockée sur le PC

un tout grand merci. je viens de comprendre.

je devais concatener le corps de mon message, ma signature et ensuite htmlbody :ptdr::ptdr::ptdr:

Voici mon code :

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
37
 
Sub envoi_mail()
 
 
    Dim rng As Range
    Dim OutApp As Object
    Dim OutMail As Object
 
    With Application
        .EnableEvents = False
        .ScreenUpdating = False
    End With
 
    Set rng = Nothing
    Set rng = ActiveSheet.Range("A8:F20")   'On définit la plage de données à convertir en HTML
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    OutMail.display 'affiche le message avec la signature par défaut
    OutMail.to = mailto
 
    On Error Resume Next
    With OutMail
        .to = Range("B1")
        .CC = Range("B5")
        .BCC = Range("")
        .Subject = Range("B2")
        .HTMLBody = RangetoHTML(rng) & "<br>" & .HTMLBody 'On appelle la fonction RangetoHTML qui va convertir la plage en données HTML et on ajoute la signature
        .display
        .Save '.Save pour sauvegarder le mail dans les brouillons, .send pour l'envoyer'
    End With
    On Error GoTo 0
    With Application
        .EnableEvents = True
    End With
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

moi aussi

Citation:
Envoyé par jdebontrid
Bonjour,

je viens de sortir de mon oeuf et découvre le monde du VBA. ;)

après plusieurs semaine, j'ai réussi un faire un code pour envoyer mon tableau excel vers un nouveau message de outlook. Je suis assez satisfait mais je souhaiterai mettre ma signature automatiquement dans mon nouveau message. et là je coince

:?

auriez-vous une idée ? voici mon code :
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 37 Sub envoi_mail() Dim rng As Range Dim OutApp As Object Dim OutMail As Object With Application .EnableEvents = False .ScreenUpdating = False End With Set rng = Nothing Set rng = ActiveSheet.Range("A8:F20") 'On définit la plage de données à convertir en HTML Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) OutMail.display 'affiche le message avec la signature par défaut OutMail.to = mailto On Error Resume Next With OutMail .to = Range("B1") .CC = Range("B5") .BCC = Range("") .Subject = Range("B2") .HTMLBody = RangetoHTML(rng) 'On appelle la fonction RangetoHTML qui va convertir la plage en données HTML .display .Save '.Save pour sauvegarder le mail dans les brouillons, .send pour l'envoyer' End With On Error GoTo 0 With Application .EnableEvents = True End With Set OutMail = Nothing Set OutApp = Nothing End Sub
un tout grand merci pour votre indulgence :D car j'ai déjà vu que ce sujet a déjà été traité mais ça n'a pas résolu mon problème
Oui c'est possible de changer la signature par défaut. (getboiler ect)
Mais.... si la signature comporte des images celles-ci ne sont pas affichées dans le corps du mail. Personne n'a vraiement trouvé la solution

22/05/2022, 22h14
TonyNiort79
Citation:

Envoyé par Appli Innet

Oui c'est possible de changer la signature par défaut. (getboiler ect)
Mais.... si la signature comporte des images celles-ci ne sont pas affichées dans le corps du mail. Personne n'a vraiement trouvé la solution

Bonjour à tous
pour ajouter une image, il suffit de concaténer avec le chemin et le nom de l'image comme ci-dessous
Code:

1 2 .HTMLBody = xxxxx & "<img src='C:\CheminDeLimage\image.png'></img></html>"