Отправить автоматические письма от Excel с конвертом

Я создал этот макрос для автоматической отправки писем через Outlook! Мой макрос работает, но есть проблема. Вместо того, чтобы отправлять содержимое почты только значение смещения, которое я прошу, он отправляет весь рабочий лист. Я предоставляю код ниже:

Dim ToArray As String Dim CCArray As String Dim Subject As String Dim Content As String Dim cell3 As Range For Each cell3 In ws1.Range("D2:D" & lastrow1) ToArray = cell3.Offset(0, 16).Value CCArray = cell3.Offset(0, 17).Value Subject = cell3.Offset(0, 18).Value Content = cell3.Offset(0, 19).Value ActiveWorkbook.EnvelopeVisible = True With ws1.MailEnvelope .Introduction = Content .Item.To = ToArray .Item.CC = CCArray .Item.Subject = Subject .Item.Send End With Application.DisplayAlerts = False Next cell3 

• Экспорт электронной почты / органа электронной почты с темой «ПРЕДУПРЕЖДЕНИЕ: Ошибка доставки сообщений» из Outlook 2007
• Outlook 2010 - странная ошибка.
• Убить места в теле почты Outlook
• Как сохранить исходный формат ячейки в макросе Excel?
• выберите, на какую учетную запись отправить адрес электронной почты Outlook?

 Set Mail_Object = CreateObject("Outlook.Application") Set Mail_Single = Mail_Object.CreateItem(0) With Mail_Single .Subject = Subject .To = "[email protected]" .cc = "[email protected]" .BCC = "[email protected]" .SentOnBehalfOfName = "[email protected]" .HTMLBody = Content .send End With