Sendmail as long as all proper fields are filled out

[sb003848]

I'm trying to create a macro then when launched, it will look in the following cells and if one or more is not filled out, then the macro would stop giving an error message "Please fill all fields before submiting your request."!!!

Cells needing to be filled out are:
C6 - C7 - C8 - C9 - H6 - H7 - H8 - H9 - D14 - F20 - F21 - E27 - E28 - E29 - E30 - E31 - E32 - E33 - E34 - E35 - E36 - H27 - H28 - H29 - H30 - H31 - H32 - H33 - H34 - H35 - H36 -A41

If all the cells are filled out, then the entire workbook would be sent to:

TO: Info found in cell C9
CC: email1@email1.com; email2@email2.com
Subject: Reservation of kiosk

Thanks in advance for your assistance!

 

[bensonsearch]

Hi, something along these lines, adjust as needed

Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String
    Dim user As Variant
    Dim users as string
 
with thisworkbook.sheets("Sheet1")
if .range("C6:C9").value = "" then
msgbox ("Error")
exit sub 
elseif .range("H6:H9").value = "" then
msgbox ("Error")
exit sub
elseif .range("D14").value = "" then
msgbox ("Error")
exit sub
elseif .range("F20:F21").value = "" then
msgbox ("Error")
exit sub
elseif .range("E27:E36").value = "" then
msgbox ("Error")
exit sub
elseif .range("H27:H36").value = "" then
msgbox ("Error")
exit sub
elseif .range("A41").value = "" then
msgbox ("Error")
exit sub
end with
else
 
 
        user = "[EMAIL="email1@email1.com"]email1@email1.com[/EMAIL];" & "[EMAIL="email2@email2.com"]email2@email2.com[/EMAIL];"
        users = thisworkbook.sheets("Sheet1").range("C9").value
 
        Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    strbody = 'whatever the body is
    On Error Resume Next
    With OutMail
        .To = users
        .CC = user
        .BCC = ""
        .Subject = "Enter subject"
        .body = strbody
        'You can add a file like this
        '.Attachments.Add ("C:\test.txt")
        .Send   'or use .Display
    End With
    On Error GoTo 0
    Set OutMail = Nothing
    Set OutApp = Nothing
   end if