Private Sub Workbook_BeforeClose(Cancel As Boolean)

    Dim 이메일 As Range
    Dim 메시지 As String
    
    메시지 = "메일을 발송하려면 <예> 버튼을 클릭하세요!"
    
    If MsgBox(메시지, vbYesNo, "견적서 발송") = vbYes Then
        
        Set 이메일 = Range("M5")
        
        If IsEmpty(이메일) = False Then
        
            ActiveSheet.Copy
            
            With ActiveWorkbook
                .SaveAs Filename:=ThisWorkbook.Path & "\견적서.xlsx"
                .SendMail Recipients:=이메일.Value, _
                          Subject:="견적서 발송합니다."
            
                .Close
            End With
            
            Kill ThisWorkbook.Path & "\견적서.xlsx"
        
        End If
        
    End If

End Sub