פורסם 2019 באוקטובר 86 שנים היי! מצאתי איך לשלוח הודעת דוא"ל חוזרת באאוטלוק. אבל, אני לא מצליח להבין איך אוכל לשנות את התאריכים בגוף ההודעה אוטומטית כל שבוע (במשלוח ההודעה). אני לא מעוניין להשתמש בקובץ אקסל למטרה זו, אלא רק ב-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 תודה
פורסם 2019 באוקטובר 86 שנים ה-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>" השבוע מחושב לפי התאריך של יום השליחה
ארכיון
דיון זה הועבר לארכיון ולא ניתן להוסיף בו תגובות חדשות.