עבור לתוכן
View in the app

A better way to browse. Learn more.
HWzone

A full-screen app on your home screen with push notifications, badges and more.

To install this app on iOS and iPadOS
  1. Tap the Share icon in Safari
  2. Scroll the menu and tap Add to Home Screen.
  3. Tap Add in the top-right corner.
To install this app on Android
  1. Tap the 3-dot menu (⋮) in the top-right corner of the browser.
  2. Tap Add to Home screen or Install app.
  3. Confirm by tapping Install.

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

על-ידי ClassMulder
ב תוכנה

Featured Replies

פורסם

היי!

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

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

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

  • ציטוט

    • ארכיון

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

    עבור לרשימת הדיונים

    דיונים חדשים

    Configure browser push notifications
    Chrome (Android)
    1. Tap the lock icon next to the address bar.
    2. Tap Permissions → Notifications.
    3. Adjust your preference.
    Chrome (Desktop)
    1. Click the padlock icon in the address bar.
    2. Select Site settings.
    3. Find Notifications and adjust your preference.