Private Sub CommandButton1_Click()
ActiveWorkbook.SaveAs FileName:=Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) & "-" & Cells(5, 8)
emailRequest
ActiveWorkbook.Close
End Sub

Private Sub CommandButton2_Click()
emailComplete
End Sub


Private Sub CommandButton3_Click()
emailBackOrder
End Sub

Private Sub CommandButton4_Click()
emailOrdered
End Sub

Private Sub Image1_Click()
Static flag1 As Boolean
If Not flag1 Then
    Image1.Picture = LoadPicture("I:\ME\PKGroup\CHECK_MaRK.bmp") 'NOSmile
    flag1 = True
Else
    Image1.Picture = LoadPicture("")
    flag1 = False
End If
Sheets.Select
End Sub

Sub emailRequest()
    Dim RecipArray As Variant
    Dim SubjArray As Variant
    RecipArray = Array(ActiveSheet.ComboBox2.Text, ActiveSheet.ComboBox3.Text)
    SubjArray = "Items To Order: " & Cells(5, 8)
    If Application.MailSystem <> xlNoMailSystem Then
        ActiveWorkbook.SendMail _
            Recipients:=RecipArray, _
            Subject:=SubjArray, _
            returnReceipt:=True
        Application.MailLogoff
    Else
        MsgBox "No mail system installed."
    End If

End Sub
Sub emailOrdered()
    Dim RecipArray As Variant
    Dim SubjArray As Variant
    RecipArray = Array(ActiveSheet.ComboBox3.Text, ActiveSheet.ComboBox4.Text)
    SubjArray = "Items on Order: " & Cells(5, 8)
    If Application.MailSystem <> xlNoMailSystem Then
        ActiveWorkbook.SendMail _
            Recipients:=RecipArray, _
            Subject:=SubjArray, _
            returnReceipt:=False
        Application.MailLogoff
    Else
        MsgBox "No mail system installed."
    End If

End Sub
Sub emailComplete()
    Dim RecipArray As Variant
    Dim SubjArray As Variant
    RecipArray = Array(ActiveSheet.ComboBox3.Text, ActiveSheet.ComboBox4.Text)
    SubjArray = "Order Complete: " & Cells(5, 8)
    If Application.MailSystem <> xlNoMailSystem Then
        ActiveWorkbook.SendMail _
            Recipients:=RecipArray, _
            Subject:=SubjArray, _
            returnReceipt:=False
        Application.MailLogoff
    Else
        MsgBox "No mail system installed."
    End If

End Sub


Sub emailBackOrder()
    Dim RecipArray As Variant
    Dim SubjArray As Variant
    RecipArray = Array(ActiveSheet.ComboBox3.Text, ActiveSheet.ComboBox4.Text)
    SubjArray = "Items on Back Order: " & Cells(5, 8)
    If Application.MailSystem <> xlNoMailSystem Then
        ActiveWorkbook.SendMail _
            Recipients:=RecipArray, _
            Subject:=SubjArray, _
            returnReceipt:=False
        Application.MailLogoff
    Else
        MsgBox "No mail system installed."
    End If

End Sub