File Save, Close and E-mail

[Matt]

How can i Save cLose and E-mail a Workbook in one touch of button? I
am trying to send it to internal receipients but i am having no joy.
I managed it once but i have forgotten what to do. ANy help would be
much appreicated.

Matt

 

[Grochu]

Connect a macro with a button. i.e. a macro saved in an add-in


Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = ...
.CC = ...
.BCC = ...
.Subject = ...
.Body = ...
.Attachments.Add [full path of thhe Workbook you want to send]
.Send
End With

or use:

expression.SendMail(Recipients, Subject, ReturnReceipt)

to save and close:
activeworkbook.close true

or just use file > send to > send as attachement

Tomek

 

[superdee]

How can i Save cLose and E-mail a Workbook in one touch of button? I
am trying to send it to internal receipients but i am having no joy.
I managed it once but i have forgotten what to do. ANy help would be
much appreicated.

Matt

First send the email using the sendmail method.

Then close the file saving it as you do so.

It's all in the VBA helpfiles

Superdee
superdee