When the user clicks on the OK button you need to add the
xldialogsendmail ... ie.
ans = msgbox("What you want to say", vbyesno)
if ans = vbyes then
Application.Dialogs(xlDialogSendMail).Show
"), "NameofDocument"
end if

*** Sent via Devdex http://www.devdex.com ***
Don't just participate in USENET...get rewarded for it!