使用VBA-Excel发送已显示的电子邮件

Question

显示电子邮件，然后自动发送

我针对不同的电子邮件使用了不同的情况进行了循环。我使用了基本形式

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

With OutMail
    .To = 'Range of addreesses
    .CC = 'Other addresses
    .Subject = 'Different Subjects
    .Body = 'Body
    .Display
End With

一切正常，但想知道在检查所有信息是否正确之后，是否可以同时发送所有信息。

我尝试制作一个 OutMail 数组，但是我无法使其正常工作，我想到的是这样的东西：

For i = 0 To UBound(arrayMails)
arrayMails[i].Send
Next i

希望您能提供帮助并提前致谢。

Answer 1

@BigBen是的

另外，我找到一种希望可以帮助某人的方法

ReDim arrayMails(lenght) = Outlook.MailItem

每次创建和发送一封电子邮件

arrayMails(i) = outlookApp.CreateItem(0)

谢谢您的回答！