S
Sebbb
Guest
Bonjour à toutes et à tous,
Ca fait pas mal de temps que je consulte tous les fils qui traitent des envois de mail par macros, mais je ne trouve pas ce que je voudrais faire.
Je dois envoyer mon fichier Excel de facon automatique vers deux destinataires 'fixes' (toujours les mêmes) mais à ca je dois rajouter des destinataires 'variants' (destinataire si concerné). Pour ca,j'ai pensé utiliser un USF avec des checkbox, si checkbox1 cochée alors dest1 est destinataire ...
Pour envoyer un fichier a deux destinataires, j'ai trouvé sur le forum ce code:
ActiveWorkbook.HasRoutingSlip = True
With ActiveWorkbook.RoutingSlip
.Recipients = Array(dest1, dest2)
.Subject = 'Distribution: Ton fichier.xls'
.Message = 'Plan de prévention'
.Delivery = xlAllAtOnce
.ReturnWhenDone = False
.TrackStatus = True
End With
ActiveWorkbook.Route
Quelqu'un pourrait-il m'aider à compléter mon code pour obtenir les fonctionnalités expliquées précédemment?
Merci d'avance pour votre aide.
A bientôt
Sébbb
Ca fait pas mal de temps que je consulte tous les fils qui traitent des envois de mail par macros, mais je ne trouve pas ce que je voudrais faire.
Je dois envoyer mon fichier Excel de facon automatique vers deux destinataires 'fixes' (toujours les mêmes) mais à ca je dois rajouter des destinataires 'variants' (destinataire si concerné). Pour ca,j'ai pensé utiliser un USF avec des checkbox, si checkbox1 cochée alors dest1 est destinataire ...
Pour envoyer un fichier a deux destinataires, j'ai trouvé sur le forum ce code:
ActiveWorkbook.HasRoutingSlip = True
With ActiveWorkbook.RoutingSlip
.Recipients = Array(dest1, dest2)
.Subject = 'Distribution: Ton fichier.xls'
.Message = 'Plan de prévention'
.Delivery = xlAllAtOnce
.ReturnWhenDone = False
.TrackStatus = True
End With
ActiveWorkbook.Route
Quelqu'un pourrait-il m'aider à compléter mon code pour obtenir les fonctionnalités expliquées précédemment?
Merci d'avance pour votre aide.
A bientôt
Sébbb