fw email

  • Thread starter Thread starter MarcoPolo
  • Start date Start date
M

MarcoPolo

**************************************************
with application.Session.GetdefaultFolder(olFolderDrafts).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(olFolderDrafts).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
 
What exactly is not working? Do you have a valid Application object? Can
you get a MAPIFolder object from the GetDefaultFolder call?
 
Back
Top