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

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