Insérer Signature Outlook a mes mails

bonjour,

j'utilise un code VBA qui me permet d'envoyer des mail avec Outlook avec pièces jointes mais ma signature Outlook n'apparait pas. il ya t'il une possibilité pour que ma signature apparaisse automatiquement ? je vous joins le code que j'utilise.

Merci pour votre aide

Sub Sheet_ToMail()
  Dim sPath As String, sFileName As String, ShtName As String
  Dim OutObj As Object, Email As Object

  sPath = Environ("TEMP") & "\"
  sFileName = "FORMULAIRE.xlsx"
  ' Copier la feuille dans un nouveau classeur
  Sheets(7).Copy
  ' Avec le classeur actif
  With ActiveWorkbook
    ' Copier/coller les valeurs de la feuille pour Žviter les liaisons
    With .Sheets(1).Cells
      .Copy
      .PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    End With
    ' Sauvegarder le classeur actif
    .SaveAs sPath & sFileName
    ' Le fermer
    .Close
  End With
  ' CrŽer le mail
  Set OutObj = CreateObject("Outlook.Application")
  Set Email = OutObj.CreateItem(0)
  With Email
    .Display
    .To = Range("a5")
    .Subject = Range("B8")
    .Body = Range("b10")
    .Attachments.Add sPath & sFileName
    '.Send
  End With
  ' On efface les variables objet
  Set Email = Nothing: Set OutObj = Nothing
  ' On supprime ou non le fichier Excel
  Kill sPath & sFileName
End Sub

Bonjour

Je pense que vous êtes sous Excel MAC ... si oui, vous devriez le mentionner dans votre profil au lieu de Excel Français (en quelque sorte la langue n'apporte rien pour celui qui vous lit)

Par rapport à votre demande, je dirais "hum....". C'est pas un trop bonne idée d'aller mettre sa signature dans un courrier mail. On est jamais trop prudent donc j'éviterais.
Quoi qu'il en soit regardez ce lien qui devrait répondre à votre demande --> VBA Envoi mail outlook avec signature

Si ok -->

Cordialement

merci du conseil !

Rechercher des sujets similaires à "inserer signature outlook mes mails"