Поместите адреса электронной почты, хранящиеся в массиве, в электронную почту Outlook - PullRequest
Новая
       82

Поместите адреса электронной почты, хранящиеся в массиве, в электронную почту Outlook

0 голосов
/ 29 мая 2020

Я хочу написать макрос, чтобы адреса электронной почты, которые хранятся в массиве «emails», помещались в часть электронного письма «Кому», пока я дошел до приведенного ниже кода, но в сообщении об ошибке говорится, что есть несоответствие типов. Может ли кто-нибудь изменить приведенный ниже код, чтобы он работал, пожалуйста? 

Sub Email_Click()
Dim myOutlook As Outlook.Application
Dim objMailMessage As Outlook.MailItem

Dim emails As Variant
emails = Array("a@a.com", "b@b.com")

Set myOutlook = Outlook.Application
Set objMailMessage = myOutlook.CreateItem(0)


    With objMailMessage
        .Display
        .To = emails
        .Subject = ""
        .HTMLBody = ""

        .Save
        .Close olPromptForSave
    End With

End Sub

1 Ответ

1 голос
/ 29 мая 2020

Чтобы закрыть этот вопрос, введите Join: 

.To = Join(emails, ";")
...