Modificando nome do arquivo em anexo no Outlook

Bom dia Srs,

Eu utilizo o código abaixo para enviar um e-mail para um determinado cliente, ele funciona perfeitamente.
Minha dúvida é a seguinte:

Ele manda um .pdf em anexo de um relatório chamado "os_venda_sac" como consta abaixo, porém eu gostaria de saber se poderia modificar este nome da mesma forma que ele modifica o assunto:
"2M design - Número da OS " & "" & f

Pois quando ele anexa o .pdf ele sempre vai com o nome do relatório salvo no access.

Fixando, seria possível anexar o mesmo .pdf porém modificar o nome no outlook?



Private Sub Comando13_Click()
Dim db As Database, rs1, rs2 As Recordset, listamat As String, f As Integer

On Error Resume Next


Set db = CurrentDb()
Set rs1 = db.OpenRecordset("002venda")
Set rs2 = db.OpenRecordset("clientes")

f = Me.Texto9
rs1.MoveFirst
rs2.MoveFirst


If Me.Texto9 <> "" Then

Do Until rs1.EOF
If rs1![codigovenda] = f Then
a = rs1![codigocliente]
Exit Do
End If

rs1.MoveNext
Loop


Do Until rs2.EOF
Do Until rs2![codicocliente] = a
rs2.MoveNext
Loop
Exit Do
Loop
b = rs2![email1]

DoCmd.SendObject acSendReport, "os_venda_sac", acFormatPDF, b, , , "2M design - Número da OS " & "" & f, , True



Else

MsgBox "Seleciona uma venda para responder ao cliente"

End If

End Sub