Article ID: 177624
Article Last Modified on 6/30/2004
Private Sub Command1_Click()
Dim objOutApp As Outlook.Application
Dim mail As Object
Set objOutApp = CreateObject("Outlook.application")
Set mail = objOutApp.CreateItem(0)
mail.messageclass = "IPM.Note"
mail.Save
mail.Display
mail.Close (0)
objOutApp.ActiveExplorer.Currentfolder.Items("").display
End Sub
Keywords: kbhowto KB177624