Sub Email()
Dim custe As String
Dim toe As String
Dim strRecipients As String
custe = Range("G29")
toe = Range("G34")
Response = MsgBox("Sending to " & custe & " and " & toe, vbOKCancel)
If Response = vbCancel Then Exit Sub
Worksheets("Agreement").Copy
senderID = Worksheets("Agreement").Range("G32").Value
mailsubject = "Apprentice Output Agreement"
ActiveWorkbook.SendMail Recipients:=custe, Subject:=mailsubject
ActiveWorkbook.SendMail Recipients:=toe, Subject:=mailsubject
MsgBox ("Email has been sent, thank you.")
ActiveWorkbook.Close SaveChanges:=False
End Sub
Bookmarks