L oop через два массива, содержащих электронные письма

Question

У меня есть два массива, содержащих адреса электронной почты, а затем еще один массив с именем emailgroup, который содержит имена этих двух массивов.

Я хочу создать al oop, который будет обходить массив emailgroup для вызова двух других массивы по очереди.

Я думал, например, на первом l oop, массив «email» будет вызываться, но сообщение об ошибке говорит о несоответствии типов.

Может ли кто-нибудь помочь изменить приведенный ниже код?

 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("a@a.com", "b@b.com")
moreemails = Array("c@c.com", "d@d.com")

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

Answer 1

Вот еще один пример:

Private Function CombineArray(arr1() As Variant, arr2() As Variant) As Variant()

Dim tmp() As Variant ' Array to hold values until output
Dim n As Long ' Numeric value to count first array
Dim m As Long ' Numeric value to count second array (`n` could be reused, but this helps keep things separate, IMHO)
Dim idx As Long ' Variable to keep tabs on current index when switching between arrays

' ReDim out temporary array
ReDim tmp(UBound(arr1) + UBound(arr2) + 1)

' Set an indexer to account for switching arrays
idx = 0
For n = 0 To UBound(arr1, 1)
    tmp(idx) = arr1(n)
    idx = idx + 1
Next n

' Iterate over second array.
For m = 0 To UBound(arr2, 1)
    tmp(idx) = arr2(m)
    idx = idx + 1
Next m

' Set results to function output
CombineArray = tmp

End Function

Затем функция быстрой проверки для проверки результатов CombineArray ():

Public Function TestFunc()

Dim output() As Variant
Dim emails() As Variant
Dim moreemails() As Variant

' Set out test email groups
emails() = Array("a@a.com", "b@b.com")
moreemails() = Array("c@c.com", "d@d.com")

' ReDim output array.  Probably not necessary, but helps keep things in check.
ReDim output(UBound(emails) + UBound(moreemails))

' Populate output array with combined array
output = CombineArray(emails, moreemails)

' Test output
Debug.Print Chr(13) & "List of values:"
Dim i As Integer
For i = 0 To UBound(output)
    Debug.Print "-- " & output(i)
Next i

' Join function output
Debug.Print Chr(13) & "The joined values are: " & Join(output, ";")

End Function

Используя непосредственное окно, мы получаем:

Debug.Print TestFunc()

List of values:
-- a@a.com
-- b@b.com
-- c@c.com
-- d@d.com

The joined values are: a@a.com;b@b.com;c@c.com;d@d.com

Answer 2

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