Bonjour,
Lorsque j'utilise la fonction "Envoyer rapport" un message d'alerte s'ouvre en même temps que Outlook. je souhaiterais que ce message d'alerte se valide automatiquement et que mon mail soit prêt à être éditer.
J'essaye d'utiliser la fonction Application.DisplayAlerts = False sans succès
Je vous remercie grandement par avance
Lorsque j'utilise la fonction "Envoyer rapport" un message d'alerte s'ouvre en même temps que Outlook. je souhaiterais que ce message d'alerte se valide automatiquement et que mon mail soit prêt à être éditer.
J'essaye d'utiliser la fonction Application.DisplayAlerts = False sans succès
VB:
Sub envoi_mail()
'variables
Dim MaMessagerie As Object
Dim MonMessage As Object
Dim MaSignature As String
'affectation des variables
Set MaMessagerie = CreateObject("Outlook.application")
Set MonMessage = MaMessagerie.CreateItem(0)
MonMessage.Display
MaSignature = MonMessage.htmlbody
'message
With MonMessage
.To = Range("rapport!AI18")
.CC = Range("rapport!AI19")
.Subject = "Rapport de production de nuit du " & Range("r3")
.htmlbody = "<HTML><BODY><span style=""color:#000000"">Bonjour,</span style=""color:#000000"">" & _
"Bonne journée, " & "<br><br>" & Range("rapport!ai16") & _
MaSignature & _
.Display
Application.DisplayAlerts = False
'je ne sais pas quoi inscrire
Application.DisplayAlerts = True
End With
End Sub
Je vous remercie grandement par avance