Excel Template With Macro For Sending Mails And Attachment Through Outlook

[bakerman]

Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Target.Column = 9 Then
        If UCase(Target.Value) = "OK" Then
            With CreateObject("Outlook.Application").CreateItem(0)
                .To = Cells(Target.Row, 8).Value
                .Subject = Cells(Target.Row, 4).Value
                .Body = "Dear " & Cells(Target.Row, 3).Value & " " & Cells(Target.Row, 2) & "," & vbLf & vbLf & _
                    "The attachment provided is my final consultation report." & vbLf & vbLf & _
                    "Sincerely yours" & vbLf & vbLf & _
                    "Burzum"
                .Attachments.Add Cells(Target.Row, 7).Value
                .Display '.Send
            End With
        End If
    End If
    
End Sub