VBA实现自动发送PDF附件邮件功能
需积分: 50 141 浏览量
2019-04-26
18:49:40
上传
评论 1
收藏 13KB DOCX 举报
VBA 实现发送 PDF 附件邮件功能
If MsgBox("你需要发送邮件通知相关人员吗？", vbQuestion + vbYesNo, "试制信息维
护及修改邮件通知！") = vbYes Then
Dim stDocName, strmail As String
strmail = Trim(DLookup("[邮件]", "tblOrderYPAmailList", "[ 类型] = '" & Me!
[Text00] & "'"))
stDocName = "OrderYPA"
On Error Resume Next
DoCmd.SendObject acSendReport, stDocName, acFormatPDF, strmail, , ,
Me!Text4 & "样品试制信息_发起", "具体试制信息，请查看附件！"
End If
DoCmd.Close acForm, "frmOrderYPAEdit0"
Forms![frmOrderYPAInfor]![frmOrderYPAInforSub].Requery
End If
资源评论
