Envoyer un message Outlook à partir d'une macro Excel

[Fab]

Bonjour,
J'ai trouvé dans un magasine d'informatique une macro pour excel permettant d'envoyer le classeur actif par e-mail.
J'ai retapé le code (sans erreur de frappe je pense). Les adresses e-mail des destinataires ont été définies (sous "Adresses").
Mais lorsque j'execute la macro, elle plante sur la ligne.
.HasRoutingSlip = True
J'ai Excel 97, est-ce le problème ?
Merci


Sub emailing()
Dim Titre, NomFichier, Message, Sujet: Dim cell, i, Destinat
Titre = ActiveWorkbook.BuiltinDocumentProperties("Title")
NomFichier = ActiveWorkbook.Name
Message = "Bonjour" & Chr(13) & "Veuillez trouver ci-joint la dernière version du classeur : " & Titre
Sujet = "[" & NomFichier & "] :" & Date
ReDim Destinat(Range("adresses").Cells.Count)
i = 0
For Each cell In Range("adresses").Cells
i = i + 1
Destinat(i) = cell.Value
Next cell
With ActiveWorkbook
' Commence par désactiver un précédent routage
If .HasRoutingSlip Then
ActiveWorkbook.RoutingSlip.Reset
End If
.HasRoutingSlip = True
With .RoutingSlip
.Subject = Sujet
.Message = Message & Chr(13) & Chr(13)
.Recipients = Destinat
.Delivery = alAllAtOnce
End With
.Route
End With

End Sub

 

[EMG]

Salut Fab,

Je mis un fichier dans ta bal essaie le et dis moi comment cela ce comporte

@+ gérard