Отправить письмо нескольким адресатам

Private Sub CommandButton1_Click()              ' отправка
 
    Dim OutApp As Object
    Dim OutMail As Object
    Dim cell As Range
    
    'создаем новое пустое сообщение в Outlook
    Application.ScreenUpdating = False
    Set OutApp = CreateObject("Outlook.Application")
    OutApp.Session.Logon
    On Error GoTo cleanup
    Set OutMail = OutApp.CreateItem(0)
    On Error Resume Next
    
    'заполняем его адрес, тему и т.д.
    With OutMail
        .To = "petya@ambler.ru"   ', [email]vasya@ambler.ru[/email]" ' не хочет несколько адресооов
        .Subject = "Текстовая часть"
        .Body = "Добрый день! Во вложении отклики клиентов, пожелавших оставить текстовое сообщение"
        .Attachments.Add "C:\Documents and Settings\020065\Мои документы\Текстовая часть.xls" ' сюда полный адрес вложения
        .Send               'вместо Send можно использовать Display, чтобы посмотреть сообщение перед отправкой
    End With
 
    On Error GoTo 0
    Set OutMail = Nothing
 
cleanup:
    Set OutApp = Nothing
    Application.ScreenUpdating = True
End Sub

.To = "petya@ambler.ru;vasya@ambler.ru"

Private Sub CommandButton2_Click()                  'формирование письма в новой книге
    Dim z As Workbook, C As Range
    Set z = Workbooks.Add(xlWBATWorksheet)           'создает только 1 лист
    Application.ScreenUpdating = False
    ThisWorkbook.Sheets("Готово").UsedRange.Copy
    z.Sheets(1).Range("A1").PasteSpecial xlPasteValues
    z.Sheets(1).Range("A1").PasteSpecial xlPasteFormats
    z.Sheets(1).Range("A1").PasteSpecial Paste:=xlPasteColumnWidths
        For Each C In ThisWorkbook.Sheets("Готово").UsedRange.Rows
        z.Sheets(1).Rows(C.Row).RowHeight = C.RowHeight
        Next
    Application.CutCopyMode = False                      'по идее отключает обрезание 255 знаков?
    Application.ScreenUpdating = True
    z.SaveAs Filename:="Текстовая часть"
    Set z = Nothing
End Sub

Workbooks("База Проба.xls").Sheets("Готово").Columns("A:I").Select          ' красиво форматирует
    With Selection.Interior
        .ColorIndex = 2
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
    End With
Workbooks("База проба.xls").Sheets("Готово").Columns("J:S").Select
    With Selection.Interior
        .ColorIndex = 15
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
    End With
         Workbooks("База Проба.xls").Sheets("База").Activate    ' открывает лист базы
End Sub