我想从Access发送电子邮件，并且能够添加多个附件

问题描述

我正在使用带有未绑定控件的表单。我的浏览按钮可以附加一个文件，我需要添加多个文件。这是附件的代码：

Private Sub btnbrowse_Click()
Const msoFileDialogFilePicker As Long = 3
Dim objdialog As Object

Set objdialog = Application.FileDialog(msoFileDialogFilePicker)

With objdialog
        .AllowMultiSelect = False
        .Show
        If .SelectedItems.Count = 0 Then
        MsgBox "No file selected."
    Else
        Me.txtAttachment.Value = Dir(.SelectedItems(1))
    End If
End With
End Sub

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）