עזרה באימייל אוטומטי (חוזר) באאוטלוק בעזרת VBA - תוכנה - HWzone פורומים
עבור לתוכן
  • צור חשבון

עזרה באימייל אוטומטי (חוזר) באאוטלוק בעזרת VBA


ClassMulder

Recommended Posts

היי!

מצאתי איך לשלוח הודעת דוא"ל חוזרת באאוטלוק. אבל, אני לא מצליח להבין איך אוכל לשנות את התאריכים בגוף ההודעה אוטומטית כל שבוע (במשלוח ההודעה).

אני לא מעוניין להשתמש בקובץ אקסל למטרה זו, אלא רק ב-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

תודה

קישור לתוכן
שתף באתרים אחרים

ה-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>"

השבוע מחושב לפי התאריך של יום השליחה

קישור לתוכן
שתף באתרים אחרים

ארכיון

דיון זה הועבר לארכיון ולא ניתן להוסיף בו תגובות חדשות.

×
  • צור חדש...