Envoi mail par excel

salut le forum
salut bruno,

je ne sait pas si cela va t'aider mais dans un fichier excel j'ai une macro qui me permet d'envoye un mail soit a une liste soit a une personne prédefini, avec le fichier excel en pièce jointe.

Sub Message()
'

'
ActiveWorkbook.HasRoutingSlip = True
With ActiveWorkbook.RoutingSlip
.Recipients = "Dominique LIEGEOIS"
.Subject = "Distribution: Situation financière.xls"
.Message = ""
.Delivery = xlAllAtOnce
.ReturnWhenDone = False
.TrackStatus = True
End With
ActiveWorkbook.Route
End Sub

tu pe toujours essaye de la manipulé pour toi l'envoi ce fait sans aucun avertissement ou demande d'acord.

autrement pour suprimé les boites de dialogues tu pe essayé oCmd.SetWarnings False

jocelyn