Kako v svojem Outlooku hitro odložiti pošiljanje določenih e-poštnih sporočil do delovnega časa

Če se želite izogniti pošiljanju določenih e-poštnih sporočil izven delovnega časa, lahko uporabite metodo, prikazano v tem članku. Outlooku lahko omogoči, da samodejno preveri, ali je v delovnem času, ko pošljete določena e-poštna sporočila, in ga odloži do delovnega časa.

Včasih čas, ko sestavljate in pošiljate pošto, ni v vašem delovnem času. V tem primeru boste morda želeli odložiti pošiljanje tega e-poštnega sporočila do naslednjega delovnega časa. Na splošno lahko za zakasnitev takih e-poštnih sporočil uporabite izvorno funkcijo »Zakasnitev dostave«. Vendar bi morali tako vsakič določiti čas dostave. Preveč je težavno. Nato vam bomo delili del kode VBA, ki lahko samodejno preveri, ali je v delovnem času, ko pošljete določeno e-pošto, in hitro odloži pošiljanje do delovnega časa.

Hitro odložite pošiljanje določenih e-poštnih sporočil do delovnega časa

1. Na začetku zaženite program Outlook.
2. Nato lahko na nastajajočem glavnem zaslonu Outlooka pritisnete tipki »Alt + F11«.
3. Nato boste uspešno dobili dostop do urejevalnika Outlook VBA.
4. Po tem morate poiskati in odpreti projekt »ThisOutlookSession«.
5. Nato kopirajte naslednjo kodo VBA v to okno projekta.

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. Kasneje boste morali tej e-pošti dodeliti digitalno potrdilo.
7. In nato spremenite nastavitve Outlookovih makrov, da dovolite podpisane makre.
8. Odslej boste vsakič, ko boste pošiljali e-poštna sporočila, ki ustrezajo vnaprej določenim kriterijem, zunaj delovnega časa, prejeli poziv, podoben naslednji sliki:
9. Če izberete »Da«, bo Outlook razporedil pošiljanje do delovnega časa.

Rešite poškodovane Outlookove datoteke

Outlook si je zaradi neštetih funkcij prislužil veliko pohval. Vendar ima še vedno smrtonosno napako. To pomeni, da je Outlook nagnjen k napakam in poškodbam. Zato bi morali redno varnostno kopirati Outlookove datoteke. Lahko prepreči bolečo izgubo podatkov Outlook. Poleg tega je bolje, da si priskrbite zmogljivo orodje za popravilo, kot je npr DataNumen Outlook Repair, ki lahko popravilo Outlook težave v nekaj sekundah.

Uvod avtorja:

Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z izterjava mdf in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com