Вытащить данные ListBox, текст и HTMLrange как тело письма

Question

Так что я постараюсь быть максимально ясным.

Я пытаюсь создать макрос, который будет заполнять и отправлять по электронной почте следующую информацию: значения из списков, запись для основного сообщения и таблица значений (которую я в настоящее время заполняю как HTML body.

Например, я хотел бы, чтобы тело письма выглядело следующим образом:

«Уважаемый» [Имя из предварительно выбранного списка]] «Чтобы мы собрали последнее обновление для NAV, пожалуйста, Можете ли вы организовать следующую информацию, которая будет предоставлена ​​для "[Дата] [СПИСОК ЧЕРЕЗ HTML]" Пожалуйста, вы можете предоставить эту информацию к следующей дате "/....

У меня есть список вытащил правильно, но это остановило ввод тела vba, поэтому следующий код только перетаскивает список.

Dim Addressee As String, SenRan As Range ' Define the receipient as words
Addressee = Application.VLookup(SourceLiBo.Value, Sheet1.Range("A1:B1000"), 2, False) 'finds the email address for chosen name

Set SenRan = ThisWorkbook.Sheets("Assets").Range("A1").CurrentRegion 'Selects the range of assets to be emailed.


With OEmail
.To = Addressee 'Send to addressee
.Subject = "Information Request " & Format(Date, "mmmm")

.Body = "Dear " & Me.SourceLiBo & "," & Chr(10) & _
"In order that we can compile the latest update for the NAV, please can you arrange the following information to be provided for " & Format(Date, "mmmm") & ":" & Chr(10) & _
""
.HTMLBody = rangetoHTML(SenRan)

End With

Как лучше всего go об этом, чтобы чтобы все данные были извлечены. Я бы установил переменные со строками, требуемыми для тела, и ввел бы их через .HMTLBody, но это также позволило бы мне вытянуть Значения списка в HMTLBody

Answer 1

Я переписал его, благодаря braX, объяснив мои ошибки. Код ниже (с функцией Рона Брюина) дает правильный ответ.

With OEmail
.To = Addressee 'Send to addressee
.Subject = "Information Request " & Format(Date, "mmmm")
.HTMLBody = "Dear " & Me.SourceLiBo & "," & _
            "<br><br>" & _
            "In order that we can compile the latest update for the NAV, please can you arrange the following information to be provided for " & Format(Date, "mmmm") & ":" & _
            "<br><br>" & _
            rangetoHTML(SenRan) & _
            "<br><br>" & _
            "Please let us know if there are any additional purchases not reflected in the list above." & _
            "<br><br>" & _
            "Please can you provide this information no later than 10 working days from the date of this email to allow us to process all updates for delivery." & _
            "<br><br>" & _
            "Many Thanks"


End With