使用 VBscript 发送附件时为其命名

Giving an attachment a name when sending it with VBscript

set cdoConfig = CreateObject("CDO.Configuration")
with cdoConfig.Fields
  .Item(cdoSendUsingMethod) = cdoSendUsingPort
  .Item(cdoSMTPServer) = "localhost"
  .Item(cdoSMTPAuthenticate) = 1
  .Item(cdoSendUsername) = "contact@example.com"
  .Item(cdoSendPassword) = "password"
  .Update
end with
set cdoMessage = CreateObject("CDO.Message")
with cdomessage
set .Configuration = cdoConfig
  .From = "contact@example.com"
  .To = email
  .Subject = subject
  .HTMLBody = message
  .AddAttachment "c:/i/report.pdf"
  .Send
end with
set cdomessage = nothing
set cdoconfig = nothing

一切都发送查找,但收件人收到消息为 "Untitled Attachment 000X.pdf"

如何给附件命名?

我有这样的东西。但从未尝试过。

'With cdomessage

.AddAttachment "c:/i/report.pdf"
.Attachments(1).Fields.Item("urn:schemas:mailheader:content-disposition") ="attachment;filename=" & NEWNAME
.Attachments(1).Fields.Update

'End With