MailItem from an RSS feed

  • Thread starter Thread starter Dan
  • Start date Start date
D

Dan

I am using Outlook 2007 and VB6. I am using Outlook Automation in a VB
program to choose certain Outlook messages from a folder called Archive, save
them as MSG files, and then delete the messages. It works fine when only
email messages are in the folder.

But occasionally I subscribe to RSS feeds, and sometimes I drag the messages
from the RSS feeds to the Archive folder. I have to skip over those because I
can't treat them as MailItem objects.

Here is a simplified view of the code I'm using:

Dim DateTimeStr As String
Dim FilterStr As String
Dim Message As Outlook.MailItem
Dim MessageFolder As Object
Dim MessageList As Object
Dim ObjItem As Object
Dim OutlookApp As Object
Dim OutlookNamespace As Object
Dim SelectedOutlookFolder as Outlook.Folder

Set OutlookApp = GetObject(, "Outlook.Application")
Set OutlookNamespace = OutlookApp.GetNamespace("MAPI")
Set MessageFolder =
OutlookNamespace.GetFolderFromID(SelectedOutlookFolder.EntryID,
SelectedOutlookFolder.StoreID)

DateTimeStr = Format("7/1/2009 12:00am", "ddddd h:nn AMPM")
FilterStr = "[SentOn] < '" & DateTimeStr & "'"
Set MessageList = MessageFolder.Items.Restrict(FilterStr)

If Not MessageList Is Nothing Then
For Each ObjItem In MessageList
Set Message = Nothing
On Error Resume Next
Set Message = ObjItem
If Not Message Is Nothing Then
End If
Next ObjItem
End If

Is there any way that I can test for the RSS feed messages in this same loop
and save them as MSG files also? Thanks for your help.
 
This is the problem statement:

Dim Message As Outlook.MailItem

It makes an assumption that all items being processed are MailItem objects.
If you use Object instead of MailItem for the declaration, your code should
still work fine.

Also, you should not delete messages inside a For Each ... Next loop.
Instead, use a down-counting loop, e.g.:

Dim ObjItem As Object
count = MessageList.Count
For i = count to 1 Step -1
Set ObjItem = MessageList(i)
ObjItem.SaveAs "<some path>", olMSG
ObjItem.Delete
Next
 
Sue,

Thank you. You solved my problem.

Dan

Sue Mosher said:
This is the problem statement:

Dim Message As Outlook.MailItem

It makes an assumption that all items being processed are MailItem objects.
If you use Object instead of MailItem for the declaration, your code should
still work fine.

Also, you should not delete messages inside a For Each ... Next loop.
Instead, use a down-counting loop, e.g.:

Dim ObjItem As Object
count = MessageList.Count
For i = count to 1 Step -1
Set ObjItem = MessageList(i)
ObjItem.SaveAs "<some path>", olMSG
ObjItem.Delete
Next

--
Sue Mosher, Outlook MVP
Author of Microsoft Outlook 2007 Programming:
Jumpstart for Power Users and Administrators
http://www.outlookcode.com/article.aspx?id=54


Dan said:
I am using Outlook 2007 and VB6. I am using Outlook Automation in a VB
program to choose certain Outlook messages from a folder called Archive,
save
them as MSG files, and then delete the messages. It works fine when only
email messages are in the folder.

But occasionally I subscribe to RSS feeds, and sometimes I drag the
messages
from the RSS feeds to the Archive folder. I have to skip over those
because I
can't treat them as MailItem objects.

Here is a simplified view of the code I'm using:

Dim DateTimeStr As String
Dim FilterStr As String
Dim Message As Outlook.MailItem
Dim MessageFolder As Object
Dim MessageList As Object
Dim ObjItem As Object
Dim OutlookApp As Object
Dim OutlookNamespace As Object
Dim SelectedOutlookFolder as Outlook.Folder

Set OutlookApp = GetObject(, "Outlook.Application")
Set OutlookNamespace = OutlookApp.GetNamespace("MAPI")
Set MessageFolder =
OutlookNamespace.GetFolderFromID(SelectedOutlookFolder.EntryID,
SelectedOutlookFolder.StoreID)

DateTimeStr = Format("7/1/2009 12:00am", "ddddd h:nn AMPM")
FilterStr = "[SentOn] < '" & DateTimeStr & "'"
Set MessageList = MessageFolder.Items.Restrict(FilterStr)

If Not MessageList Is Nothing Then
For Each ObjItem In MessageList
Set Message = Nothing
On Error Resume Next
Set Message = ObjItem
If Not Message Is Nothing Then
End If
Next ObjItem
End If

Is there any way that I can test for the RSS feed messages in this same
loop
and save them as MSG files also? Thanks for your help.
Click to expand...
Click to expand...
 
Back
Top