Excel VBA Макросы: Макрос для автоматической отправки сообщения через Outlook.

[Бейсболистка]

Помогите с добавлением кода для ниже указанного макроса.
Необходим код для автоматической отправки сообщения через Outlook с текстом сообщения "срок", исполнителю при внесении в текущий лист плановой даты в столбец "I", начиная с ячейки "I9". Эл. адрес исполнителя: Ivanov@mail.ru.

Макрос

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim trgt_rng As Range, out_rng As Range
    If Target.CountLarge > 1 Then Exit Sub
    Set trgt_rng = Range([AC9], [AC9].End(xlDown))
    If Not Intersect(trgt_rng, Target) Is Nothing Then
        If Target.Value <> "" Then
            Set out_rng = Worksheets("архив").Cells(Rows.Count, "A").End(xlUp).Offset(1)
            Target.EntireRow.Copy out_rng
            Target.EntireRow.Delete out_rng
        End If
        Exit Sub
        End If
    Set trgt_rng = Range([AA9], [AA9].End(xlDown))
    If Not Intersect(trgt_rng, Target) Is Nothing Then
        If Target.Value = "Нет" Then
            Set out_rng = Worksheets("Реестр без КВЛ").Cells(Rows.Count, "A").End(xlUp).Offset(1)
            Target.EntireRow.Copy out_rng
            Target.EntireRow.Delete out_rng
        End If
        Exit Sub
    End If
End Sub

[свернуть]

[Администратор]

Макрос в модуле листа.

[вложение удалено администратором]

[Бейсболистка]

Отлично, все работает, спасибо большое.