使用Properties实现多附件添加后邮件无附件问题排查

让我帮你梳理这段代码里的几个关键错误，这就是你邮件不带附件的根源：

• 数组索引不匹配
  你定义的mAttachments数组是(1 To 10)，也就是说它的有效索引范围是1到10，但测试代码里却用了mAttachments(0)——这个索引不在你定义的数组范围内，要么会触发索引越界错误，要么这个赋值完全无效，后续发送邮件时自然取不到这个路径。

• AddAttachment属性的逻辑完全失效
  这个属性的设计有几个致命问题：

  1. Index是ReadOnly字段，但你既没初始化它的值，也没有任何逻辑让它递增/变化——这意味着每次访问属性时，都会用同一个固定索引（默认是0，正好不在数组有效范围内），根本没法设置或获取不同位置的附件路径。
  2. Set块里试图把NewAttachment赋值给数组，但NewAttachment也是ReadOnly的，你根本没法给它传入新的附件路径，所以这个Set操作等于什么都没做。
  3. Get块的逻辑冗余且有问题：先判断索引范围然后赋值给AddAttachment，接着又直接返回mAttachments(Index)——如果索引不在有效范围内，返回的就是数组默认的空字符串。

• 测试代码直接操作私有数组
  你跳过属性直接给私有字段mAttachments赋值，这本身就违背了封装的设计，再加上索引错误，导致附件路径根本没被正确存入数组。

修正后的示例代码 #

先调整属性和数组的逻辑，让它能正确接收多个附件：

' 定义最多存储10个附件的数组
Private mAttachments(1 To 10) As String
' 当前要写入的索引，初始化为数组起始位置
Private currentAttachmentIndex As Integer = 1

Public Property AddAttachment() As String
    Get
        ' 仅在有效索引范围内返回值
        If currentAttachmentIndex >= 1 And currentAttachmentIndex <= UBound(mAttachments) Then
            Return mAttachments(currentAttachmentIndex)
        End If
        Return String.Empty
    End Get
    Set(value As String)
        ' 检查是否还有剩余位置
        If currentAttachmentIndex <= UBound(mAttachments) Then
            mAttachments(currentAttachmentIndex) = value
            ' 索引递增，准备存储下一个附件
            currentAttachmentIndex += 1
        Else
            MessageBox.Show("已达到最大附件数量（最多10个）")
        End If
    End Set
End Property

然后用属性来添加附件，而不是直接操作私有数组：

' 添加第一个附件
AddAttachment = "C:\teste.txt"
' 添加第二个附件
AddAttachment = "C:\teste2.txt"

最后，发送邮件时要遍历数组里的非空元素，把它们添加到邮件附件中：

' 假设你的邮件对象名为mail
For Each filePath As String In mAttachments
    If Not String.IsNullOrEmpty(filePath) Then
        mail.Attachments.Add(New Attachment(filePath))
    End If
Next

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