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




.