Email workbook without saving

  • Thread starter Thread starter Todd
  • Start date Start date
T

Todd

Using code similar to this, how can I email a workbook
that has not been saved so the recipient willbe able to
view what was included in the workbook. Thanks for all
the help with this.

Private Sub CommandButton1_Click()
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)
With OutMail
.To = "(e-mail address removed)"
.CC = ""
.BCC = ""
.Subject = "BankPro Rate Maintenance Form"
.Body = "Please send email confirmation to sender
that the maintenance form was received. "
.Attachments.Add ActiveWorkbook.FullName
.Send
End With
Set OutMail = Nothing
Set OutApp = OutApp.CreateItem(0)

End Sub
 
Back
Top