Bonjour abdernino,
Pour l'envoi du mail en automatique, normalement, il faut juste remplacer dans :
With OutMail
.To = Destinataire
.CC = ""
.BCC = ""
.Subject = Sujet
.Body = "Bonjour," & vbNewLine & "Veuillez trouver....,& vbNewLine &" & vbNewLine & "Cordialement."
.Attachments.Add Destwb.FullName
.display
'.Send
End With
Le
.display
par le
.Send
Chez moi, ça envoi bien les mails sans avoir d'actions de ma part.
Cordialement,