XL 2010 Générer mail avec corps de mail / destinataire et PJ

Alghorn

XLDnaute Junior
Bonjour à tous !

J'ai beau écumer les fils de discussions, j'arrive à trouver des solutions pour l'un ou pour l'autre mais jamais quelque chose qui compile l'ensemble de ce que je souhaite faire.
Aujourd'hui je suis capable de générer un mail dans lequel j'insère une PJ tirée d'un onglet de mon classeur.
En revanche je suis incapable d'intégrer dans le corps du mail une plage de cellule définie (comportant texte et tableau) se trouvant dans un autre onglet ("Mail").
De plus, en fonction de la société vers laquelle j'envoi ce mail, j'aimerai que la liste des destinataire s'insère également...Sauf que là je ne sais plus faire.

Voici un morceau de mon code actuel :

VB:
 chemin = Environ("userprofile") & "\desktop"
    fichier = chemin & "\" & "Refus " & critere & ".xlsx"
 
    ThisWorkbook.Sheets(critere).Copy
    ActiveWorkbook.SaveAs Filename:=fichier
 
    Dim MonOutlook As Object
    Dim MonMessage As Object
 
    Set MonOutlook = CreateObject("Outlook.Application")
    Set MonMessage = MonOutlook.CreateItem(0)
 
        MonMessage.To = ""
        MonMessage.Cc = ""
        MonMessage.Subject = ""
        MonMessage.Body = ""

        MonMessage.Attachments.Add ActiveWorkbook.FullName
        MonMessage.display
 
    ActiveWorkbook.Close

 Kill fichier

Merci à tous ceux qui se pencheront sur mon problème pour leur précieuse aide :)
 

Discussions similaires

Statistiques des forums

Discussions
311 710
Messages
2 081 781
Membres
101 817
dernier inscrit
carvajal