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