התאמת שליחת מייל מקובץ אקסל והפרש תאריכים לבין מספר

[אבשלום28]

היי שלום לכולם, חייב להגיד תודה על העזרה למדתי המון מפה!
יש לי נושא נוסף שאני צריך עזרה..

אפשרות 1 במידה וזה לא מסורבל מידי:
מצאתי קובץ של מני פורת לשליחה אוטומטית של אימייל עם פקודות שאינן מתאימות לי.
הייתי שמח אם מישהו מפה יצליח לערוך את הפקודות ולהתאים אותם לקובץ מקור של ההשבחות שכאשר עובר 45 ימים ישלח מייל אוטומטי למי שאגדיר כמובן עם מלל אוטומטי שארשום ושהוא יצרף כמובן את הכתובת של אותה שורה בנוסף למלל.
אפשרות 2:
בנוסף ניסתי לבנות הפרש (מועד שומה)בין התאריך קליטה שיחסיר 45 ימים ויציג לי את זה כמספר (45,44...) אך הנוסחה של הDATEIF מציגה לי שגיאה אז עשיתי שיציג לי תאריך יעד.. המטרה הייתה שיגיע עד ל-0 וישלח מייל אוטומטי ואם לא אוטומטי וזה מסורבל אז אפשר להוסיף פקודה שתהיה עם כפתור ליד כל תא ושאלחץ אליו הוא יקח תא מסוים שאבחר (של הכתובת) בצירוף מלל נלווה וישלח למייל שאגדיר לו.

תודה על העזרה של הדרישות שלי ועל הלמידה הרבה שלמדתי מפה.
תודה לעמיק שלקחתי את המאקרו שלו ובניתי סביב זה את הקובץ מבחינתי ברמה הכי מושלמת שאפשר.
אין מילים להודות וכמובן לכל הקהילה האיכותית שפה.

 

[אפר]

היי שלום לכולם, חייב להגיד תודה על העזרה למדתי המון מפה!
יש לי נושא נוסף שאני צריך עזרה..

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

בנוסף ניסתי לבנות הפרש בין התאריך קליטה שיחסיר 45 ימים ויציג לי את זה כמספר (45,44...) אך הנוסחה של הDATEIF מציגה לי שגיאה.. המטרה שיגיע עד ל-0 וישלח מייל אוטומטי ואם לא אוטומטי וזה מסורבל אז אפשר (לערוך) את הכפתור שהוספתי ושהוא יקח תא שאני אבחר(כתובת) עם מלל נלווה שארשום זה גם יהיה מעולה.

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

קובץ ריק

 

[אבשלום28]

קובץ ריק

היי תודה לא שמתי לב! תוקן

 

[xl3391]

מצ"ב.
לשים לב:
1. לאחר הורדת הקובץ לשנות סיומת מtxt ל xlsm.
2. נוסף גליון "הגדרות" בו עליך לעדכן את כותרת ההודעה, תוכן ההודעה הקבוע ואת המייל.

 

[אבשלום28]

מצ"ב.
לשים לב:
1. לאחר הורדת הקובץ לשנות סיומת מtxt ל xlsm.
2. נוסף גליון "הגדרות" בו עליך לעדכן את כותרת ההודעה, תוכן ההודעה הקבוע ואת המייל.

וואו גדול!!!
תודה רבה רבה מדהים באמת.
שאלה נוספת
כאשר אני מציב תאריך קבלה והוא לפני ה-45 ימים הוא יודע לעצור את הספירה של הימים שנותרו?
תודה רבה שוב ממש רמה גבוהה ללא ספק!

 

[xl3391]

סודר. מצ"ב

 

[אבשלום28]

סודר. מצ"ב

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

 

[אבשלום28]

סודר. מצ"ב

היי כאשר אני לוחץ על התאריך קבלה הוא משנה למספר לא נכון את ההפרש ימים..

 

[xl3391]

מצ"ב מתוקן.

 

[xl3391]

לגבי שליחת גליון נוכחי במייל. ראה תוסף מוכן להורדה כאן:
http://xl3391.ooil.co/7089
להוריד את הקובץ השני שנקרא: sendVisibleOnly
אתה מתקין אייקון בסרגל גישה מהירה ויכול להשתמש בכל קובץ שתעבוד עליו.

 

[אבשלום28]

וואו המון תודה אתה גדול! עזרת לי בענק באמת הקובץ עכשיו מושלם מושלם מושלם.

 

[xl3391]

תודה ובהצלחה.

 

[אבשלום28]

תודה ובהצלחה.

היי סליחה על כל השאלות,
אבל התוסף שאתה הבאת לי הוא פחות שימושי לי מפני שהקובץ הקיים עובדים עליו מספר אנשים.
וצריך להזין 2 מיילים קבועים בשליחה וזה לרשום ידני כל פעם מחדש
מצאתי קוד אך אינני מצליח לשלב אותו ללא שגיאה..
זה קוד לשליחת הגיליון:
"
ActiveWorkbook.SendMail (<לא ניתן לפרסם מיילים באופן פומבי>)


"
וזה הקוד לשליחת אימייל רצוי
"
Sub שליחה()
Set olApp = CreateObject("Outlook.Application")
Set olNS = olApp.GetNamespace("MAPI")
Set objFolder = olNS.Folders.GetFirst
Set OutApp = CreateObject("Outlook.Application")

Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = "<לא ניתן לפרסם מיילים באופן פומבי>"
.CC = "<לא ניתן לפרסם מיילים באופן פומבי>"
.BCC = ""
.Subject = "Your Subject come here…"
.Body = "הטקסט בעברית בא כאן"

.send
End With
End Sub
"
בדקתי אותו ואכן עובד השליחה רק הקטע שאני צריך למשוך את הגיליון הקיים..
מצרף את הקובץ כי הקודים התבלבלו בכיוונים
בניתי כבר את הסימן לשליחה וכו'.

 

[xl3391]

מצ"ב אבל בקוד אחר.
נסה אם מתאים.
כמובן להגדיר בגיליון הגדרות מה שצריך.

 

[אבשלום28]

מצ"ב אבל בקוד אחר.
נסה אם מתאים.
כמובן להגדיר בגיליון הגדרות מה שצריך.

היי משום מה אני מקבל התראה למייל שזה חוסם לי את זה והתראה מהאנטי וירוס למרות שהוא על מצב מעודכן ולמרות שאני מאשר..
באסה

 

[xl3391]

נסה עכשיו.

 

[אבשלום28]

נסה עכשיו.

תודה על ההתמדה והעקשנות לעזרה!!!
לצערי זה נתקל באותה שגיאה אך הפעם נוספה שגיאה חדשה
חשוב לי לציין שאני דרך מחשב של עבודה ומאמין שיש הגבלות בטיחות וכדו' על סמך השגיאות
http://www.up2me.co.il/v.php?file=4295592.png
http://www.up2me.co.il/v.php?file=28049485.png

כנראה הדבר לא אפשרי אה?
זה נשמע כל כך פשוט אך משום מה מסתבר שזה בעיה רצינית..