excel vba, добавьте несколько .Для электронной почты

Question

Я использую следующий код для отправки электронной почты с помощью VBA. Но письмо не отправляется ... Я думаю, что это связано с более чем одним адресом электронной почты в строке кода «.To =». Есть ли способ адаптировать код для разрешения нескольких адресов электронной почты?

Я попытался взглянуть на примеры Рона де Бруина, но я просто не могу получить что-нибудь на работу?

Dim rng As Range 
Dim OutApp As Object 
Dim OutMail As Object 

Set rng = Nothing 
On Error Resume Next 
Set rng = Selection.SpecialCells(xlCellTypeVisible) 
On Error GoTo 0 

Set OutApp = CreateObject("Outlook.Application") 
Set OutMail = OutApp.CreateItem(0) 

On Error Resume Next 
With OutMail 
    .To = "bob.johnson@email.com, john.smith@email.com" 
    .CC = "" 
    .BCC = "" 
    .Subject = "Open Orders where LF print to center of disc is required - " & Format(Now, "dd/mm/yyyy HH:mm") 
    .HTMLBody = "Please ensure discs for the following orders are run on replication lines that allow LF print to be printed to the center of the disc. " & Chr(10) & _ 
    RangetoHTML(rng) 
    .Send 
End With 

Answer 1

использования; вместо

.To = "bob.johnson@email.com; john.smith@email.com" 

Answer 2

Попытка использовать точку с запятой вместо запятой:

With OutMail 
    '.To = "bob.johnson@email.com, john.smith@email.com" 
    .To = "bob.johnson@email.com; john.smith@email.com"