Insertion automatique de la signature par défaut dans OUTLOOK

MELSAM

XLDnaute Nouveau
Bonjour à tous,

Je cherche à insérer la signature par défaut dans OUTLOOK. Est-ce que quelqu'un sait comment ?
Merci à l'avance !

Private Sub ENVOYER_Click()

Application.ScreenUpdating = False

ActiveSheet.Range("B100").CurrentRegion.Select

ActiveWorkbook.EnvelopeVisible = True

With ActiveSheet.MailEnvelope
If Application.CountA(Range("B101:B110")) > 1 Then
.Introduction = "SVP, PRÉPARER LES PASSES DE TAXI SUIVANTES."
Else
.Introduction = "SVP, PRÉPARER LA PASSE DE TAXI SUIVANTE."
End If
.Item.To = "SDF@HOTMAIL.COM"
.Item.Subject = "--- PASSE DE TAXI ---"
.Item.Send
End With

Application.ScreenUpdating = True

Range("B100").Select

End Sub
 

MELSAM

XLDnaute Nouveau
Re : Insertion automatique de la signature par défaut dans OUTLOOK

Oui je le sais et c'est pour cette raison que je pose la question sur un forum EXCEL. C'est une macro dans EXCEL mais le trouble que j'ai , c'est que la signature n'est pas là.
 

Discussions similaires

Statistiques des forums

Discussions
312 779
Messages
2 092 047
Membres
105 169
dernier inscrit
izarabooki