Folders.GetPrevious メソッド (Outlook)
Folders コレクション内の 1 つ前のオブジェクトを取得します。
構文
式。 GetPrevious
expression は Folders オブジェクトを表す変数です。
戻り値
コレクションに格納されている 1 つ前のオブジェクトを表す Folder オブジェクト。
注釈
コレクションの先頭に既に配置されている場合など、前のオブジェクトが存在しない場合は Nothing が返されます。大規模なコレクションで GetFirst、GetLast、GetNext、GetPrevious メソッドの正しい操作を行うために、そのコレクションで GetNext を呼び出す前に GetFirst を呼び出し、GetPrevious を呼び出す前に GetLast を呼び出します。 コレクションの呼び出しを常に行っていることを確認するには、ループに入る前に、そのコレクションを参照する明示的な変数を作成します。
例
次に示す Visual Basic for Applications の使用例は、 受信トレイ フォルダーのサブフォルダーで " MyPersonalEmails" と呼ばれるフォルダーを検索し、メッセージを表示します。 受信トレイ フォルダーに MyPersonalEmails というサブフォルダーがない場合、この例では何も表示されません。
Sub TestGetPrevious()
Dim nsp As Outlook.NameSpace
Dim mpf As Outlook.Folder
Dim mpfSubFolder As Outlook.Folder
Dim flds As Outlook.Folders
Dim idx As Integer
Set nsp = Application.GetNamespace("MAPI")
Set mpf = nsp.GetDefaultFolder(olFolderInbox)
Set flds = mpf.Folders
Set mpfSubFolder = flds.GetLast
Do While Not mpfSubFolder Is Nothing
If mpfSubFolder.Name = "MyPersonalEmails" Then
MsgBox "The folder was found."
Exit Do
End If
Set mpfSubFolder = flds.GetPrevious
Loop
End Sub
関連項目
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。
フィードバック
https://aka.ms/ContentUserFeedback。
近日公開予定: 2024 年を通じて、コンテンツのフィードバック メカニズムとして GitHub イシューを段階的に廃止し、新しいフィードバック システムに置き換えます。 詳細については、以下を参照してください:フィードバックの送信と表示