Kako brzo odgoditi slanje određene e-pošte do radnog vremena u vašem Outlooku

Ako se trebate spriječiti u slanju određene e-pošte izvan radnog vremena, možete upotrijebiti metodu prikazanu u ovom članku. Može omogućiti Outlooku da automatski provjeri je li radno vrijeme kada šaljete određene e-poruke i odgodi ga do radnog vremena.

Ponekad vrijeme kada sastavljate i šaljete mail nije unutar vašeg radnog vremena. U tom slučaju, možda ćete htjeti odgoditi slanje ove e-pošte do sljedećeg radnog vremena. Općenito, možete koristiti izvornu značajku "Odgoda isporuke" za odgodu takve e-pošte. Međutim, na taj način morate svaki put navesti vrijeme isporuke. Previše je problematično. Nakon toga ćemo vam podijeliti dio VBA koda, koji može automatski provjeriti je li unutar radnog vremena kada pošaljete određenu e-poštu i brzo odgoditi slanje do radnog vremena.

Brzo odgodite slanje određenih e-poruka do radnog vremena

1. Na samom početku pokrenite svoj Outlook program.
2. Zatim na glavnom zaslonu programa Outlook možete pritisnuti tipke "Alt + F11".
3. Zatim ćete uspješno dobiti pristup uređivaču Outlook VBA.
4. Nakon toga trebate locirati i otvoriti projekt “ThisOutlookSession”.
5. Nakon toga kopirajte sljedeći VBA kod u ovaj prozor 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. Kasnije ćete morati dodijeliti digitalni certifikat ovoj e-pošti.
7. Zatim promijenite postavke Outlook makronaredbi da biste dopustili potpisane makronaredbe.
8. Od sada, svaki put kada pošaljete e-poštu koja zadovoljava unaprijed definirane kriterije, ako je izvan radnog vremena, dobit ćete upit poput sljedeće slike:
9. Ako odaberete "Da", Outlook će rasporediti slanje do radnog vremena.

Spašavanje oštećenih Outlook datoteka

Outlook je zaradio mnogo pohvala zbog svojih bezbrojnih značajki. Međutim, još uvijek ima smrtonosnu manu. Outlook je sklon pogreškama i oštećenjima. Stoga biste trebali redovito sigurnosno kopirati Outlook datoteke. Može vas spriječiti da patite od bolnog gubitka Outlook podataka. Osim toga, bolje bi bilo da nabavite moćan alat za popravak, kao što je DataNumen Outlook Repair, koji može popraviti Outlook pitanja u roku od nekoliko sekundi.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući mdf oporavak i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com