In Outlook 2003 I had a macro to extract embedded images.

This is it

Sub SaveAttachment()
Dim objCurrentItem As Outlook.MailItem
Dim colAttachments As Outlook.Attachments
Dim objAttachment As Outlook.Attachment

Set objCurrentItem = Application.ActiveInspector.CurrentItem
Set colAttachments = objCurrentItem.Attachments
Set strFolderpath = CreateObject("WScript.Shell")

For Each objAttachment In colAttachments
objAttachment.SaveAsFile ("D:\Doug\anni" & "\"
&objAttachment.FileName)
Next

Set objAttachment = Nothing
Set colAttachments = Nothing
objCurrentItem.Close (olDiscard)
Set objCurrentItem = Nothing

End Sub

I don't know VBA. However when I put this macro in Outlook 2007 I get
this error message

"Object variable or With block variable not set"

Can someone help me?

Regards
Doug

At which line do you get the error?

--
Best regards
Michael Bauer - MVP Outlook
Manage and share your categories:
http://www.vboffice.net/product.html?pub=6&lang=en


Am Sun, 03 Jan 2010 02:35:29 GMT schrieb The Old Bloke:

In Outlook 2003 I had a macro to extract embedded images.

This is it

Sub SaveAttachment()
Dim objCurrentItem As Outlook.MailItem
Dim colAttachments As Outlook.Attachments
Dim objAttachment As Outlook.Attachment

Set objCurrentItem = Application.ActiveInspector.CurrentItem
Set colAttachments = objCurrentItem.Attachments
Set strFolderpath = CreateObject("WScript.Shell")

For Each objAttachment In colAttachments
objAttachment.SaveAsFile ("D:\Doug\anni" & "\"
&objAttachment.FileName)
Next

Set objAttachment = Nothing
Set colAttachments = Nothing
objCurrentItem.Close (olDiscard)
Set objCurrentItem = Nothing

End Sub

I don't know VBA. However when I put this macro in Outlook 2007 I get
this error message

"Object variable or With block variable not set"

Can someone help me?

Regards
Doug

On Sun, 3 Jan 2010 18:32:54 +0100, "Michael Bauer [MVP - Outlook]"
wrote:




I don't know. This is what I see


I tried to run the macro and got this error message

http://i283.photobucket.com/albums/k...eets/error.jpg

I selected OK and then clicked Debug and got this

http://i283.photobucket.com/albums/k...eets/Debug.jpg

Nothing I tried would show me the problem line.

Regards
Doug
At which line do you get the error?

Select the first line of the code, and press f9 for a breakpoint. Then press
f8, and with f8 walk trough the code step by step. With that you can where
the error is raised.

--
Best regards
Michael Bauer - MVP Outlook
Manage and share your categories:
http://www.vboffice.net/product.html?pub=6&lang=en


Am Sun, 03 Jan 2010 23:19:16 GMT schrieb The Old Bloke:

On Sun, 3 Jan 2010 18:32:54 +0100, "Michael Bauer [MVP - Outlook]"
wrote:




I don't know. This is what I see


I tried to run the macro and got this error message

http://i283.photobucket.com/albums/k...eets/error.jpg

I selected OK and then clicked Debug and got this

http://i283.photobucket.com/albums/k...eets/Debug.jpg

Nothing I tried would show me the problem line.

Regards
Doug
At which line do you get the error?