ClassMulder פורסם 2019 באוקטובר 8 Share פורסם 2019 באוקטובר 8 היי! מצאתי איך לשלוח הודעת דוא"ל חוזרת באאוטלוק. אבל, אני לא מצליח להבין איך אוכל לשנות את התאריכים בגוף ההודעה אוטומטית כל שבוע (במשלוח ההודעה). אני לא מעוניין להשתמש בקובץ אקסל למטרה זו, אלא רק ב-VBA עצמו. הרעיון הוא לשלוח הודעה חוזרת לאותם נמענים עם אותו נושא כל שבוע, ובגוף ההודעה יש תאריכים בין לבין. את התאריכים האלה אני רוצה לקדם בשבוע כל פעם. אשמח לעזרה בנושא. זה הקוד בו השתמשתי: Private Sub Application_Reminder(ByVal Item As Object) Dim objPeriodicalMail As MailItem If Item.Class = olTask Then If InStr(LCase(Item.Subject), "send an email periodically") Then Set objPeriodicalMail = Outlook.Application.CreateItem(olMailItem) 'Change the following email information as per your actual needs With objPeriodicalMail .Subject = "Subject text" .To = "recipient@email" .CC = "recipient@email" .HTMLBody = "<HTML><BODY>Text. Please book it for 1 week (14th Oct to 20th Oct).Regards,</HTML></BODY>" .Importance = olImportanceHigh .ReadReceiptRequested = False .Send End With End If End If End Sub תודה קישור לתוכן שתף באתרים אחרים More sharing options...
etal פורסם 2019 באוקטובר 8 Share פורסם 2019 באוקטובר 8 ה-VB שלי קצת חלוד אבל משהו כזה אולי: Dim today As Date Dim endweek As Date Dim msg As String today = Date() endweek = DateAdd("d", 6, today) msg = "<HTML><BODY>Text. Please book it for 1 week (" & Day(today) & " " & Monthname(today, true) & " to " & Day(endweek) & " " & Monthname(endweek, true) & ").Regards,</HTML></BODY>" השבוע מחושב לפי התאריך של יום השליחה קישור לתוכן שתף באתרים אחרים More sharing options...
Recommended Posts
ארכיון
דיון זה הועבר לארכיון ולא ניתן להוסיף בו תגובות חדשות.