Outlookの各メールの件名を処理します

Question

現在、私はOutlookから受信した各メールの件名を処理しようとしています。すべての件名はF列に記載されています。電子メールの件名をすべて表示したい（重複は削除され、それぞれの会話には1行しか保存されません - REまたはFWのメールは削除されていますこれらの）。新しいワークシートには、受信トレイのすべての件名が含まれます（重複が削除された直後に1回だけ取り込まれます）。

コード：

For Each oItem In objSourceFolder.Items 

    ThisWorkbook.Worksheets("Test 1 Mails").Range("A" & contor).Value = oItem.SentOn 
    ThisWorkbook.Worksheets("Test 1 Mails").Range("B" & contor).Value = oItem.CreationTime 
    ThisWorkbook.Worksheets("Test 1 Mails").Range("C" & contor).Value = oItem.ReceivedTime 
    ThisWorkbook.Worksheets("Test 1 Mails").Range("D" & contor).Value = oItem.SenderName 
    ThisWorkbook.Worksheets("Test 1 Mails").Range("E" & contor).Value = oItem.SenderEmailAddress 
    If (Left(oItem.Subject, 4) = "FW: ") Or (Left(oItem.Subject, 4) = "Fw: ") Or (Left(oItem.Subject, 4) = "RE: ") Or (Left(oItem.Subject, 4) = "Re: ") Then 
     oItem.Subject = Mid(oItem.Subject, 5) 
     oItem.Save 
     ThisWorkbook.Worksheets("Test 1 Mails").Range("F" & contor).Value = oItem.Subject 
     ThisWorkbook.Worksheets("Outlook report").Range("B" & contor).Value = oItem.Subject 
    Else 
     If Left(oItem.Subject, 5) = "FWD: " Then 
      oItem.Subject = Mid(oItem.Subject, 6) 
      ThisWorkbook.Worksheets("Test 1 Mails").Range("B" & contor).Value = oItem.Subject 
      ThisWorkbook.Worksheets("Outlook report").Range("B" & contor).Value = oItem.Subject 
      oItem.Save 
     End If 
    End If 

Answer 1

あなたが

ヒットCtrlキーを処理したいすべてのメールをハイライト表示し、Outlookフォルダ内のすべてのユニークな件名

1. を抽出するために、任意のコードを必要としません-c（コピー）
2. をクリックしてください。
3. hit ctrl-v（ペースト）
「RE：」のすべての出現箇所を削除
4. ：
5. は
6. 「FW」のすべての出現箇所を削除し、不要な列を削除
7. が
8. が行うコマンドは（それがである「重複を削除」対象列を選択」データ」タブ... excel2016でとにかく）は

...