Excel VBS大量邮寄多个附件

Question

我编写了一个VBA脚本，将电子邮件发送到excel文件中任意数量的联系人。excel文件基本上有电子邮件地址和附件的列，其中附件是要附加到电子邮件的文件的名称。我想要做的是能够添加多个附件，通过在附件列中通过;将每个附件分离，并使脚本继续添加下一个附件。我的麻烦是，我不知道如何做到这一点，而不设置一个固定数量的附件为联系人。我试图捕捉的场景是，一个联系人可以有3个附件，另一个可以有2个附件，另一个可以有0附件。

Answer 1

您可以将单元格中的文本拆分为数组，然后循环遍历该数组。

Const DELIMITER = ";"

Dim strCellText as String, strAttachment as String 
Dim strAttachments() As String

strCellText = 'load your cell text here

strAttachments = Split(strCellText, DELIMITER)

For Each strAttachment In strAttachments 
  'attach an attachment to a mail
Next