Разбор Макроса #Excel по отправке писем с помощью #Outlook

Разъяснение логики создания макроса по отправке автоматических писем с помощью #Outlook. Текст макроса: Sub SendBlock() NameList = "List1" Range01 = Sheets(NameList).Range("B4").Value Sheets(NameList).Range(Range01).Copy Dim OutApp As Object Dim OutMail As Object Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) On Error Resume Next With OutMail .SentOnBehalfOfName = Sheets(NameList).Range("B1").Value .To = Sheets(NameList).Range("B2").Value .cc = Sheets(NameList).Range("B3").Value .BCC = "" .Subject = Sheets(NameList).Range("A5").Value .HTMLBody = "" .Display End With On Error GoTo 0 Set OutMail = Nothing Set OutApp = Nothing End Sub