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