שמירת קובץ מצורף באאוטלוק

[Tomy48]

שמירת קובץ מצורף באאוטלוק

שלום,

אאוטלוק 2010.
ברצוני לשמור קובץ אקסל או וורד המצורפים למייל. בעת השמירה הקובץ משנה את שמו ומוסיף לתחילת השם את המילים "עותק של", שאותם ברצוני לבטל באופן קבוע ולא למחוק ידנית בכל פעם.

ביצעתי מספר פעולות אך ללא שינוי:
1. מכיר את הלחצן "ערוך הודעה" אך מטרתו לערוך קובץ מצורף ולשמור אותו חזרה בתוך ההודעה, אמנם ניתן להשתמש בלחיצה עליו והמילים "עותק של" לא יופיעו אך מעוניין גם לחסוך לחיצה זו.
2. ביטלתי את התצוגה המוגנת במרכז יחסי האמון של הוורד והאקסל.
3. ביטלתי במרכז יחסי האמון של האאוטלוק את ההגדרה "בטל תצוגה מקדימה של קבצים מצורפים"
3.ניסיתי את המאקרו שמצורף לקישור
https://social.technet.microsoft.co...-name-of-opened-excel-attachments?forum=excel
אך גם הוא "לא עושה את העבודה", אני מניח כי טרם השמירה הראשונה השם לא מכיל את התוספת "עותק של" ולכן אין לו מה למחוק.

האם למישהו יש פתרון?
תודה מראש.

 

[מיכאל אבידן]

המקרו המוצע הוא מקרו אירוע . . .

ש"מוצת" בעת

השמירה ולכן אמור 'לסלק' את הנספח: עותק של".
&nbsp
1. האם דאגת לשנות במקומות המתאימים את הכיתוב הלועזי לעברי

&nbsp
2. האם הצבת אותו במודול: ThisWorkbook של הקובץ הפרטי: (PERSONAL.XLS(M

&nbsp

 

[Tomy48]

מקרו ארוע

כן בהחלט "עותק של". בpersonal ששמור במקום הנכון, ועדיין לא עובד.

 

[מיכאל אבידן]

זה, כנראה, היה פשוט מידי . . .

יש לי עוד כמה בדיקות לעשות (מדובר במשהו קצת יותר מורכב) ובימים הקרובים אשתדל להעלות מאמר, בנושא, למאמרי הפורום.
&nbsp

 

[Tomy48]

מקרו ארוע

המון תודה לך.

 

[Tomy48]

אולי

שיניתי קצת את מאקרו הארוע (לא בדקתי את כל המצבים), אך נראה לי תקין.
מה דעתך?


Private WithEvents App As Application

Private Sub Workbook_Open()
Set App = Application
End Sub


Private Sub App_WorkbookBeforeSave(ByVal Wb As Workbook, ByVal SaveAsUI As Boolean, Cancel As Boolean)
If ActiveWorkbook.ReadOnly And Left(ActiveWorkbook.FullName,9) = "C:\Users\" Then
Application.EnableEvents = False
Cancel = True
Application.GetSaveAsFilename (Wb.Name)
Application.EnableEvents = True
End If
End Sub

 

[מיכאל אבידן]

מה זה: "כל המצבים"

. . .

 

[Tomy48]

מצבים

ניסיתי פתיחת קובץ מהרשת האירגונית שפתוח על ידי משתמש אחר, והוא נפתח לקריאה בלבד.
לכן מיעטתי רק מה ששמור בתיקייה האישית בכונן C. כאן זה נראה תקין מתווסף הכיתוב "עותק של" וזה בסדר לפי דעתי.
אולי יש עוד מיקרים שלא עולים בדעתי כרגע ולכן כתבתי שלא בדקתי את כל המצבים.

 

[מיכאל אבידן]

אני מתקשה לעקוב אחריך . . .

השאלה המקורית נסובה על: "ברצוני לשמור קובץ אקסל או וורד המצורפים למייל..." זו היתה השאלה ועל כך אני נתתי/נותן את הדעת.

אינני מבין מה מחפשת שם המחרוזת: "C:\Users".

מקרו אירוע (שיוצב בקובץ PERSONAL) אמור לבטל את הכיתוב "עותק של" בכל

קובץ בה הוא מופיע ללא קשר למיקום הימצאות הקובץ.

אתר, במחשבך, קובץ 'אקסל' שצמד המילים: "עותק של" מקדימים את שמו > לחץ עליו קליק כפול > בצע 'שמירה בשם' > אשר את השמירה ובדוק האם הוא נשמר ללא צמד המילים המקדים.

 

[מיכאל אבידן]

עיין ובדוק את המוצע במאמר שלהלן . . .

זה שכאן.

 

[מיכאל אבידן]

ועוד איך חסרה (המאמר תוקן).

. . .

אודה על משוב לאחר שתבדוק את המוצע במאמר.
&nbsp

 

[Tomy48]

תודה והערה

תודה אבדוק.

לא חסרה המילה prefix בשורה case 972 ?

 

[מיכאל אבידן]

ועוד איך חסרה. המאמר תוקן.

. . .

אודה אם תחזור עם משוב לאחר שתבדוק את הצעתי.

 

[Tomy48]

Option Explicit

אין הגדרה של Prefix, יחד עם זאת גם לאחר הגדרתו כ- String, המסמך עדיין נשמר עם "עותק של"

 

[מיכאל אבידן]

מחק את ה- Option Explicit‏ . . .

&nbsp
אצלי הכל עובד היטב.
&nbsp
הכנסתי פקודת: MsgBox "Found: " & Prefix אחרי פקודת ה-IF ובכל פעם ששם הקובץ מכיל Prefix ההודעה קופצת (אצלי).

 

[Tomy48]

עדיין שומר עם "עותק של"

 

[מיכאל אבידן]

השאר מס' נייד במסר אישי . . .