Discussion :

[unam_01]

Bonjour à tous,

Je viens vous poser une colle que je n'arrive pas à résoudre:

Via excel je génère un mail automatique avec pièce jointe, et je souhaite sélectionner une signature outlook qui n'est pas ma signature par défaut, voici mon code:

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
 
Dim ObjOutlook As Outlook.Application
Dim oBjMail As Outlook.MailItem
Dim rg As Range
Dim strbody As String
Dim sPath As String
Dim SigString  As String
 
    Set ObjOutlook = CreateObject("Outlook.Application")
    Set oBjMail = ObjOutlook.CreateItem(0)
 
Set rg = ThisWorkbook.Worksheets("Mail").Range("A6:E15")
 
SigString = Environ("appdata") & "\Microsoft\Signatures\Test Signature.htm"
 
If Dir(SigString) <> "" Then
    Signature = GetBoiler(SigString)
Else
    Signature = ""
End If
 
strbody = " Bonjour " 
 
    With oBjMail
        .Display
        .To = "test@test.com"
        .Subject = "EMAIL" & mois & " " & jour & " " & annee & ""
        .HTMLBody = strbody & "<br><br>" & RangetoHTML(rg) & "<br><br>" & Signature
        .Attachments.Add "Z:\PJ.pdf"
        .Display
    End With
 
Set oBjMail = Nothing
Set ObjOutlook = Nothing

Le problème est que lorsque je choisi la signature "Test Signature" l'image de la signature ne s'affiche pas, j'ai le droit au carré blanc avec la croix rouge...
Ensuite si je décide d'utiliser ma signature par défaut en utilisant le code suivant (ou un en désignant "Test Signature" comme signature par défaut), l'image s'affiche correctement... ce qui ne m'arrange pas car je souhaite utiliser cette création de mail toute les semaines et donc je ne veux avoir à sélectionner ma signature par défaut avant de lancer ma macro

Code :

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

1
2
 
.HTMLBody = strbody & "<br><br>" & RangetoHTML(rg) & "<br><br>" & .HTMLBody

Merci de votre aide

[patricktoulon]

bonjour
je vois que ma fonction RangetoHTML fait son chemin

le probleme je crois c'est que tu utilise bodyhtml ce qui implique que si la signature n'est pas dedans elle n'est plus prise encompte
mais je n'en suis pas sur n'utilisant pas outlook mais CDO

[unam_01]

Merci Patrick pour cette précieuse fonction RangetoHTML !

Sinon pour contourner le problème, quelle macro utiliser pour changer ma signature par défaut juste le temps de la rédaction du mail ?

Merci

[patricktoulon]

j'avoue que je n'en ai aucune idée comme je te l'ai dis je n'utilise pas outlook
mais par deduction logique tout elements constituant le corps du message y compris ta signature doit etre entre les balises "HTML"
peut etre ne devrait tu pas utiliser bodyhtml mais body tout court ceci te suppriment malheureusement la posibité de formater ton ton message

je suis en train de travailler sur un userform pour mail (une nouvelle version encore une fois ) mais avec CDO
elle devrait pouvoir donner la possibilité d'envoyer du texte(formaté couleur,font ,etc...)
et la possibilité de joindre une signature (un logo,ou une image style baniere ) sans passer par un serveur distant
et toujours aussi la possibilité dajouter une plage par la fonction précédement citée

bref j'ai le tout mais séparés et c'est au point ,si tu es patient dans les contribs tu trouvera ma prochaine version
alors patience c'est pas pour aujourd'hui