2011-07-04 10 views
0

私は、私だけのコードを貼り付け、マクロを使用してTUN、それは別のアクセスデシベルで正常に動作され、このコードをコピーしてきたが、エラーがVBAアクセス2007を使用してoutlookの電子メールを送信するのに問題がありますか?

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("[email protected]") 
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 

コンパイラ:ユーザー定義型が定義されていません。

非常に重要です。

はあなたに

答えて

2

ありがとうVBAエディタで[ツール]をクリックする必要があるので、あなたは、事前バインディングを使用している - >は、&ダニMicrosoft Outlookをリファレンス??オブジェクトライブラリを使用して、Outlookのオブジェクトモデルをコードに公開します。

+0

ありがとう – ConfusedCoder

関連する問題