Folders.GetFirst メソッド (Outlook)
Folders コレクションの先頭のオブジェクトを返します。
構文
式。 GetFirst
expression は Folders オブジェクトを表す変数です。
戻り値
コレクションに格納されている先頭のオブジェクトを表す Folder オブジェクト。
注釈
最初のオブジェクトが存在しない場合 (たとえば、コレクションにオブジェクトがない場合) は Nothing を返します。大規模なコレクション内の GetFirst、GetLast、GetNext、および GetPrevious メソッドの正しい操作を保証するには、そのコレクションで GetNext を呼び出す前に GetFirst を呼び出し、GetPrevious を呼び出す前に GetLast を呼び出します。 コレクションの呼び出しを常に行っていることを確認するには、ループに入る前に、そのコレクションを参照する明示的な変数を作成します。
例
この Visual Basic for Applications (VBA) の例は、 GetFirst メソッドを使用して、 連絡先フォルダー内の最初のフォルダーを検索して、テスト フォルダーにフォルダーをコピーします。 次の使用例を実行する前に必要なフォルダーでは、フォルダーを既定の連絡先、受信トレイ内に存在かどうかを確認する必要があります。
Sub CopyItems()
Dim myNameSpace As Outlook.NameSpace
Dim myDestFolder As Outlook.Folder
Dim mySourceFolder As Outlook.Folder
Dim myNewFolder As Outlook.Folder
Set myNameSpace = Application.GetNamespace("MAPI")
Set myDestFolder = myNameSpace.GetDefaultFolder(olFolderInbox).Folders("Test")
Set mySourceFolder = myNameSpace.GetDefaultFolder(olFolderContacts).Folders.GetFirst
Set myNewFolder = mySourceFolder.CopyTo(myDestFolder)
End Sub
関連項目
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。
フィードバック
https://aka.ms/ContentUserFeedback」を参照してください。
以下は間もなく提供いたします。2024 年を通じて、コンテンツのフィードバック メカニズムとして GitHub の issue を段階的に廃止し、新しいフィードバック システムに置き換えます。 詳細については、「フィードバックの送信と表示