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

Excel VBS群发邮件多个附件

1 个答案: