T
Tee Shot
Guest
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
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