发送带附件的电子邮件 VBA

Question

我正在尝试向我的电子邮件添加附件功能。我的电子邮件代码正在运行，但附件正在作为 ATT00001.bin 文件发送。

变量 Forms![frmMain]!TabCtl54.Pages("page56").Controls("subtblcontent").Form![attachmentlnk] 是表单上的一个文本框，我将在其中放置文件名。

attachmentlnkvar = "file:///C:/Users/desktopname/Desktop/" & Forms![frmMain]!TabCtl54.Pages("page56").Controls("subtblcontent").Form![attachmentlnk] & ".pdf"

With cdomsg
.To = emailstr
.FROM = fromemailstr
.subject = Forms!frmMain.txtSubject
.Attachments.Add attachmentlnkvar
.HTMLBody = strHTML
.Send

End With
    Set cdomsg = Nothing

有没有办法可以将我的文件以 pdf 格式发送？

Answer 1

不要使用file://等，仅使用路径。和反斜杠。

attachmentlnkvar = "C:\Users\desktopname\Desktop\" & Forms![frmMain]!TabCtl54.Pages("page56").Controls("subtblcontent").Form![attachmentlnk] & ".pdf"