Tim.. iso .Save and .Move do .Send or .Display so the user can press
the send button.

Tons of info on www.rondebruin.nl


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


Tim wrote :

I have used your code to help with one of my databases.
Thanks for the info. It creates the draft email with
attachment.

How do you have the code send the email also?

-----Original Message-----
Don

next time hit a REPLY button to stay in original thread,
else i'll never notice.. just pure chance i saw this post.

.Save
.Move .Parent.Session.GetDefaultFolder
(16) 'olFolderDrafts
End With
End With


change to:

.Save
If ObjPtr(.Parent.Session.Application.ActiveExplorer) =
0 Then
.Move .Parent.Session.GetDefaultFolder
(16) 'olFolderDrafts
End If
End With

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




.