Hi keepITcool,

Looks good !
I'll go through it in detail tomorrow - it's 3.10 am here in the UK

Regards and Thanks,

Don

"keepITcool" wrote in message
...

Don..
banged the wrong key and posted my reply to another thread :)

Sub QnD_outlook_draft()
'get outlook
With CreateObject("Outlook.application")
'set drafts folder
.Session.GetDefaultFolder (olFolderDrafts)
'create message
With .CreateItem(olMailItem)
.Subject = "Where's this gone"
'save it in the current folder
.Save
End With
End With

End Sub

--
keepITcool
| www.XLsupport.com | keepITcool chello nl | amsterdam


Don Lloyd wrote :

Hi,

With a great deal of help from Ron de Bruin's and dicks-clicks's
websites I am reasonably happy with sending an Excel sheet as an
attachment.

The problem is that, whilst it is desirable to create e-mails
'on-the-fly', I don't want to send them until they have been
'vetted'. Placing them in Outlook's Drafts Folder would appear to be
an ideal solution. Unfortunately, I don't know how to do this, or
even if it can be done.

If any of you could help in any way I would be more than grateful.

Regards,

Don