Excel VBA 群发邮件多个附件答案

【问题标题】：Excel VBS Mass Mailing Multiple AttachmentsExcel VBA 群发邮件多个附件
【发布时间】：2015-09-27 22:46:36
【问题描述】：

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

【问题讨论】：

那么您的具体问题是什么？
在我附件的 col 中，我想添加多个文件，我想用 ; 分隔它，例如，file1.pdf;file2.pdf 对于一个联系人，另一个可能没有要添加的文件。
阅读this和this

标签： vba email excel vbscript

【解决方案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

【讨论】：