ms 访问模块从按钮添加附件

Question

我在模块中有以下代码，用于向用户发送带附件的电子邮件。

Public Sub EmailToUser()

Dim mail    As Object           ' CDO.MESSAGE
Dim config  As Object           ' CDO.Configuration

Set mail = CreateObject("CDO.Message")
Set config = CreateObject("CDO.Configuration")

    config.Fields(cdoSendUsingMethod).Value = cdoSendUsingPort
    config.Fields(cdoSMTPServer).Value = "my smtp server"
    config.Fields(cdoSMTPServerPort).Value = 465
    config.Fields(cdoSMTPConnectionTimeout).Value = 10
    config.Fields(cdoSMTPUseSSL).Value = "true"
    config.Fields(cdoSMTPAuthenticate).Value = cdoBasic
    config.Fields(cdoSendUserName).Value = "e=mail"
    config.Fields(cdoSendPassword).Value = "password"
    config.Fields.Update

Set mail.Configuration = config

With mail
    .To = "e-mail"
    .From = "e-mail"
    .Subject = "subject"
    .AddAttachment strPathReport & FileName '<== My question.
    .Send
End With

Set config = Nothing
Set mail = Nothing

End Sub

我有一个带有 8 个按钮的表单，每个按钮都会发送一封带有附件的电子邮件。现在，我的模块中有 8 次具有不同附件的相同代码。

是否可以只用一次以上代码，然后从按钮添加附件？

谢谢。

Answer 1

基本上你想给过程添加参数。然后传入邮箱地址等作为参数。

这个问题应该会给你一些关于如何做到这一点的想法：multiple argument subs vba

ms 访问模块从按钮添加附件

ms access module to add attachment from button

ms-access

module

cdo.message