Control button to create a one time folder, save with date and send work sheet to email

Try using this code.  Not really sure what you want to do with the  AFolderVBA2 Procedure.  I wrote some notes in my comments that should help clarify what the code is doing....

Private Sub CommandButton3_Click()
    'This calls the three procedures in sucession
    Call AFolderVBA2 'Create Folders
    Call SaveSht 'Save Worksheet
    Call SendMail 'Create Email and display it
End Sub

Sub AFolderVBA2()

Dim i As Integer

For i = 1 To 5

    'THis takes the values for Cells A1-A5 on the Order Summary Tab...
    'It doesn't look like this is what you should use...
    'What directories do you want created?

    MkDir "C:\Users\kapo\Desktop\Suisca Catering\Weekly food Order\" & Range("A" & i)
Next i



End Sub

Sub SaveSht()

'Save is a reserved word.  It's best not to name a procedure with this naming convention
'I have altered the procedure name to SaveSht

ActiveWorksheet.SaveAs Filename:="C:\Users\kapo\Desktop\Suisca Catering\Weekly food Order\" & Format(Now(), "DD-MM-YYYY") & ".xlsm", FileFormat _
:=xlOpenXMLWorksheetkMacroEnabled, CreateBackup:=False

End Sub

Sub SendMail()

Dim OutlookApp As Object
Dim OutlookMail As Object
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)

On Error Resume Next

With OutlookMail
    .To = "campboss@suisca.com"
    .CC = ""
    .BCC = ""
    .Subject = "Weekly Order Note"
    .Body = "Good Day to All, Please find Attached order sheet for the week. Please Acknowledge reciept of the attached document, thank you. Best Regards, Camp Boss"
    .Attachments.Add Application.ActiveWorksheet.FullName
    .Display
    '.Send 'uncomment this line if you want to send the email rather than display it...
End With

End Sub