אחד הפטנטים הגדולים ביותר שייצאו ל - Outlook - מומלץ בחום! - אקווה

Oz · Sunday 13/02/2005, 18:06

לכל אלו שעובדים במשרד / בבית / בביה"ס / אוניברסיטה וכו', עם תוכנת Microsoft Outlook לקריאת דואר אלקטרוני...
מכירים את המקרים בהם אתם מקבלים מיילים עם כל מיני תמונות (משמע יותר מ - 1)?
מה אתם עושים?
בטח הולכים לתמונה הראשנה, Double click, רואים, צוחקים, סוגרים, וחוזר חלילה...
נכון?!
אבל מה אם יש לכם 5 תמונות?
10?
20???
יותר?!
אז נכנסתם לבעיה לא?!

למי שבאמת מכיר את הבעייתיות שבדבר, להלן הפתרון:
עם ביצוע ההוראות הבאות, הפעלת המאקרו תיפתח את כל התמונות בחלון Explorer אחד.

בתוך תוכנת Outlook, יש לגשת ל: "כלים > מאקרו > VB Editor" (או לחלופין, פשוט ללחוץ על Alt + F11).
ייפתח חלון Visual Basic חדש.

יש ללחוץ בצד שמאל או ימין (תלוי בשפת בממשק שיש לכם) באופן הבא:
project1 -> microsoft outlook object -> ThisOutlookSession <<<<<
יש להדביק את שורות הקוד הרשומות למטה, בחלון הלבן שייפתח לכם מול העיניים.
לשמור.
לסגור.
עכשיו, תיגשו למייל ישן שקיבלתם בעבר, בתוך החלון, תוסיפו אייקון חדש לסרגל האייקונים שלכם (קליק ימני על אחד הסרגלים העליוניים, Customize, תגררו את האייקון הנדרש לסרגל.
בהצלחה,

הקוד שצריך להעתיק:

Sub ShowImages()
'On Error Resume Next
Dim a As Attachment
Dim i As Integer
Dim pics As Integer
Dim TempDir As String

TempDir = Environ("temp")
pics = 1

For Each a In Application.ActiveExplorer.Selection.Item(1).Attac hments
If IsPicture(a.DisplayName) Then
a.SaveAsFile (TempDir & "\attach" & pics)
pics = pics + 1
End If
Next

If pics > 1 Then
Open TempDir & "\attachments.html" For Output As #1
Print #1, "<HTML><BODY>"
For i = 1 To pics - 1
Print #1, "[img][/img]<HR/>"
Next
Print #1, "</BODY></HTML>"
Close #1
Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE " & TempDir & "\attachments.html", vbNormalFocus
End If
End Sub

Function IsPicture(filename As String) As Boolean
ext3 = UCase(Right(filename, 4))
ext4 = UCase(Right(filename, 5))

IsPicture = False

If ext3 = ".BMP" Or ext3 = ".JPG" Or ext3 = ".GIF" Or ext4 = ".JPEG" Or ext4 = ".TIFF" Then
IsPicture = True
End If

End Function
'
'Taking care of temporary files
'
Private Sub Application_Quit()
TempDir = Environ("temp")
On Error Resume Next
Kill TempDir & "\attachments.html"
Kill TempDir & "\attach*."
End Sub

סוף הקוד!
לשאלות, Take your best shot!
אני אשתדל לעזור עד כמה שאפשר.
חיים אוז עוז אוזצ'ה רוחמה

למעוניינים, הגירסה האנגלית!
This is a really cool outlook script.

It is useful for when you get an email with many attached images.

Instead of saving them all and opening them each by hand, you can run this script (button) and it'll open them all for you in one HTML page

to apply, go to outlook, choose Alt+F11 (tools -> macro -> VB editor).

under project1 -> microsoft outlook object -> ThisOutlookSession, paste the script and save it. Close.

now, you can add a button for this by right clicking the toolbar, selecting customize, and dragging the macro (under commands->macros) to the toolbar.

enjoy.

oris · Sunday 13/02/2005, 18:33

כתוב שם גם איפה מוצאים עבודה חדשה

? (אחרי שיזרקו אותי בגלל הפלת שרת המייל של החברה

)

Oz · Sunday 13/02/2005, 19:19

מממ...
בעיה, בעיה...
אבל אם תיקח אויר לפני, תמלא את הכוס במים, תלגום קמעה, תיקח שוב אויר, תעצום עיניים למספר שניות ותיגש לעבודה ברוגע, אולי... אבל אולי (!) לא תפיל את שרתי החברה.
תגיד לי, אתה רציני?! פעולה ממש פשוטה שעושים באופן מקומי על המחשב.
תתחיל לעשות את זה, ואם יש בעיות, שלח לי הודעה (אני מתריע מראש, אם ייגרמו בעיות במהלך הטיפול, אני לא מכיר אותך, ולא שמעתי על השיטה הזאת, ואני בכלל לא יודע מה אני עושה פה... מה?! פה זה לא האתר של YNET?! סליחה, טעות...).

איך Nike אומרים... Just Do It!!!

Sunday 13/02/2005, 19:19	#3
Oz תאריך הצטרפות: 24/12/04 מיקום: Dutch Rehovot הודעות: 10,658 הודו לך על 0 הודעות 0 פעמים	מממ... בעיה, בעיה... אבל אם תיקח אויר לפני, תמלא את הכוס במים, תלגום קמעה, תיקח שוב אויר, תעצום עיניים למספר שניות ותיגש לעבודה ברוגע, אולי... אבל אולי (!) לא תפיל את שרתי החברה. תגיד לי, אתה רציני?! פעולה ממש פשוטה שעושים באופן מקומי על המחשב. תתחיל לעשות את זה, ואם יש בעיות, שלח לי הודעה (אני מתריע מראש, אם ייגרמו בעיות במהלך הטיפול, אני לא מכיר אותך, ולא שמעתי על השיטה הזאת, ואני בכלל לא יודע מה אני עושה פה... מה?! פה זה לא האתר של YNET?! סליחה, טעות...). איך Nike אומרים... Just Do It!!! __________________ I work for money... If you want loyalty, get a DOG

אשכולות דומים
אשכול	מפרסם האשכול	פורום	תגובות	הודעה אחרונה
כתבה על צלם תת מימי בYNET - תמונות מדהימות - מומלץ בחום	danielel	קהילת אקווה	6	Thursday 10/01/2008 23:43
שאלה למבינים office outlook	פינגרמן	קהילת אקווה	5	Sunday 11/11/2007 13:10
עזרה outlook	yossi_sh	קהילת אקווה	7	Wednesday 16/11/2005 00:08

Sunday 13/02/2005, 18:06	#1
Oz תאריך הצטרפות: 24/12/04 מיקום: Dutch Rehovot הודעות: 10,658 הודו לך על 0 הודעות 0 פעמים	אחד הפטנטים הגדולים ביותר שייצ לכל אלו שעובדים במשרד / בבית / בביה"ס / אוניברסיטה וכו', עם תוכנת Microsoft Outlook לקריאת דואר אלקטרוני... מכירים את המקרים בהם אתם מקבלים מיילים עם כל מיני תמונות (משמע יותר מ - 1)? מה אתם עושים? בטח הולכים לתמונה הראשנה, Double click, רואים, צוחקים, סוגרים, וחוזר חלילה... נכון?! אבל מה אם יש לכם 5 תמונות? 10? 20??? יותר?! אז נכנסתם לבעיה לא?! למי שבאמת מכיר את הבעייתיות שבדבר, להלן הפתרון: עם ביצוע ההוראות הבאות, הפעלת המאקרו תיפתח את כל התמונות בחלון Explorer אחד. בתוך תוכנת Outlook, יש לגשת ל: "כלים > מאקרו > VB Editor" (או לחלופין, פשוט ללחוץ על Alt + F11). ייפתח חלון Visual Basic חדש. יש ללחוץ בצד שמאל או ימין (תלוי בשפת בממשק שיש לכם) באופן הבא: project1 -> microsoft outlook object -> ThisOutlookSession <<<<< יש להדביק את שורות הקוד הרשומות למטה, בחלון הלבן שייפתח לכם מול העיניים. לשמור. לסגור. עכשיו, תיגשו למייל ישן שקיבלתם בעבר, בתוך החלון, תוסיפו אייקון חדש לסרגל האייקונים שלכם (קליק ימני על אחד הסרגלים העליוניים, Customize, תגררו את האייקון הנדרש לסרגל. בהצלחה, הקוד שצריך להעתיק: Sub ShowImages() 'On Error Resume Next Dim a As Attachment Dim i As Integer Dim pics As Integer Dim TempDir As String TempDir = Environ("temp") pics = 1 For Each a In Application.ActiveExplorer.Selection.Item(1).Attac hments If IsPicture(a.DisplayName) Then a.SaveAsFile (TempDir & "\attach" & pics) pics = pics + 1 End If Next If pics > 1 Then Open TempDir & "\attachments.html" For Output As #1 Print #1, "<HTML><BODY>" For i = 1 To pics - 1 Print #1, "[img][/img]<HR/>" Next Print #1, "</BODY></HTML>" Close #1 Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE " & TempDir & "\attachments.html", vbNormalFocus End If End Sub Function IsPicture(filename As String) As Boolean ext3 = UCase(Right(filename, 4)) ext4 = UCase(Right(filename, 5)) IsPicture = False If ext3 = ".BMP" Or ext3 = ".JPG" Or ext3 = ".GIF" Or ext4 = ".JPEG" Or ext4 = ".TIFF" Then IsPicture = True End If End Function ' 'Taking care of temporary files ' Private Sub Application_Quit() TempDir = Environ("temp") On Error Resume Next Kill TempDir & "\attachments.html" Kill TempDir & "\attach." End Sub סוף הקוד!* לשאלות, Take your best shot! אני אשתדל לעזור עד כמה שאפשר. חיים אוז עוז אוזצ'ה רוחמה למעוניינים, הגירסה האנגלית! This is a really cool outlook script. It is useful for when you get an email with many attached images. Instead of saving them all and opening them each by hand, you can run this script (button) and it'll open them all for you in one HTML page to apply, go to outlook, choose Alt+F11 (tools -> macro -> VB editor). under project1 -> microsoft outlook object -> ThisOutlookSession, paste the script and save it. Close. now, you can add a button for this by right clicking the toolbar, selecting customize, and dragging the macro (under commands->macros) to the toolbar. enjoy. __________________ I work for money... If you want loyalty, get a DOG

Sunday 13/02/2005, 18:33	#2
oris תאריך הצטרפות: 30/05/04 מיקום: איזור המרכז הודעות: 622 הודו לך על 0 הודעות 0 פעמים	כתוב שם גם איפה מוצאים עבודה חדשה ? (אחרי שיזרקו אותי בגלל הפלת שרת המייל של החברה )