Объединить 2 макроса - VBA

Формулировка задачи:

Добрый день! Outlook 2010 Есть 2 макроса, которые по отдельности работают без проблем. Первый автоматически отправляет письмо из папки

                    Листинг программы
                
 
                        
                          
                    
Private Sub Application_Reminder(ByVal Item As Object)
    Dim OutFolder As Folder, NewItem As MailItem
    If Item.Subject = "Рассылка писем" Then
        Item.MarkComplete
        
        'Set OutFolder = GetNamespace("MAPI").Folders("Иванов Иван Иванович").Folders("Расписание")
        Set OutFolder = GetNamespace("MAPI").Folders(CStr(Session.CurrentUser)).Folders("Расписание")
      
        'перебираем письма в указанной папке
        For i = 1 To OutFolder.Items.Count
            'Debug.Print OutFolder.Items(i).Subject     'тема письма
            Set NewItem = OutFolder.Items(i).Copy       'создаем копию письма
            Call NewItem.Send                           'отправляем письмо
        Next i
    End If
End Sub

Но после отправки остаётся копия письма, которую надо удалить

                    Листинг программы
                
Sub DeleteMail()
    Dim OutFolder As Folder, i As Integer, k As Integer
    
    'Set OutFolder = GetNamespace("MAPI").Folders(CStr(Session.Accounts.Item(1))).Folders("Расписание")
    Set OutFolder = GetNamespace("MAPI").Folders(CStr(Session.CurrentUser)).Folders("Расписание")
    k = OutFolder.Items.Count
    
    For i = k To 2 Step -1
        OutFolder.Items(i).Delete
    Next i
End Sub

Каждый из них работает исправно, но второй работает только в ручном режиме, а я хотел это включить в автоматический режим первого макроса. Пытался объединять, делал ссылку на запуск второго макроса из отдельного модуля, но всегда появляются ошибки. Где-то я не догоняю. Помогите, пожалуйста, объединить процессы. Спасибо!

Решение задачи: «Объединить 2 макроса»

textual
                            Листинг программы 
                        
Sub DeleteMail()
 
End Sub