如何格式化AttachmentText以实现邮件多附件发送？

你提到的单个文件附件实现代码如下：

objMail.Attachments.Add AttachmentText

其中AttachmentText是存储PDF文件完整路径及文件名的字符串变量。

针对你想添加多个附件的需求，需要明确：Attachments.Add方法一次仅支持添加单个文件，无法通过逗号分隔多个路径的字符串实现批量添加，你之前尝试的几种逗号分隔格式都不适用。

正确的实现方式是对每个附件的路径单独调用一次Add方法，具体有两种常用写法：

• 循环批量添加（适合附件数量较多的场景）：

  ' 定义存储多个附件路径的数组
  Dim attachmentPaths() As String = {"C:\Docs\Filename1.pdf", "C:\Docs\Filename2.pdf"}
  
  ' 遍历数组逐个添加附件
  For Each path As String In attachmentPaths
      objMail.Attachments.Add(path)
  Next
  

• 手动逐个添加（适合附件数量较少的场景）：

  objMail.Attachments.Add("C:\Docs\Filename1.pdf")
  objMail.Attachments.Add("C:\Docs\Filename2.pdf")
  

内容的提问来源于stack exchange，提问作者Ian Bateman