|
3#
樓主 |
發(fā)表于 2019-3-27 14:42:29
|
只看該作者
我在窗體上放了一個發(fā)送按鈕,代碼如下,有的電腦是可用正常發(fā)送的,可有的電腦不能發(fā)送,在不能發(fā)送的電腦里,我打開access發(fā)現(xiàn)其中的“電子郵件”按鈕不可用!
Private Sub 發(fā)送_Click()
If MsgBox("你需要發(fā)送值班報告嗎?", vbQuestion + vbYesNo, "值班報告!") = vbYes Then
Dim stDocName, strmail As String
strmail = Trim(DLookup("[郵件]", "tblOnDutyMailList", "[類別] = '值班'"))
stDocName = "OnDutyR"
On Error Resume Next
DoCmd.SendObject acSendReport, stDocName, acFormatPDF, strmail, , , Me!值班日期 & "值班報告" & "_" & Me!值班人員, "具體報告信息,請查看附件!"
End If
End Sub
|
|