エラー91で必要な支援：オブジェクト変数またはブロック変数が設定されていません

Question

次の手順を使用して、固有のメールをダウンロードしようとしましたが、エラーが発生しました（91オブジェクト変数またはブロック変数が設定されていません） FindFirst "task =""" & Mailobject.UserProperties.Find("taskID") & """"

Private Sub getml() 
Dim rst As DAO.Recordset 
Dim OlApp As Outlook.Application 

Dim inbox As Outlook.MAPIFolder 
Dim inboxItems As Outlook.Items 
Dim Mailobject As Object 
Dim db As DAO.Database 
Dim dealer As Integer 
Set db = CurrentDb 

Set OlApp = CreateObject("Outlook.Application") 
Set inbox = OlApp.GetNamespace("Mapi").GetDefaultFolder(olFolderInbox) 
Set rst= CurrentDb.OpenRecordset("mls") 
Set inboxItems = inbox.Items 
For Each Mailobject In inboxItems 

    With rst 
     .FindFirst "task =""" & Mailobject.UserProperties.Find("taskID") & """" 
     If .NoMatch 
      .AddNew 
      !task= Mailobject.UserProperties.Find("taskID") 
      !tsktml= Mailobject.UserProperties.Find("timeline") 
      .Update 

      Mailobject.UnRead = False 
     End If 
    End With 
End If 
Next 
Set OlApp = Nothing 
Set inbox = Nothing 
Set inboxItems = Nothing 
Set Mailobject = Nothing 

End Sub 

Answer 1

このエラーは、（それが適切に設定されていない、または.FindFirst実行する前に閉じられていたのいずれか）レコードセットオブジェクト内のいくつかのバグを指します。

あなたが提供したコードを使用して複製することはできませんので、あなた自身でトラブルシューティングを行う必要があります。

あなたはWithブロックを除去することにより、より説明のエラーを頻繁に取得することができます。

For Each Mailobject In inboxItems 
    rst.FindFirst "task =""" & Mailobject.UserProperties.Find("taskID") & """" 
    If rst.NoMatch 
     rst.AddNew 
     rst!task= Mailobject.UserProperties.Find("taskID") 
     rst!tsktml= Mailobject.UserProperties.Find("timeline") 
     rst.Update 

     Mailobject.UnRead = False 
    End If 
End If 

Answer 2

は

Set rst= db.OpenRecordset("mls") 

Answer 3

によって

Set rst= CurrentDb.OpenRecordset("mls") 

を交換してください。最後に、これは私が扱ってきた方法ですエラー

Private Sub getml() 
Dim rst As DAO.Recordset 
Dim OlApp As Outlook.Application 

Dim inbox As Outlook.MAPIFolder 
Dim inboxItems As Outlook.Items 
Dim Mailobject As Object 
Dim db As DAO.Database 
Dim var As variant 
Set db = CurrentDb 

Set OlApp = CreateObject("Outlook.Application") 
Set inbox = OlApp.GetNamespace("Mapi").GetDefaultFolder(olFolderInbox) 
Set rst= CurrentDb.OpenRecordset("mls") 
Set inboxItems = inbox.Items 
On error resume next 
For Each Mailobject In inboxItems 
    set var = MailObject.UserProperties.Find("taskID") 
IF Not (var Is Nothing) Then 
     With rst 
      .FindFirst "task=" Chr(34) & var & Chr(34) 
     If .NoMatch then 
      .AddNew 
      !task= var.value & "" 
      .Update 

      Mailobject.UnRead = False 
     End If 
    End With 
End If 
Next 
Set OlApp = Nothing 
Set inbox = Nothing 
Set inboxItems = Nothing 
Set Mailobject = Nothing 
End sub