Разделительные адреса электронной почты

Question

Я хотел бы знать, как отделить адреса электронной почты в следующем коде:

With OutApp.CreateItem(0) 
If cel.Value <> "" Then 
.To = cel.Value 
.CC = cel.Offset(0, 10).Value & cel.Offset(0, 11).Value 
.Body = strbody & vbNewLine & vbNewLine & Signature 

В поле CC, когда макрос запускается он заполнить поля, но как это: CC: будет @ me.comother @ mail.com, и это должно быть похоже на CC: will@me.com; other@mail.com

Любые идеи о том, как это решить? Я уже пробовал: cel.Offset(0, 10).Value & ";" & cel.Offset(0, 11).Value но не повезло

Answer 1

Это было зафиксировано, как этот cel.Offset(0, 10).Value & " ; " & cel.Offset(0, 11).Value и его работы в настоящее время

Answer 2

Рассмотрим что-то более динамичную:

join(worksheetfunction.Transpose(range("A1:A4")),";") 

Таким образом, вы можете программно изменить диапазон и его будет просто объединяться столько строк, сколько у вас есть. Выбранный метод означает, что в CC всегда должно быть 2 человека (и ТОЛЬКО 2 человека).

Диапазон («A1: A4») получает диапазон данных, Transpose заменяет его сверху вниз на сценарий слева направо (делает его массивом), функция Join объединяет все элементы массива с помощью прилагаемого разделителя (в данном случае ";")