deleting Outlook attachments

good point, although I suspect that the problem is somehow with the security setting, not the code.

Here's the code

Private Sub sub2()
Dim oApp As Outlook.Application
Dim oNameSpace As NameSpace
Dim oFolder As MAPIFolder
Dim oMailItem As MailItem
Dim sMessage As String
Dim n As Integer

Set oApp = New Outlook.Application
Set oNameSpace = oApp.GetNamespace("MAPI")
Set oFolder = oNameSpace.PickFolder
n = 0
For Each oMailItem In oFolder.Items
With oMailItem
If oMailItem.Attachments.Count > 0 Then
oMailItem.Attachments.Item(1).SaveAsFile "c:\temp\temp\" & Format(CStr(n), "00#") & _
oMailItem.Attachments.Item(1).FileName
If InStr(1, oMailItem.Attachments.Item(1).FileName, "2006 phinds") <> 0 Then
oMailItem.Attachments.Item(1).Delete
n = n + 1
End If
DoEvents
End If
End With
Next oMailItem
MsgBox "n = " & n
Set oMailItem = Nothing
Set oFolder = Nothing
Set oNameSpace = Nothing
Set oApp = Nothing
End Sub

Don't quite see how I could test that since capturing the macro means deleting an attachment during the macro capture but then re-running the macro would be pointless since the attachment would already be gone.

good idea on the macro thing ... I'll try that tomorrow.

Any idea how to change permissions or get a certificate? I have the outlook security permissions set as low as they'll go, so what am I missing?

Thanks,

Paul

Ah, I appreciate the suggestion, but this seems to apply only to IIS installations which I do not have, AND the documentation says only use this facility, and I quote, " When you have to create a security-enhanced private channel between your server and a limited, known group of users" -- seems to imply that it will screw up my email to other users, which I cannot afford.