フォルダから電子メールを選択

Question

Outlookを開いてフォルダを参照します。フォルダ内の電子メール項目を手動で選択するダイアログを表示するにはどうすればよいですか？

あなたが選択したフォルダ内の各アイテムをループ次のようにすることができます

Dim oOlApp As Object, objNmSpc As Object, ofldr As Object 

On Error Resume Next 

Set oOlApp = GetObject(, "Outlook.Application") 

If Err.Number <> 0 Then 
    Set oOlApp = CreateObject("Outlook.Application") 
End If 

Err.Clear 
On Error GoTo 0 

Set objNmSpc = oOlApp.GetNamespace("MAPI") 
Set ofldr = objNmSpc.PickFolder 

If Not ofldr Is Nothing Then MsgBox ofldr 

Answer 1

...

Dim oItem As Object 
For Each oItem In ofldr.Items 
    Debug.Print oItem.SenderName, oItem.Subject, oItem.ReceivedTime 
Next oItem