Question

我有这个代码它在另一个访问数据库中工作正常，我只是复制粘贴代码并使用宏调整它但第一行有错误。

 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编辑器中，您需要点击工具 - ＆gt;参考文献＆amp;勾选 Microsoft Outlook ??对象库，以便将Outlook的对象模型公开给您的代码。

无法使用VBA access 2007发送Outlook电子邮件？

1 个答案: