遍历两个包含VBA中电子邮件的数组

Posted 2021-04-30

我有两个包含电子邮件地址的数组，然后是另一个名为emailgroup的数组，其中包含这两个数组的名称。

我想创建一个在emailgroup数组周围循环的循环，依次调用其他2个数组。

例如，我认为在第一个循环中，将调用“电子邮件”数组，但错误消息显示类型不匹配。

任何人都可以帮忙修改下面的代码吗？

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

Dim emails As Variant
Dim moreemails As Variant
Dim emailgroup As Variant


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

emails = Array("[e-mail]", "[e-mail]")
moreemails = Array("[e-mail]", "[e-mail]")

emailgroup = Array("emails", "moreemails")

For Each i In emailgroup

currentemail = i

With objMailMessage
    .Display
    .To = Join(currentemail, ";")
    .Subject = ""
    .htmlBody = ""

    .Save
    .Close olPromptForSave
End With
 Next 
End Sub

答案

emailgroup = Array("emails", "moreemails")

与数组的数组不同：

emailgroup = Array(emails, moreemails)

然后，应使用LBound和UBound迭代数组：

Dim i as Long
For i = LBound(emailgroup) to UBound(emailgroup)
    ....
    .To = Join(emailgroup(i), ";")
Next