Copier cellule et coller dans mail Fermé

Question

Bonjour,  

Après avoir passé mon après midi sur les forums, je n'ai pas trouvé de solutions adaptées à mon cas malgré la multitude d'explications plus ou moins complexes. 
Je voudrais à partir d'une macro ouvrir un mail et y coller une sélection de cellule dans le corps de texte. 

J'ai un début de code, sauf que la fin ne fonctionne pas. Le texte entre "" ne s'ajoute pas respectivement dans la case destinataire, objet et corps de texte. Le corps de texte doit donc comporter la sélection de cellule exécutée: 

Sub Mail()    
 Sheets("Mail").Select 
    Selection.AutoFilter Field:=1, Criteria1:="X" 
    Range("B3:C9").Select 
    Selection.Copy 
Set myOlApp = CreateObject("Outlook.Application") 
Set myitem = myOlApp.CreateItem(olMailItem) 
With myitem 
Recipients = "" 
Subject = "" 
Body = "" 
myitem.Display 
End With 

End Sub ' 

Merci de vos réponses. 

Nuts 

Configuration: Windows XP / Firefox 3.6.8

lermite222 · Answer

Bonjour,
Beh là..
Recipients = "" 
Subject = "" 
Body = ""
Y aura jamais rien dedans !!
Du moins si j'ai compris tes explications.
A+

Nuts · Answer

J'ai juste enlevé ce que j'avais mis initialement entre ""   
Mais même par exemple avec:   

Recipients = "Entrez le destinataire"    
Subject = "Entrez un titre"    
Body = "Entrez un texte"   

Rien n'apparait automatiquement sur mon message.   

En plus de ça je voudrais trouver la solution pour que le corps de texte (body) soit composé du "collage" de la sélection programmée grâce à la première partie du code (selection.copy)

Voilà.   

Merci

Copier cellule et coller dans mail

2 réponses

Discussions similaires