OlAlwaysDeleteConversation 列挙型の定数を返します。この定数は、会話に参加するすべての新しいアイテムが、指定された配信ストアの [削除済みアイテム] フォルダーに常に移動されるかどうかを示します。
構文
式。
GetAlwaysDelete( _Store_ )
式 'Conversation' オブジェクトを表す変数。
パラメーター
| 名前 | 必須 / オプション | データ型 | 説明 |
|---|---|---|---|
| Store | 必須 | Store | スレッドのアイテムの移動先である [ 削除済みアイテム] フォルダーを保持しているストアを指定します。 |
戻り値
OlAlwaysDeleteConversation 列挙型の定数。会話のすべての新しいアイテムを、指定した配信ストアの [削除済みアイテム] フォルダーに常に移動するかどうかを示します。
注釈
Store パラメーターでアーカイブ .pst ストアなどの非配信ストアが指定されている場合、GetAlwaysDelete メソッドは、既定の配信ストア内の会話アイテムに適用される定数を OlAlwaysDeleteConversation から返します。 既定の配信ストアには、 削除済みアイテムフォルダーに配信不能のストア上のアイテムは移動されません。
GetAlwaysDelete では、 olAlwaysDelete が返された場合の会話の項目は 削除済みアイテムフォルダーに項目を格納するストアを常に移動されます。 店舗間の会話でアイテムは、アイテムが含まれるストアの 削除済みアイテムフォルダーに移動されます。 GetAlwaysDelete に olAlwaysDelete が返されるとき、 GetAlwaysMoveToFolder メソッドは、既定のストアの 削除済みアイテムフォルダーを表す folder オブジェクトを返します。
GetAlwaysDelete では、 olAlwaysDeleteUnsupported が返された場合、指定されたストアは、常にそのストアの 削除済みアイテムフォルダーにアイテムを移動するためのアクションをサポートしていません。
GetAlwaysDelete では、 olDoNotDelete が返された場合、指定した配信ストアの会話で受信された新しいアイテムが 削除済みアイテムフォルダーに移動されず、 削除済みアイテムフォルダー内の既存の会話アイテムが 受信トレイに移動されます。
例
アプリケーション (VBA) の例を次の Microsoft Visual Basic では、選択したメール アイテムの会話の常に削除の設定を確認する方法を示します。 コード例 DemoGetAlwaysDelete は、既定のストアで会話が有効になっていることを確認し、会話が存在する場合は閲覧ウィンドウに表示される最初のメール アイテムを含む会話を取得し、 GetAlwaysDelete を使用して常時削除設定を取得して、設定を表示します。
Sub DemoGetAlwaysDelete()
Dim oMail As Outlook.MailItem
Dim oConv As Outlook.Conversation
Dim oStore As Outlook.Store
Dim intValue As Integer
' Get the item displayed in Reading Pane.
Set oMail = ActiveExplorer.Selection(1)
If Application.Session.DefaultStore.IsConversationEnabled Then
Set oConv = oMail.GetConversation
If Not (oConv Is Nothing) Then
intValue = _
oConv.GetAlwaysDelete(Application.session.DefaultStore)
If intValue = _
Outlook.OlAlwaysDeleteConversation.olAlwaysDelete Then
Debug.Print "olAlwaysDelete"
ElseIf intValue = _
Outlook.OlAlwaysDeleteConversation.olAlwaysDeleteUnsupported Then
Debug.Print "olAlwaysDeleteUnsupported"
ElseIf intValue = _
Outlook.OlAlwaysDeleteConversation.olDoNotDelete Then
Debug.Print "olDoNotDelete"
End If
End If
End If
End Sub
関連項目
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。