G
Guest
Can you open pictures files in Outlook as a slideshow instead of one at a time?
G
Guest
Hi,
You can save them to a folder you open for this purpose in your
"My Pictures folder" and view them there as a slideshow, or you
install the Outlook ad-od from the attached link
http://www.collaborativeinnovations.ca/products/pictureattwiz.htm
Rgrds,
You can save them to a folder you open for this purpose in your
"My Pictures folder" and view them there as a slideshow, or you
install the Outlook ad-od from the attached link
http://www.collaborativeinnovations.ca/products/pictureattwiz.htm
Rgrds,
G
Guest
Thank you for responding. It would appear that w/o installing a program or
savings the pictures to another file, I am unable to run the pictures in a
slideshow in Outlook.
savings the pictures to another file, I am unable to run the pictures in a
slideshow in Outlook.
G
Guest
Hi,
Outlook has no option to do this.
If you do not want to use one of my suggestions, (which I think are the most
convenient,) you can create a macro for it and put a macro button on the
toolbar. I saw a macro-code for this somewhere, if you are interested
I will try to look for it. ( I would prefer the add-on ).
Rgds,
Outlook has no option to do this.
If you do not want to use one of my suggestions, (which I think are the most
convenient,) you can create a macro for it and put a macro button on the
toolbar. I saw a macro-code for this somewhere, if you are interested
I will try to look for it. ( I would prefer the add-on ).
Rgds,
G
Guest
I thought your suggestions were great! Just wanted to make sure I wasn't
missing something I could do in Outlook. I would be interested in your macro
suggestion though (just when you thought you were out of the woods)...
No
rush - at your convenience...Thank you!
missing something I could do in Outlook. I would be interested in your macro
suggestion though (just when you thought you were out of the woods)...
Norush - at your convenience...Thank you!
G
Guest
Hi Rusher,
Here are the instructions for creating the macro. As I don’t know if you are
familiar with
this, I give you the procedure step by step. So here we go:
1) Outlook < Tools < Macro < Visual Basic Editor
2) In the left pane extent “Project 1†clicking the + sign
3) Also do so with “Microsoft Outlook Objects†and then select “This Outlook
Sessionâ€.
4) To the right pane, paste the macro script.
( Copy and paste it from the separate post(
(If the right pane is grayed out, select “General†and “Declarationsâ€.
5) For saving click the floppy disk icon on the toolbar or “ Save VbaProject
OTM †from
the File menu.
6) Close the macro editor.
7) Open a received mail message that has pictures attached.
8) Click Tools < customize < commands tap and in the Categories pane select
“macrosâ€.
9) The commands pane at the right will show two macros
“ Show images†and “DelTemps â€
10) Click on the first-one and drag it to the toolbar on top of the massage.
11) Do the same with the other-one
12) IMPORTANT! If you want to change the names of the buttons or add an icon
(smiley)
you have to do so while the “customize†dialog box is still open! Right
click the button,
select “name†and edit using the keyboard.
13) After you finished, close the “customize “ dialog box.
Make sure that your macro security is not set to “highâ€
(Tools < Macro < security)
The next post has the macro-script. Copy and paste it “as isâ€
( Double-click the post to open it to full size)
The “DelTemps†button is used to delete the pictures from the temporary file
the
macro creates. You should do so from time to time or after viewing the
pictures.
Good luck, and let me know how it works,
Here are the instructions for creating the macro. As I don’t know if you are
familiar with
this, I give you the procedure step by step. So here we go:
1) Outlook < Tools < Macro < Visual Basic Editor
2) In the left pane extent “Project 1†clicking the + sign
3) Also do so with “Microsoft Outlook Objects†and then select “This Outlook
Sessionâ€.
4) To the right pane, paste the macro script.
( Copy and paste it from the separate post(
(If the right pane is grayed out, select “General†and “Declarationsâ€.
5) For saving click the floppy disk icon on the toolbar or “ Save VbaProject
OTM †from
the File menu.
6) Close the macro editor.
7) Open a received mail message that has pictures attached.
8) Click Tools < customize < commands tap and in the Categories pane select
“macrosâ€.
9) The commands pane at the right will show two macros
“ Show images†and “DelTemps â€
10) Click on the first-one and drag it to the toolbar on top of the massage.
11) Do the same with the other-one
12) IMPORTANT! If you want to change the names of the buttons or add an icon
(smiley)
you have to do so while the “customize†dialog box is still open! Right
click the button,
select “name†and edit using the keyboard.
13) After you finished, close the “customize “ dialog box.
Make sure that your macro security is not set to “highâ€
(Tools < Macro < security)
The next post has the macro-script. Copy and paste it “as isâ€
( Double-click the post to open it to full size)
The “DelTemps†button is used to delete the pictures from the temporary file
the
macro creates. You should do so from time to time or after viewing the
pictures.
Good luck, and let me know how it works,
G
Guest
Sub ShowImages() ' Show ALL attached Images In IE Window
On Error Resume Next
TempDirectory = Environ("Temp")
pictures = 1
For Each Picture In Application.ActiveExplorer.Selection.Item(1).Attachments
If IsPic(Picture.DisplayName) Then
Picture.SaveAsFile (TempDirectory & "attach" & pictures)
pictures = pictures + 1
End If
Next
If pictures > 1 Then
Open TempDirectory & "attach.html" For Output As #1
Print #1, "<HTML><BODY onload='onload()'>"
Print #1, "<script language=javascript> " & vbCrLf & _
"function onload() {document.all('txt').focus();}" & vbCrLf & _
" function OnClick() {" & vbCrLf & _
" var val=document.all('txt').value;" & vbCrLf & _
" if(val.length>0&&!isNaN(val))" & vbCrLf & _
" {var elemList= document.getElementsByTagName('img'); " & vbCrLf & _
" for(i=0;i<elemList.length;i++)" & vbCrLf & _
" {var cursize=elemList.height;" & vbCrLf & _
" var resi=(cursize*val)/100;" & vbCrLf & _
" elemList.height=resi;} " & vbCrLf & _
" document.all('btn').focus();" & vbCrLf & _
" }}" & vbCrLf & _
"</script>" & vbCrLf & _
" <input type=text id=txt size=4><B>%</B><input id=btn type=button
value=Resize onclick='OnClick()'><br>"
For Index = 1 To pictures – 1
Print #1, "<IMG src=""TempAttach" & Index & """ /><HR/>"
Next Index
Print #1, "</BODY></HTML>"
Close #1
Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE " & TempDirectory &
"attach.html", vbNormalFocus
End If
End Sub
Function IsPic(filename As String) As Boolean ' Handles Picture Types
(Extensions)
ex3 = UCase(Right(filename, 4))
ex4 = UCase(Right(filename, 5))
IsPic = False
If ex3 = ".BMP" Or ex3 = ".JPG" Or ex3 = ".GIF" Or ex3 = ".PNG" Or ex4 =
".JPEG" Or ex4 = ".TIFF" Then
IsPic = True
End If
End Function
Sub DeLTemps() ' Delete temporary files
TempDirectory = Environ("temp")
On Error Resume Next
Kill TempDirectory & "attach.html"
Kill TempDirectory & "attach*."
End Sub
On Error Resume Next
TempDirectory = Environ("Temp")
pictures = 1
For Each Picture In Application.ActiveExplorer.Selection.Item(1).Attachments
If IsPic(Picture.DisplayName) Then
Picture.SaveAsFile (TempDirectory & "attach" & pictures)
pictures = pictures + 1
End If
Next
If pictures > 1 Then
Open TempDirectory & "attach.html" For Output As #1
Print #1, "<HTML><BODY onload='onload()'>"
Print #1, "<script language=javascript> " & vbCrLf & _
"function onload() {document.all('txt').focus();}" & vbCrLf & _
" function OnClick() {" & vbCrLf & _
" var val=document.all('txt').value;" & vbCrLf & _
" if(val.length>0&&!isNaN(val))" & vbCrLf & _
" {var elemList= document.getElementsByTagName('img'); " & vbCrLf & _
" for(i=0;i<elemList.length;i++)" & vbCrLf & _
" {var cursize=elemList.height;" & vbCrLf & _
" var resi=(cursize*val)/100;" & vbCrLf & _
" elemList.height=resi;} " & vbCrLf & _
" document.all('btn').focus();" & vbCrLf & _
" }}" & vbCrLf & _
"</script>" & vbCrLf & _
" <input type=text id=txt size=4><B>%</B><input id=btn type=button
value=Resize onclick='OnClick()'><br>"
For Index = 1 To pictures – 1
Print #1, "<IMG src=""TempAttach" & Index & """ /><HR/>"
Next Index
Print #1, "</BODY></HTML>"
Close #1
Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE " & TempDirectory &
"attach.html", vbNormalFocus
End If
End Sub
Function IsPic(filename As String) As Boolean ' Handles Picture Types
(Extensions)
ex3 = UCase(Right(filename, 4))
ex4 = UCase(Right(filename, 5))
IsPic = False
If ex3 = ".BMP" Or ex3 = ".JPG" Or ex3 = ".GIF" Or ex3 = ".PNG" Or ex4 =
".JPEG" Or ex4 = ".TIFF" Then
IsPic = True
End If
End Function
Sub DeLTemps() ' Delete temporary files
TempDirectory = Environ("temp")
On Error Resume Next
Kill TempDirectory & "attach.html"
Kill TempDirectory & "attach*."
End Sub
G
Guest
Luckily, I am familiar with macros and I do use them on a daily basis. Thank
you for your time with this. I appreciate it.
you for your time with this. I appreciate it.