Option Explicit

Sub Main()

    Dim inx As Integer                          'Ñ÷åò÷èê öèêëà
    Dim outLookApp As New Outlook.Application   'Îòêðûâàåì ýêçåìïëÿð êëàññà ïðèëîæåíèÿ Outlook
    Dim sendMail As Outlook.MailItem            'Ñîçäàåì ýêçåìïëÿð êëàññà ïèñüìî â Ïðèëîæåíèè Outlook
    Dim sendMailFolder As Outlook.Folder

    Range("A2").End(xlDown).Activate
    
   'Dim myCal As MAPIFolder
   'Set myCal = Application.GetNamespace("MAPI") _
        .GetDefaultFolder(FolderType:=olFolderOutbox)
    
    For inx = 3 To Range("B1").End(xlDown).Row
        
        Set sendMail = outLookApp.CreateItem(olMailItem)
        sendMail.To = Cells(inx, 2)
        sendMail.Subject = Cells(inx, 3)
        sendMail.Body = Cells(inx, 4)
        'sendMail.Display 'Дает возможность просматривать
        'sendMail.Save 'Сохраняет в черновиках
        sendMail.Send
      
    Next inx
End Sub