Outlook дээрээ ажлын цаг хүртэл тодорхой имэйл илгээхийг хэрхэн хурдан хойшлуулах вэ

Хэрэв та ажлын цагаас гадуур тодорхой имэйл илгээхээс өөрийгөө хамгаалах шаардлагатай бол энэ нийтлэлд үзүүлсэн аргыг ашиглаж болно. Энэ нь Outlook-д тодорхой имэйл илгээх үед ажлын цагаар ажиллаж байгаа эсэхийг автоматаар шалгах боломжийг олгож, ажлын цаг хүртэл хойшлуулах боломжтой.

Заримдаа таны захидал бичиж, илгээх цаг нь таны ажлын цагт багтдаггүй. Энэ тохиолдолд та дараагийн ажлын цаг хүртэл энэ имэйлийг илгээхээ хойшлуулж болно. Ерөнхийдөө ийм имэйлийг хойшлуулахын тулд та "Хүргэлтийн саатал" функцийг ашиглаж болно. Гэсэн хэдий ч, энэ тохиолдолд та хүргэх хугацааг бүртгэх ёстой. Энэ нь хэтэрхий төвөгтэй юм. Үүний дараа бид танд тодорхой имэйл илгээх үед ажлын цагаар байгаа эсэхийг автоматаар шалгах боломжтой VBA кодын хэсгийг хуваалцах болно, мөн ажлын цаг хүртэл илгээхээ хурдан хойшлуулах болно.

Ажлын цаг хүртэл тодорхой имэйл илгээхийг хурдан хойшлуул

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

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim objMail As MailItem
    Dim NewSendTime As String
    Dim bDelayMail As Boolean
    Dim nPrompt As Integer
 
    bDelayMail = True
 
    If TypeOf Item Is MailItem Then
       Set objMail = Item
 
       'Work on specific emails only
       'You can change the conditions as per your needs
       If objMail.Recipients.Item(1).Address = "boss@datanumen.com" Then
 
          Select Case Weekday(Date, vbMonday)
                 'Delay 2 days if today is Saturday
                 Case 6
                      NewSendTime = (Date + 2) & " 09:00:00"
                 'Delay 1 days if today is Saturday
                 Case 7
                      NewSendTime = (Date + 1) & " 09:00:00"
                 Case Else
                      If DatePart("h", Now) < 9 Then
                         'Delay to 9 o'clock if now is too early
                         NewSendTime = Date & " 09:00:00"
                      ElseIf DatePart("h", Now) > 18 Then
                         Select Case Weekday(Date, vbMonday)
                                'Delay 3 days if today is Friday and now is over 6 PM
                                Case 5
                                     NewSendTime = (Date + 3) & " 09:00:00"
                                'Delay to 9 o'clock if now is before 6 PM
                                Case Else
                                     NewSendTime = (Date + 1) & " 09:00:00"
                         End Select
                      Else
                         bDelayMail = False
                      End If
            End Select
 
            If bDelayMail = True And objMail.DeferredDeliveryTime = "1/1/4501" Then
               'Ask if to delay sending this email
               nPrompt = MsgBox("Outside Working Hours:" & vbCrLf & "Do you want to delay this email until " & NewSendTime & "?", vbYesNo + vbExclamation, "Delay Email")
 
               If nPrompt = vbYes Then
                  objMail.DeferredDeliveryTime = NewSendTime
               Else
                  objMail.DeferredDeliveryTime = "1/1/4501"
               End If
           End If
       End If
    End If
End Sub

6. Дараа нь та энэ имэйлд дижитал гэрчилгээ олгох шаардлагатай болно.
7. Дараа нь гарын үсэг зурсан макронуудыг зөвшөөрөхийн тулд Outlook макро тохиргоогоо өөрчил.
8. Одооноос эхлэн та урьдчилан тодорхойлсон шалгуурыг хангасан цахим шуудан илгээх болгондоо ажлын цагаас гадуур байвал дараах зураг шиг сануулга ирэх болно.
9. Хэрэв та "Тийм" гэснийг сонговол Outlook ажлын цаг хүртэл илгээгдэх болно.

Гэмтсэн Outlook файлуудыг аврах

Outlook нь тоо томшгүй олон шинж чанараараа маш их магтаал хүртсэн. Гэсэн хэдий ч энэ нь үхлийн аюултай дутагдалтай хэвээр байна. Энэ нь Outlook нь алдаа, эвдрэлд өртөмтгий байдаг. Тиймээс та Outlook файлуудаа тогтмол нөөцлөх хэрэгтэй. Энэ нь таныг Outlook-ийн өгөгдөл алдагдахаас сэргийлж чадна. Нэмж дурдахад, та засварын хүчирхэг хэрэгсэл, жишээ нь DataNumen Outlook RepairАль болох Outlook програмыг засах секундын дотор асуудал гарна.

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

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