我正在努力提高我對 MS Access 的了解，以使我的公司運營受益。目前我正在嘗試使用表單中的資訊來填充電子郵件。在添加更多資訊之前，我一直保持它的基礎，以確保我的理論是正確的。
我有一個名為的表ClientListtbl和一個名為ClientListfrm. 我想要一個按鈕來生成一封電子郵件，其中預先填充了電子郵件EmailAddress“收件人”部分中的電子郵件地址（名為 is 的欄位）和主題中的姓氏（名為 的欄位LastName）。我最終希望在電子郵件正文中添加一個“注釋”欄位，但最好從小處開始。在搜索 stackoverflow 和其他資源后，我遇到了一個似乎適合并將其改裝到我的資料庫的代碼，代碼如下：
Private Sub Command20_Click()
Dim LastName As Variant
Dim Email As Variant
Dim objOutlook As Object
Dim objEmail As Object
LastName = ClientListfrm!LastName
Email = ClientListfrm!EmailAddress
Set objOutlook = CreateObject("Outlook.Application")
Set objEmail = objOutlook.CreateItem(0)
With objEmail
.To = Email
.Subject = LastName
.send
End With
Set objEmail = Nothing
Set objOutlook = Nothing
End Sub
EmailAddress是短文本
LastName是短文本
當我然后單擊按鈕時，我收到一條錯誤訊息
運行時錯誤“424”需要物件
單擊除錯LastName = ClientListfrm!LastName突出顯示。所以我嘗試將 LastName 和 EmailAddress 更改為 As Object。這給出了相同的錯誤。
非常感謝任何幫助。
干杯
uj5u.com熱心網友回復：
只是您嘗試呼叫表單中的欄位的方式中的語法錯誤。這對我有用，但可能還有其他方法：
Private Sub Command20_Click()
Dim LastName As Variant
Dim Email As Variant
Dim objOutlook As Object
Dim objEmail As Object
LastName = Forms("ClientListfrm").LastName
Email = Forms("ClientListfrm").EmailAddress
Set objOutlook = CreateObject("Outlook.Application")
Set objEmail = objOutlook.CreateItem(0)
With objEmail
.To = Email
.Subject = LastName
.send
End With
Set objEmail = Nothing
Set objOutlook = Nothing
End Sub
uj5u.com熱心網友回復：
這 - 參考 Outlook - 對我有用：
Private Sub Command20_Click()
Dim LastName As Variant
Dim Email As Variant
Dim objOutlook As Outlook.Application
Dim objEmail As Outlook.MailItem
LastName = "Macron" 'ClientListfrm!LastName
Email = "[email protected]" 'ClientListfrm!EmailAddress
Set objOutlook = Outlook.Application
Set objEmail = objOutlook.CreateItem(olMailItem)
With objEmail
.To = Email
.Subject = LastName
.send
End With
Set objEmail = Nothing
Set objOutlook = Nothing
End Sub
因此，缺少的可能是表單控制元件的語法：
LastName = Forms!ClientListfrm!LastName.Value
Email = Forms!ClientListfrm!EmailAddress.Value
轉載請註明出處，本文鏈接：https://www.uj5u.com/qiye/349118.html