creer un mail dans les brouillons d'outlook à partir de "ActiveSheet.MailEnvelope"

[fredl]

Bonjour à tous,

je souhaite modifier le code ci dessous (qui envoi n fois le contenu changeant d'une feuile Excel par mail: ''With ActiveSheet.MailEnvelope'') afin que ce dernier, plutôt que d'être envoyé( .Item.send), soient plutot stocké dans les brouillons d'outlook en non lu...
(création de n mails!)

J'ai testé le :


.Item.save
ActiveWorkbook.EnvelopeVisible = False

à la place de :
.Item.send

sans succes(soit, cela crée max 1 mail, soit cela plante...
Merci d'avance pour votre aide!!!

Frédéric
******************************Code****************************
Sub CreationMailNonLuDansBrouillonsOutlook()


Dim VnomOnglet As String

Range("Bnoms").Select

For Each vcell In Range("Bnoms").SpecialCells(xlCellTypeVisible)

Selection.AutoFilter Field:=1, Criteria1:=vcell.Value
VN°ligne = vcell.Row

'envoi mail
ActiveSheet.Range("a1:t" & vcell.Row).Select ' la plage de cellules à envoyer
'copie de ces données dans une feuille vierge pour envoi
Selection.Copy
Sheets("mail").Select
Range("A1").Select
ActiveSheet.Paste

With ActiveSheet.MailEnvelope
'message année en cours
.Introduction = "coucou"
.Item.to = "fl@cea.fr"
.Item.Subject = "RELANCE 02/2014"

.Item.send


'TESTE SANS SUCCES A LA PLACE DE ".Item.send" :
'.Item.save
'ActiveWorkbook.EnvelopeVisible = False


End With
Sheets(VnomOnglet).Select
Range("A1").Select
Next
Selection.AutoFilter

MsgBox "Les mails sont dans vos brouillons outlook!"
End Sub