Хүлээгдэж буй хугацаанд тодорхой имэйлийн хариу ирэхгүй бол мэдэгдлийг хэрхэн авах вэ

Энэ нийтлэл нь танд тодорхой хугацаанд тодорхой имэйлийн хариу ирээгүй үед Outlook танд автоматаар мэдэгдлийн имэйл илгээх эсэхийг VBA ашиглан хурдан хийхийг заах болно.

Заримдаа амин чухал имэйлийн хувьд та түүний хариуг тэсэн ядан хүлээх нь гарцаагүй. Өөрөөр хэлбэл, хүлээн авагч танд аль болох хурдан хариулах болно гэж найдаж байна. Үгүй бол та хүлээгдэж буй хугацаанд хариугаа хүлээж аваагүй бол хүлээн авагч руу дахин мэдэгдлийн имэйл илгээх болно. Тиймээс, энэ шаардлагын хариуд бид энд VBA-г ашиглан Outlook-ийг ийм тохиолдолд автоматаар анхааруулж, сануулах аргыг танилцуулах болно. Нарийвчилсан алхамууд болон кодуудыг авахын тулд уншина уу.

Хүлээгдэж буй хугацаанд тодорхой имэйлийн хариу ирэхгүй бол мэдэгдэл аваарай

1. Хамгийн эхэнд starтаны Outlook.
2. Дараа нь та тодорхой имэйлд сануулах тодорхой цагийг тохируулах хэрэгтэй.

• Нэгдүгээрт, тодорхой имэйл дээр хулганы баруун товчийг дарна уу.
• Дараа нь "Дагах"> "Сануулагч нэмэх"-ийг сонгоно уу.
• Харилцах цонхонд та сануулагчийн цагийг түүний хариуг хүлээн авахыг хүссэн тодорхой цагтай адил тохируулж болно.

3. Үүний дараа Outlook VBA засварлагч руу нэвтрэхийн тулд "Alt + F11" товчийг дарна уу.
4. Дараа нь шинэ цонхонд "ThisOutlookSession" төслийг нээгээд дараах кодуудыг хуулж авна уу.

Public WithEvents objInboxItems As Outlook.Items

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

'If receive the reply, clear the flag and remove the reminder
Private Sub objInboxItems_ItemAdd(ByVal Item As Object)
    Dim objSentItems As Outlook.Items
    Dim objVariant As Variant
    Dim i As Long
    Dim strSubject As String
    Dim dSendTime As String
 
    Set objSentItems = Outlook.Application.Session.GetDefaultFolder(olFolderSentMail).Items
 
    If Item.Class = olMail Then
       For i = 1 To objSentItems.Count
           If objSentItems.Item(i).Class = olMail Then
              Set objVariant = objSentItems.Item(i)
              strSubject = LCase(objVariant.Subject)
              dSendTime = objVariant.SentOn
 
              If LCase(Item.Subject) = "re: " & strSubject Or InStr(LCase(Item.Subject), strSubject) > 0 Then
                 If Item.SentOn > dSendTime Then
                    With objVariant
                         .ClearTaskFlag
                         .ReminderSet = False
                         .Save
                    End With
                 End If
              End If
           End If
       Next i
    End If
End Sub

'Get a prompt asking if to send a notification email
Private Sub Application_Reminder(ByVal Item As Object)
    Dim strPrompt As String
    Dim nResponse As Integer
    Dim objFollowUpMail As Outlook.MailItem
 
    'You can change the subject as per your real case
    If (Item.Class = olMail) And (LCase(Item.Subject) = "datanumen outlook repair") Then
       strPrompt = "You haven't yet recieved the reply of " & Chr(34) & Item.Subject & Chr(34) & " within your expected time. Do you want to send a follow-up notification email?"
       nResponse = MsgBox(strPrompt, vbYesNo + vbQuestion, "Confirm to Send a Follow-Up Notification Email")
       If nResponse = vbYes Then
          Set objFollowUpMail = Application.CreateItem(olMailItem)
          With objFollowUpMail
               .To = Item.Recipients.Item(1).Address
               .Subject = "Follow Up: " & Chr(34) & Item.Subject & Chr(34)
               .Body = "Please respond to my email " & Chr(34) & Item.Subject & Chr(34) & "as soon as possible"
               .attachments.Add Item
               .Display
          End With
       End If
    End If
End Sub

5. Дараа нь энэ кодонд гарын үсэг зурна уу.
6. Дараа нь тоон гарын үсэг бүхий макрог зөвшөөрөхийн тулд Outlook макро тохиргоог өөрчил.
7. Эцэст нь дахинtarШинэ макро идэвхжүүлэхийн тулд Outlook. Одооноос Outlook дараах байдлаар ажиллах болно.

• Хэрэв та тодорхой имэйлийн хариуг сануулагч гарч ирэхээс өмнө хүлээн авсан бол Outlook автоматаар тугийг арилгаж, сануулагчийг идэвхгүй болгоно.
• Хэрэв сануулагч асаалттай үед та хариу хүлээж аваагүй бол Outlook таныг дараагийн мэдэгдлийн имэйл илгээх эсэхийг асуух болно. Хэрэв та "Тийм" гэж сонговол имэйл илгээгдэх болно. Хэрэв "Үгүй" гэснийг сонговол сануулга нэг дор алга болно.

Ядаргаатай Outlook асуудлуудыг шийдвэрлэх

Outlook нь алдаа гаргах магадлалтай тул урьдчилан сэргийлэхийн тулд Авлигын төлөв байдал, та зөвхөн Inbox хэрэгсэл, Scanpst.exe дээр найдахгүй байсан нь дээр. гэх мэт өөр хүчирхэг, нэр хүндтэй засварын хэрэгсэл бэлтгэх хэрэгтэй DataNumen Outlook Repair, энэ нь Scanpst.exe-ийн шийдэж чадахгүй байгаа ядаргаатай асуудлуудыг арилгах боломжтой.

Зохиогчийн танилцуулга:

Ширли Жан бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. sql авлига програм хангамжийн бүтээгдэхүүнийг засах хэтийн төлөв. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com