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
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