טיפ: שפות אחרות הן Google-Translated. אתה יכול לבקר את English גרסה של קישור זה.
התחבר
x
or
x
x
הירשם
x

or

כיצד להגיב באופן אוטומטי להודעות שהתקבלו כאשר אתה עסוק ב- Outlook?

לפעמים, אתה רוצה לענות באופן אוטומטי להודעות שהתקבלו ב- Outlook כאשר אתה עסוק בתקופה. אבל אין פונקציה מובנית שיכולה להתמודד עם העבודה הזאת, עם זאת, כאן יש לי קוד VBA להתמודד עם זה.

השב הודעה עם קבצים מצורפים מקוריים ב

כפי שכולנו יודעים, הקבצים המצורפים המצורפים יוסרו מהודעה המקורית בעת מענה להודעה לנמען ב- Outlook. אם אתה רוצה לענות על עיסוי עם שמירה על קבצים מצורפים, אתה יכול לנסות Kutools עבור Outlook's השב עם קובץ מצורף פונקציה, הוא יכול לענות על הודעה אחת עם קבצים מצורפים המקורי, גם לעבוד עבור כל messafe. לחץ על 45 ימים ללא תשלום!
דוק עם קובץ מצורף 1

חץ דוק למטה
דוק עם קובץ מצורף 2
Kutools עבור Outlook: עם עשרות תוספות של Outlook שימושי, ללא תשלום וללא הגבלה ב- 45 ימים.

תשובה אוטומטית כאשר אתה עסוק בקוד VBA


תשובה אוטומטית כאשר אתה עסוק בקוד VBA

Kutools עבור Outlook: 100 + כלים מתקדמים חדשים עבור Outlook.
הכרטיסייה 'משרד': אפשר עריכת לשוניות וגלישה ב- Office, בדיוק כמו Chrome, Firefox, IE 8 / 9 / 10.
תפריט קלאסי: הבא תפריטים ישנים סרגלי כלים חזרה אל 2007, 2010, 2013, 2016 ו- 2019.

הנה קוד VBA, אשר תשובה אוטומטית כאשר יש כמה פגישות בלוח השנה של Outlook, אם אין שום דבר בלוח השנה, זה מפסיק להגיב באופן אוטומטי.

1. ללחוץ Alt + F11 מפתחות לפתיחה Microsoft Visual Basic עבור יישומים חלון.

2. לחץ פעמיים ב זה מ Project1 חלונית, להעתיק ולהדביק מתחת קוד לסקריפט.

VBA: באופן אוטומטי בזמן שאתה עסוק בלוח השנה

Public WithEvents xInboxItems As Outlook.Items

Private Sub Application_Startup()
Set xInboxItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub xInboxItems_ItemAdd(ByVal Item As Object)
'UpdatebyExtendoffice20180418
Dim xMailItem As Outlook.MailItem
Dim xReplyMailItem As Outlook.MailItem
Dim xReplyHTMLBody As String
Dim xAppointments As Outlook.Items
Dim xFilter As String
Dim xRestrictAppointments As Outlook.Items
Dim xAppointment As Outlook.AppointmentItem
Dim xDateFormat As String
On Error Resume Next
If TypeOf Item Is MailItem Then
    Set xMailItem = Item
    Set xReplyMailItem = xMailItem.Reply
    xReplyHTMLBody = xReplyMailItem.HTMLBody
    Set xAppointments = Outlook.Application.Session.GetDefaultFolder(olFolderCalendar).Items
    xAppointments.Sort "[Start]"
    xAppointments.IncludeRecurrences = True
    xDateFormat = Format(Now, "ddddd h:nn AMPM")
    xFilter = "[Start]<= '" & xDateFormat & "' AND [End]>= '" & xDateFormat & "'"
    Set xRestrictAppointments = xAppointments.Restrict(xFilter)
    If TypeName(xRestrictAppointments) = "Nothing" Then Exit Sub
    For Each xAppointment In xRestrictAppointments
        If xAppointment.BusyStatus = olBusy Or olOutOfOffice Then
            xReplyMailItem.HTMLBody = "<HTML><BODY>I'm Sorry that I can't respond to you right now. I'll reply to you later.</HTML></BODY>" & _
                                      xReplyHTMLBody
            xReplyMailItem.Send
        End If
    Next
End If
End Sub

3. שמור את הקוד הזה והפעל מחדש את Outlook. מעתה והלאה, אם הודעות האימייל מתקבלות בטווח הזמן של הפגישות שלך, תישלח תשובה אוטומטית.

טיפים:

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

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



Kutools עבור Outlook

יותר מ 100 פונקציות מתקדמות עבור Outlook 2010, 2013, 2016, 2019 ו- 365

צילומי מסך עבור. עבור באנר

תכונות נוספות | הורדה חינמית | רק 39.00 $ עבור מאות פונקציות

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.