Eric Legault My Eggo

This sucks. I did not buy a newer version of Office so that I could do the programming that was previously done on earlier versions. Microsoft sucks

Can this be downloaded ready-to-go? I am in the process of implementing this but it is not working at the moment and I am wondering if it is due to the various typos. For example, the last module, LaunchPictureAttachmentsHelper, is missing an 'END IF'. There is also some text inline not indicated as a comment.

ok, to make the filenames correct instead of numbers you must use 'Me.lstAtts.List(lstAtts.ListCount - 1, 0) = objAtt.FileName' instead of 'Me.lstAtts.List(lstAtts.ListCount - 1, 1) = objAtt.FileName'.

Hi Peter,

within the article you write that you "...won't outline all the control-specific properties that need to be set; you can download the form source from the link at the end of the article and import it to save time, or use it as a reference to build your own GUI...".

Unfortunately I can't find any link to that in the article.

Where can I download the form source?

Thanks - Joerg
****************
mailto:joerg.bruch@web.de

Please also have them correct the typos I have mentioned

Hi Eric,

I played a little bit with your coding because I wanted to have the option to cache all pictures first an then launch my favourite freeware picture viewer Irfanview (http://www.irfanview.com) in 'Thumbnail' mode in the directory used for caching.

Instead of having the...

varRet = Shell(strExecutePath, vbNormalFocus)

...in the Sub OpenImage after the End Select statement I've added the following:

'LAUNCH IMAGES IN DEFINED IMAGE VIEWER
Select Case lngViewerType
Case ImageViewers.Default
ShellExecute 0, "open", strImageFile, _
vbNullString, strTempFolderPath, conSwNormal
If lngTempFileCount = lstAtts.ListCount Then
lngTempFileCount = 0
End If
Exit Sub
Case ImageViewers.Custom
strExecutePath = strCustomImageViewerFilePath & " " & strImageFile
varRet = Shell(strExecutePath, vbNormalFocus)
If lngTempFileCount = lstAtts.ListCount Then
lngTempFileCount = 0
End If
Case ImageViewers.IE
strExecutePath = strIEPath & " " & strImageFile
varRet = Shell(strExecutePath, vbNormalFocus)
If lngTempFileCount = lstAtts.ListCount Then
lngTempFileCount = 0
End If
Case ImageViewers.IV
strExecutePath = strIVPath & " " & strTempFolderPath & " /thumbs"
If lngTempFileCount = lstAtts.ListCount Then
varRet = Shell(strExecutePath, vbNormalFocus)
lngTempFileCount = 0
End If
End Select


The 'new' part is the following:

Case ImageViewers.IV
strExecutePath = strIVPath & " " & strTempFolderPath & " /thumbs"
If lngTempFileCount = lstAtts.ListCount Then
varRet = Shell(strExecutePath, vbNormalFocus)
lngTempFileCount = 0
End If




So far, so good - everything worked fine until I tried to execute that on a mail with only GIF files attached. I noticed that in that case not the different files have been stored in the cache directory but a file without file extension called 'Compuserve GIF'. I debugged the coding and changed...

strImageFile = strTempFolderPath & "\" & _
objCurrentMessage.Attachments.Item(lstAtts.List( _
intListIndex, 0)).DisplayName

to

strImageFile = strTempFolderPath & "\" & _
objCurrentMessage.Attachments.Item(lstAtts.List( _
intListIndex, 0)).FileName

[changed is here the DisplayName to FileName] - and now everything works as expected by myself...

I can send you the mail with the GIF files attached (and if you want my form source as well) to see what I've changed. But I think you'll see the difference without that.

Now it's working perfect for me - thanks a lot...

_/ _/ _/ Joerg _/ _/ _/
mailto:joerg.bruch@web.de

Please forgive my ignorance (nobody is born know this stuff contrary to some individual's opinions) but I downloaded the code from the link at the top of this post and I'm a bit confused. The zip file included three files - the bas, frm and frx files. I imported these into my vba project and the base module contains only two sections, the Declarations and the LaunchPictureAttachmentsHelper. So what about all of the code that was detailed and explained in the article? Not that I can't copy and paste it into the module but I was hoping to see what the format or layout of the code should be like in the module. Does it all just go in sequentially as it is discussed in the article? You're probaby going to tell me to get a book so i can get the basics down and I will. But I sure would appreciate some additional help just to get going with this neat little project. Thanks!

Dear Joerg with referene to modified code feedback for Irfanview. I tried it gives me the error message i.e. Case ImageViewers.IV Method or Data member not found. It is even not showing me the list of files which I have selected. So what is the problem? Can you help in this. Thanks in advance.

It worked but only for a while: Outlook 2003 doesn't consider the Macro as trustworthy so it disables it after I close Outlook. The only way to run the Macro is to put the macro security level at middle making Outlook ask me every time if I want to activate macros. I have checked the option to "trust in every suplements and models installed" but if I put the security level in "High" or "Very High" the macro is disabled. Any workaround for this annoyance?

I am a extreme newbie to VBA. BUT I was tired of not being able to open multiple pictures in Outlook 2003 as I did in a prior version. When I googled to the MSDN site I was pleased to try to get the macro/script to work. I had no success. Again I Googled and found this Blog. WOW what a great site and help. It all works now plus I learned more about security digital signatures. Now my downloaded Acess templates from Microsoft work using this information. Thanks!!! ;-)

help it!!

hi,

i'm hopeless and cant get this to work ..it seems like such a good idea and i get so many pictures in my emails .
Please Please Please can you help ...whats the dumb and dumber idiots guide (I've never used VBA? or anythingl ike it before)

Is there a way to tweak it to open multiple PDF's?

Tried following the instructions on the MS site with no luck. Tried following the _____ (blank, because there are no instructions on this site) with no luck. Retried the instructions on the MS site, yet get lost at "open Toolbox" because it's greyed out. Retraced my steps, with no luck. Tried opening and using the three files in your download, but couldn't figure out how to get anything to work or even cut and paste. Gee, no instructions--who woulda figured. Came back here. Can't even figure anything out after rereading several times. You people evidently have no clue how to instruct those who aren't as geeky as you are. Wish you had a rating system as MS does, so I could rate this as low as possible, too.
No, I shouldn't have to read a book on VB. If MS is going to include a link to this site to make this macro simpler to install, then this site should make it simpler to install.

I typed in the info... got the user-defined type not defined error on 'DIM objFS AS New Scriptiong.FileSystemObject' line... so I d/l the script from above with the same error msg. Using Outlook 2003. Did I miss something? Seems like everyone else is running but me. Sorry if it is a obvious, new to programming in VB and Outlook at the same time.

Hi

I enjoyed your code. however, when I click on the list box or open button I receive an error that "91 Object Variable or With block variable not set [error in OpenImage; file = '']"

Can someone help me out?

Helpful

Hi,
Can you help me?
I have a mail that I prepare and open it for the user. How can I insert an image - a .gif file into the body?
Thankyou
Anat


Outlook.Application app = new Outlook.Application();
Outlook.MailItem mail = (Outlook.MailItem)app.CreateItem(Outlook.OlItemType.olMailItem);
mail.To = Mailadd;
mail.Subject = Subject;
mail.BodyFormat = Outlook.OlBodyFormat.olFormatHTML;

mail.Body ="today is friday"
mail.Display(true);

Fantastic work, Eric. Have you ever tried using this macro in anything other than a message class (email) form? I am developing a custom contact form for my company and my users attach multiple pictures/files into the notes/comments field. Just as in an email message, they cannot open more than one of the attached files at once to view to windows picture/fax viewer. I can't figure out what to replace in your code to expand the macro to apply to all items (contact, tasks, etc), not just emails.

this macro works great, thanks!

Can it be extended so that it will work when I am marking a message in the inbox pane instead of opening it as a new window? (i am trying to save a click)

Thanks! but I always get:Application.ActiveExplorer.Selection(1).CurrentItem.Attachments.Count = 0

even if I'm on a mail with attachment.
any ideas?

Eric Legault , an Outlook MVP, wrote a new article on MSDN about opening multiple image attachments in