Email (inter office) w/o saving to main file.

Posted by Jo on January 10, 2002 2:40 PM

I know this is probably a stupid one. But, we have a file we use for our invoices. Once we've entered the info, we would like to automatically email the form to our secretary so she can distribute the copies. We don't want the information saved in the main file. Is there a way to do this?

Posted by Joe Was on January 10, 2002 3:03 PM

Try this it only works if your workbook is a single sheet, the form you want to send.

Sub SendSheet()

'Sends a copy of single Worsheet as email
Sheet1.Copy
Application.Dialogs(xlDialogSendMail).Show
ActiveWorkbook.Close SaveChanges:=False
End Sub

Build a Form Button on the sheet or assign a hot key to the macro!
Hope this helps JSW.

Posted by Sam S on January 10, 2002 6:19 PM

If you are using Outlook add to
Application.Dialogs(xlDialogSendMail).Show
arg1:="your secretary's email address", arg2:="Report Name"

Don't know if this works for other email programs