VBAでいくつかのアクションを完了した後、電子メールのカテゴリを自動的に変更するマクロを作成しようとしています。
見栄えのするコードをいくつか作成しましたが、常に機能するとは限らない問題があります。カテゴリが変更されず、エラーのように見える場合があります。
Dim myolApp As Outlook.Application
Dim olFolder As Outlook.MAPIFolder
Dim ns As Outlook.NameSpace
Set ns = Outlook.GetNamespace("MAPI")
Set myolApp = CreateObject("Outlook.Application")
Set olFolder = ns.GetDefaultFolder(olFolderInbox)
Set olFolder = myolApp.ActiveExplorer.CurrentFolder
Dim itm As Object
Dim mailcattable As Variant
Dim kategoria As String
For Each itm In olFolder.Items
For b = 0 To UBound(mailcattable)
If mailcattable(b) = "ABCD" Then
mailcattable(b) = "After ABCD"
kategoria = Join(mailcattable, "; ")
itm.Categories = kategoria
End If
Next
Next
修正方法を教えてください。
アイテムを保存することはありません。kategoria各アイテムの変数をリセットすることもお勧めします。
Dim bModified As Boolean
For Each itm In olFolder.Items
kategoria = ""
bModified = false
For b = 0 To UBound(mailcattable)
If mailcattable(b) = "ABCD" Then
mailcattable(b) = "After ABCD"
kategoria = Join(mailcattable, "; ")
itm.Categories = kategoria
bModified = true
End If
Next
if bModified Then
itm.Save
End If
Next
この記事はインターネットから収集されたものであり、転載の際にはソースを示してください。
侵害の場合は、連絡してください[email protected]
コメントを追加