Embedded images

T

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 VB. 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
 
T

techstress

I'd like to ask which line the error occurs on.

Please do the following

Rercreate the error.

Click Debug

Post the text inside the highlighted line.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Saving Embedded Images in Outlook 2007 3
How to have Outlook create folder if folder is not present? 10
How do I change the default Save Location in this code 3
Code to create fldr for saved O2K message graphics if it isn't already there? 0
Urgent: adding "create folder" line in VB? 1
What to add to this given code to have fldr created if fldr not present?? 9
Adding code to create fldr to the "saving embedded graphics" macro?? 11
Do I need to dl the library(??); how to fix error message? 3

Top