次の方法で共有

Conversation.GetAlwaysDelete メソッド (Outlook)

  • [アーティクル]

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 を 使用して always-delete 設定を取得し、設定を表示します。

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 のサポートおよびフィードバックを参照してください。