Sub mySendMail()

     Dim outApp  As Outlook.Application
     Dim outMail As Outlook.MailItem
     Dim cell    As Range
      
     Set outApp = New Outlook.Application
         
     For Each cell In [ДляОтправки!I2:I133]

         If cell <> "" Then
             Set outMail = outApp.CreateItem(olMailItem)
             With outMail
                 .To = cell.Offset(0, -1).Value
                 .Subject = cell.Value
                 .Body = cell.Value
                  
                 .Send
             End With
             Set outMail = Nothing
         End If

     Next
      
     Set outApp = Nothing
      
End Sub

Sub setTimeToRun()
        Application.OnTime TimeSerial(15, 30, 0), "mySendMailByRedemption" '15:30:00
End Sub

Sub mySendMailByRedemption()

        'Перед запуском в редакторе VB в меню Tools\References установить ссылку (включить галку)
        'на библиотеку Redemption Outlook and MAPI COM Library
            
        'взять бесплатную версию для разработчиков можно отсюда:
        'http://www.dimastr.com/redemption/download.htm
            
        'после установки на компьютер она по умолчанию лежит здесь:
        'C:\Program Files\Redemption\Redemption.dll

        Dim outApp      As Outlook.Application
        Dim outMail     As Outlook.MailItem
        Dim redSafeMale As Redemption.SafeMailItem
        Dim cell        As Range
            
        Set outApp = New Outlook.Application
               
        For Each cell In ThisWorkbook.Worksheets("ДляОтправки").Range("I2:I133")
            If cell <> "" Then
                
                Set outMail = outApp.CreateItem(olMailItem)
                With outMail
                    .To = cell.Offset(0, -1).Value
                    .Subject = cell.Value
                    .Body = cell.Value
                End With
                    
                Set redSafeMale = New Redemption.SafeMailItem
                With redSafeMale
                    .Item = outMail
                    .Send
                End With
                    
                Set redSafeMale = Nothing
                Set outMail = Nothing
            End If
        Next
            
        Set outApp = Nothing
            
        'задаем время следующего исполнения этой процедуры - только для целей тестирования!
        Application.OnTime Now + TimeSerial(0, 10, 0), "mySendMailByRedemption" 'время - сейчас + 10 минут
            
End Sub

Dim fso, msg
Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FileExists("d:\Общие\Презентации\город.ppt" )) Then
msg = "файл есть"
Else
msg = "файла нет"
End If