Signature Outlook par défaut différents utilisateurs

Bonjour,

J'utilise cette macro pour envoyer un mail avec une pièce jointe et insérer un fichier.

Mais je n'arrive pas à insérer la signature par défaut qui est présente sur Outlook. Il faut savoir que nous serons plusieurs utilisateurs à envoyer ce mail d'où différentes signatures nécessaires. Par ailleurs, les signatures contiennent des images, comment les intégrer?

Sub SendWithAtt()
' Nécessite la référence : Microsoft Outlook 1x Object Library
Dim olApp As Outlook.Application
Dim olMail As MailItem
Dim CurFile As String
Set olApp = New Outlook.Application
Set olMail = olApp.CreateItem(olMailItem)
' "C:..................pdf "
CurFile = ThisWorkbook.Path & "\" & "......Pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=CurFile, _
Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
With olMail
.To = " "
.CC = " "
.Subject = "Devis"
.Body = "Vous trouverez ci-joint le fichier PDF ..."
.Attachments.Add CurFile
'.Attachments.Add "C:.......pdf"
.Display '.Send
End With
MsgBox "Merci de vérifier que le message apparait dans -messages envoyés- dans votre messagerie OUTLOOK."

' Effacer les variables objets
Set olMail = Nothing
Set olApp = Nothing
End Sub

j'ai efface les chemins d'accès.

merci de votre aide

Bonsoir dodolala

Tout simplement en mettant "Display" au début de la procédure

With olMail
.Display
.To = " "
.CC = " "
.Subject = "Devis"
' Ajouter au corps le texte souhaité ainsi que l'existant (signature)
.Body = "Vous trouverez ci-joint le fichier PDF ..." & .Body
.Attachments.Add CurFile
'.Attachments.Add "C:.......pdf"
End With

NOTA : Merci de mettre votre code entre balises la prochaine fois SVP, pour ça utilisez le bouton </>

A+

Bonsoir,

Merci bcp pour votre réponse.

L'image ne s'affiche pas ou plutôt elle apparaît puis disparaît, sauriez-vous comment elle peut être intégrée dans la signature?

Merci pour votre aide

Re,

Je n'avais pas fait attention à cette histoire d'image, alors essayer plutôt

With olMail
  .BodyFormat = olFormatHTML 
  .Display
  .To = " "
  .CC = " "
  .Subject = "Devis"
  ' Ajouter au corps le texte souhaité ainsi que l'existant (signature)
  .HTMLBody = "Vous trouverez ci-joint le fichier PDF ..." & .HTMLBody
  .Attachments.Add CurFile
  '.Attachments.Add "C:.......pdf"
End With

A+

Merci beaucoup pour votre aide.

C'est parfait!

Cool

Bonjour,

Je me permets de vous solliciter à nouveau.

Concernant la macro ci-dessous permettant l'envoi d'un mail à partir de la messagerie Outlook, est ce possible de l'adapter à la version Web ?

Cordialement,

Bonjour,

La réponse est simple, non

Bonne chance