使用访问 VBA 发送 Outlook email

Question

此代码在另一个 Access 数据库中工作。

我只是复制粘贴了代码，但第一行有错误。

Public Function sendEmailOutlook()

Dim objOutlook As Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
Dim objOutlookRecip As Outlook.Recipient
Dim objOutlookAttach As Outlook.Attachment

On Error GoTo ErrHandler:
' Create the Outlook session.
Set objOutlook = CreateObject("Outlook.Application")

' Create the message.
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)

With objOutlookMsg
' Add the To recipient(s) to the message.
Set objOutlookRecip = .Recipients.Add("sads")
'Set objOutlookRecip = .Recipients.Add("niticin@gmail.com")
objOutlookRecip.Type = olTo

' Set the Subject, Body, and Importance of the message.
.Subject = "This is an automatic confirmation"
.Body = "This is a confirmation of the" & Form_Booking.Event_Name.Value & vbCrLf & _
    "Client: " & Form_Booking.FirstName.Value & vbCrLf & vbCrLf & _
    "Start Time: " & Form_Booking.Actual_Start_Time.Value
.Importance = olImportanceHigh  'High importance
.Save
.Send
    
End With
'Set objOutlookMsg = Nothing
Set objOutlook = Nothing

Exit Function

ErrHandler:
    MsgBox ("Make sure your Outlook is active and configured!")
End Function

在线错误

Dim objOutlook As Outlook.Application

编译器：未定义用户定义类型。

Answer 1

您正在使用早期绑定，因此在 VBA 编辑器中，您需要单击工具 -> 参考并勾选Microsoft Outlook?? Object 库，以便向您的代码公开 Outlook 的 object model。