Envoi mail depuis Excel

[CedGT83]

Bonjour aux lecteurs de ce sujet,

Je suis nouveau ici, j'espère respecter tous les critères afin d'être aidé dans mes requêtes...

Je dispose en effet d'un fichier Excel, comprenant lui-même 3 onglets.

J'ai récemment intégré un bouton lié à une macro que voici:

Sub EnvoiPage()
Dim Destinataires(3) As String, Sujet As String
Dim AccuseReception As Boolean
'Modifier les mails des destinataires
Destinataires(1) = "toto@toto.fr"
Sujet = "Mon cumul affaires Janvier 2013"
AccuseReception = False
'Nom de la feuille (remplacer Recap par celui de la Feuille à envoyer)
ThisWorkbook.Sheets("Cumul affaires").Copy
ActiveWorkbook.SendMail Destinataires, Sujet, AccuseReception
ActiveWorkbook.Close False
End Sub

Celle-ci me permet d'envoyer automatiquement la feuille "Cumul affaires" à l'adresse spécifiée dans la macro.

Ceci dit, je souhaiterais savoir comment :

- créer une référence dans cette macro afin d'aller chercher l'adresse du destinataire au sein d'une cellule
- envoyer non pas seulement la feuille, mais TOUT le classeur

Merci beaucoup de votre aide

 

[kinel]

Re : Envoi mail depuis Excel

Bonjour

j'avais le même soucis, j'ai trouvé la solution sur Sending mail from Excel with CDO

cordialement

Kinel