使用变量（字符串）作为文件名

Question

我是这些论坛的常客，但这是我第一次提问。

我提前为任何不准确的表述道歉。

我使用Access作为数据库来存储各种信息。我正在使用此信息制作我希望附加到电子邮件的报告。到目前为止，我能够附加报告和预定义的Excel文件。当我希望附加一个zip文件时，我的问题就出现了，该文件读取了字符串变量的名称

我已经尝试填写其中一个zip文件（例如图纸.zip）的实际名称。但是，特定的zip文件会从一封电子邮件更改为另一封电子邮件。

具体问题：如何告诉Access读取变量“number”的文件名并告诉它文件的类型是zip。

提前谢谢你：）

My VBA code:
Private Sub Command127_Click()
sendemail
End Sub

Public Function sendemail()
Dim Number As String
Dim Description As String

Number = Reports![RFQ]!MaterialN
Description = Reports![RFQ]!MaterialD
DoCmd.OutputTo acOutputReport, "RFQ",acFormatPDF, "C:\Myfolder\RFQ.pdf", False

On Error GoTo ende
esubject = & Number & ", " & Description
sendto = ""
ccto = ""
ebody = "...."
file1 = "C:\Myfolder\Vd.xls"
file2 = "C:\Myfolder\RFQ.pdf"
file3 = "R:\Commodity Management\Transportation\Group Folder\Materials ZPS_ZDG\" & Number & ".zip"
Set app = CreateObject("outlook.application")
Set itm = app.createitem(0)

With itm
.subject = esubject
.to = sendto
.cc = ccto
.body = ebody
.attachments.Add (file1)
.attachments.Add (file2)
.attachments.Add (file3)
.display
.send
End With
Set app = Nothing
Set itm = Nothing

恩德： 结束功能