**************************************************
with application.Session.GetdefaultFolder(olFolderDraft s).Items
**************************************************
this is not working







Am Mon, 09 Jan 2006 18:43:16 GMT schrieb Paula:

Example for getting the first item from the drafts:

dim oMail as Outlook.MailItem
dim obj as object

with application.Session.GetdefaultFolder(olFolderDraft s).Items

if .count Then
Set obj=.Item(1)
If TypeOf obj is Outlook.MailItem Then
' Get a copy of the draft
Set oMail = obj.Copy
endif
endif
End with


--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook

What exactly is not working? Do you have a valid Application object? Can
you get a MAPIFolder object from the GetDefaultFolder call?

--
Eric Legault (Outlook MVP, MCDBA, old school WOSA MCSD, B.A.)
Try Picture Attachments Wizard for Outlook:
http://www.collaborativeinnovations.ca
Blog: http://blogs.officezealot.com/legault/


"MarcoPolo" wrote:

**************************************************
with application.Session.GetdefaultFolder(olFolderDraft s).Items
**************************************************
this is not working







Am Mon, 09 Jan 2006 18:43:16 GMT schrieb Paula:

Example for getting the first item from the drafts:

dim oMail as Outlook.MailItem
dim obj as object

with application.Session.GetdefaultFolder(olFolderDraft s).Items

if .count Then
Set obj=.Item(1)
If TypeOf obj is Outlook.MailItem Then
' Get a copy of the draft
Set oMail = obj.Copy
endif
endif
End with


--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook