Joseph, try this:

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


Joseph wrote :

Hi.
I've developed an userform. It starts as soon as the user
opens the file. Well, at least it should start that way,
but it doesn't. Instead appears an error:
"Excel has generated an error and will be closed."
So the user never uses what I've designed.
By the way, the users and I have the same OS (2000) and
the same Excel release (2000).
What is wrong? How can I fix it?
Thank you.
J.