Bonjour,
J'ai fais une macro pour envoyer des mails avec excel, mais quand je tape un message sur .message, j'ai une erreur. Apparement le nombre de caractère est limité.
Y a t'il un moyen de contourné ça ?
Sub Envoie_mail(destinataire)
On Erreur GoTo Erreur_envoie
ActiveWorkbook.HasRoutingSlip = True
With ActiveWorkbook.RoutingSlip
ActiveWorkbook.HasRoutingSlip = True
.Recipients = destinataire
.Subject = "Evaluations " & equipe
.Message = "Bonjour " & Chr$(13) & Chr$(10) & "" & Chr$(13) & Chr$(10) & "Comme convenu, vous trouverez ci joint la liste des salariés présents au 31 août 2004 pour vous aider à gérer les RDV des entretiens d'évaluation et/ou d'objectifs." & Chr$(13) & Chr$(10) & "" & Chr$(13) & Chr$(10) & "La liste ne tient pas compte des périodes de congés sabatique, sans soldes, création d'entreprise, parental et maladie de plus de 6 mois entre 2003 et 2004" & Chr$(13) & Chr$(10) & "" & Chr$(13) & Chr$(10) & "Veuillez nous contacter dans ce cas particulier" & Chr$(13) & Chr$(10) & "Cordialement" & Chr$(13) & Chr$(10) & "David" & Chr$(13) & Chr$(10) & "" & Chr$(13) & Chr$(10) & "" & Chr$(13) & Chr$(10) & "" & Chr$(13) & Chr$(10) & "" & Chr$(13) & Chr$(10) & ""
.Delivery = xlOneAfterAnother
.ReturnWhenDone = False
.TrackStatus = False
End With
ActiveWorkbook.Route
Exit Sub
Erreur_envoie: MessageErreur3 = MsgBox("UNE ERREUR C'EST PRODUITE LORS DE L'ENVOI D'UN FICHIER", vbExclamation, "APPLICATION EVALUATION")
End
End Sub
Merci pour vos réponses.
Tee shot