固有のデータをmsアクセステーブルにダウンロード

Question

このコードを使用して、特定のOutlookメールフィールドをアクセスにダウンロードしています。これはうまくいくが、コードは重複したメールをダウンロードし続ける。既存のレコードをチェックし、テーブルにないレコードをダウンロードする方法はありますか？あなたの答えは、私はOutlookのオブジェクトとそのおなじみの、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 
     .AddNew 
     !task= Mailobject.UserProperties.Find("taskID") 
     !tsktml= Mailobject.UserProperties.Find("timeline") 
     .Update 

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

Answer 1

私のプロジェクトに大いに役立つでしょう。その場合は、次のコードを使用して、タスクがまだインポートされていないことを最初に確認することができます。

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