M
Melisa Hutchins
Hi
I have a work book or spread sheet, when filled out it must be sent t
a supervisor for verification or approval, After approval it needs t
be sent to another person. I want to be able to do this in vba code
The code I am currently using to send to one person is below. Ca
someone please help me?
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Mail_workbook_Outlook_1()
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = "(e-mail address removed)"
.CC = ""
.BCC = ""
.Subject = "Flagged Order"
.Body = "New Flagged Order"
.Attachments.Add ActiveWorkbook.FullName
.Send
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Su
I have a work book or spread sheet, when filled out it must be sent t
a supervisor for verification or approval, After approval it needs t
be sent to another person. I want to be able to do this in vba code
The code I am currently using to send to one person is below. Ca
someone please help me?
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Mail_workbook_Outlook_1()
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = "(e-mail address removed)"
.CC = ""
.BCC = ""
.Subject = "Flagged Order"
.Body = "New Flagged Order"
.Attachments.Add ActiveWorkbook.FullName
.Send
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Su