Am Mon, 12 Jun 2006 13:08:44 GMT schrieb Joanne:

Joanne, that error tells you there´s a mismatch between both the data types
of the variable and the property you´re trying to pass to it. So please dim
Items As Outlook.Items instead of MailItem.

If you´re in doubt you can check it simply yourself: You set the variable to
the Items object in the Set Items = ... line. You can point the mouse over
..Items and right click "QuickInfo". That´ll display a tooltip which tells
you what kind of data type it is.

If you´re in the correct folder for sure then you could skip the
GetDefaultFolder function and use Application.ActiveExplorer.CurrentFolder
instead. But I´d suggest to use GetdefaultFolder, that makes your code more
independant.

You´re welcome.

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
-- www.vbOffice.net --


Michael
(Sorry about the double post - I accidently started a new thread for
this and decided to send it to the original thread.)

I just thought I should learn more about text parsing for future
projects since I came across it. Actually I wish I had more time to
noodle around with programming MSOffice instead of working in it.
Programming appeals to my love of puzzles.

I am having a problem with my little macro you helped me with.
Here it is in full:


Public Sub Deletions()
Dim obj As Object
Dim Items As Outlook.MailItem

Set Items = Application.Session.GetDefaultFolder(olFolderInbox ).Items

Dim i As Long
For i = Items.Count To 1 Step -1
Set obj = Items(i)
If InStr(1, obj.Body, "Description: Successful", vbTextCompare)
Then
obj.Delete
End If
Next

End Sub

I suspect that I don't have the beginning of the procedure correct.

The error I am getting is on the set items = line
The error is Run time error #13 Type Mismatch

Do I even need the set items statement here?
I am in the inbox when I run the macro, so maybe it isn't necessary
to tell the macro where to find the items?

Object, Items and long have all been dimmed - they are the only
variables in the procedure, so I know that is okay.

You created the loop so I know that's good to go.

Thanks for your help again - Someday maybe I can get these little
things done without needing my hand held so much ;-)
Joanne




Michael Bauer wrote:

Am Sun, 11 Jun 2006 12:12:24 GMT schrieb Joanne:

Thanks, Joanne. But it´s no magic, for most of us developing software is
the
job for many years.

"Parsing text" gives a lot of results. If you do have a link maybe I can
tell more about that function.

But why don´t you like the InStr function?