VBAは.Findを使用してOutlookで電子メールを見つけることができません

Question

私のコンピュータでうまく動作するマクロを作成しました。アップロードして別のコンピュータで実行すると、電子メールを見つけることができません。

Set olApp = GetObject(, "Outlook.Application") 
Set olNs = olApp.GetNamespace("MAPI") 
Set olFldr = olNs.GetDefaultFolder(olFolderInbox) 
Set olItms = olFldr.Items 
Set olEmail = olApp.CreateItem(olMailItem) 


Set OutApp = CreateObject("Outlook.Application") 
Set OutMail = OutApp.CreateItem(0) 


      subj = "Test email" 

       Set olMi = olItms.Find("[Subject] = " & Chr(34) & subj & Chr(34)) 
       If Not (olMi Is Nothing) Then 
         For Each olAtt In olMi.Attachments 
       Else 
        ' ends up here everytime 

私は自分自身に「テストメール」と呼ばれる電子メールを送り、私は私の見通しの受信トレイにそれを見ることができますが、私のマクロは、（私はマクロへのアップロードの任意のコンピュータ上で）それを見つけることはできません。しかし、私がプログラムを書いた元のコンピュータでプログラムを実行すると、正常に動作します。問題が何であるかは分かりません。

Answer 1

はPR_NORMALIZED_SUBJECT MAPIプロパティで検索してみてください：大丈夫です表示されたコードを見てみると

set olMi = olItms.Find("@SQL=""http://schemas.microsoft.com/mapi/proptag/0x0E1D001F"" = '" & subj & "'")