Saving Embedded Images in Outlook 2007

Status
Not open for further replies.
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 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
 

Michael Bauer

Senior Member
Outlook version
Outlook 2010 32 bit
Email Account
Exchange Server
At which line do you get the error?

Best regards

Michael Bauer

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
 

Michael Bauer

Senior Member
Outlook version
Outlook 2010 32 bit
Email Account
Exchange Server
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

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


> On Sun, 3 Jan 2010 18:32:54 +0100, "Michael Bauer "
> <mb@mvps.org> 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/kk297/Oldbloke49/Lorikeets/error.jpg

> I selected OK and then clicked Debug and got this

> http://i283.photobucket.com/albums/kk297/Oldbloke49/Lorikeets/Debug.jpg

> Nothing I tried would show me the problem line.

> Regards
> Doug
> >At which line do you get the error?
 
Status
Not open for further replies.
Thread starter Similar threads Forum Replies Date
B Saving an embedded .jpg picture Using Outlook 4
I Error saving screenshots in a custom form in outlook 2016, outlook 365 - ok in outlook 2013, outlook 2010 Outlook VBA and Custom Forms 5
I Saving attachments from multiple emails and updating file name Outlook VBA and Custom Forms 0
M Adding Subject to this Link-Saving VBA Outlook VBA and Custom Forms 5
L Attachment saving and tracking - PLEASE help! Outlook VBA and Custom Forms 5
D Saving Selected Emails as PDF and saving Attachments Outlook VBA and Custom Forms 6
B Saving items under a folder Using Outlook 3
R Quick Access view in File Explorer when saving attachments Using Outlook 0
N Saving And Deleting Outlook Attachments with Unknown Error Message Outlook VBA and Custom Forms 1
V Saving attachment from outlook in My Documents Outlook VBA and Custom Forms 14
I Dialog called up multiple times when saving emails from macro Outlook VBA and Custom Forms 2
A saving attachement to folder named the same as rule name Outlook VBA and Custom Forms 0
T Saving all email to file folder in Windows Using Outlook 2
J Saving attachments from specific sender (phone number) to specific folder on hard drive Using Outlook 3
C Saving Outlook attachments and links to attachments with VBA Outlook VBA and Custom Forms 2
Kevin H Remotely saving emails Using Outlook 1
R Outlook 2010 Modify Style "Do not check spelling or grammar" not saving Outlook VBA and Custom Forms 0
R Outlook Office 365 not saving addresses Using Outlook 0
A Keep color categories when saving vCards Using Outlook 1
P Saving All Messages to the Hard Drive Using VBA Outlook VBA and Custom Forms 5
e_a_g_l_e_p_i question about saving my .pst so I can import it to my Outlook after I build a new system Using Outlook 10
S Editing an email with notes and saving it for record using Macro Outlook VBA and Custom Forms 3
O Saving Attachments to folder on disk and adding Initials to end of file name Outlook VBA and Custom Forms 9
J Outlook 2013 crashes saving VBA & clicking tools | digital signature Outlook VBA and Custom Forms 1
bifjamod Saving sent email to specific folder based on category with wildcard Outlook VBA and Custom Forms 1
N Saving .msg as sent item on send Outlook VBA and Custom Forms 1
erichamion Changes to meeting body not properly saving Outlook VBA and Custom Forms 4
A ItemAdd on Imap Folder get endless loop after saving item Using Outlook 5
T Saving Outlook 2010 email with attachments but read the email without Outlook Using Outlook 2
T From Field Blank when saving to folder other than Sent items Using Outlook 2
L Outlook DST (Daylight Saving Time) problem Using Outlook 0
F Using Outlook 2007 as an IMAP Mail Station Without Saving Data Locally Using Outlook 2
E Saving Changes To Edited E-Mail Received Message Using Outlook 0
D File Lock issue when saving message from Outlook to new folder Using Outlook 1
D Remove extension while saving attachments Using Outlook 1
K Printing & Saving Outlook Contacts Using Outlook 3
S Not saving attachments in the Sent Folder Using Outlook 2
S trouble with Outlook 2010 saving sent emails Using Outlook 2
D Saving outlook emails in html and attachments Using Outlook 4
W Default Saving a message as text Using Outlook 2
R Outlook 2007 QAT buttons not saving Using Outlook 2
C Exchange 2003 - Outlook 2003 - Calendar entries saving over each other Using Outlook 2
J Saving Published Outlook Form as msg Using Outlook 1
J Saving recent colors used for fonts in an email? Using Outlook 1
B How to choose which contacts folder to use when saving contacts? Using Outlook 1
J Saving Incoming & Outgoing Outlook 2010 Email Locally with IMAP Using Outlook 2
F Saving Imap Drafts Using Outlook 1
J saving contact info in specific address books Using Outlook 0
R Saving Contacts Using Outlook 1
V Saving Multiple Network Passwords Using Outlook 0
Similar threads


















































Top