Insertion automatique de la signature par défaut dans OUTLOOK

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour