Kuinka lykätä tiettyjen sähköpostien lähettämistä nopeasti Outlookin työaikaan

Jos haluat estää itseäsi lähettämästä tiettyjä sähköposteja työajan ulkopuolella, voit käyttää tässä artikkelissa esitettyä menetelmää. Se voi antaa Outlookin tarkistaa automaattisesti, onko se työaika, kun lähetät tiettyjä sähköposteja, ja viivästyttää sitä työaikaan.

Joskus sähköpostin kirjoittaminen ja lähettäminen ei ole työaikasi sisällä. Tässä tapauksessa saatat haluta lykätä tämän sähköpostin lähettämistä seuraaviin työaikoihin. Yleensä voit käyttää alkuperäistä "Viivetä toimitusta" -ominaisuutta viivyttääksesi tällaisia ​​sähköposteja. Tällä tavalla sinun tulee kuitenkin määrittää toimitusaika joka kerta. Se on liian hankalaa. Sen jälkeen jaamme sinulle palan VBA-koodia, joka voi automaattisesti tarkistaa, onko se työajan sisällä, kun lähetät tietyn sähköpostin, ja viivästyttää sen lähettämistä nopeasti työaikaan.

Viivyttää tiettyjen sähköpostien lähettämistä nopeasti työaikaan asti

1. Käynnistä Outlook-ohjelma heti alusta.
2. Sitten tulevassa Outlookin päänäytössä voit painaa "Alt + F11" -näppäimiä.
3. Seuraavaksi saat pääsyn Outlook VBA -editoriin onnistuneesti.
4. Sen jälkeen sinun on löydettävä ja avattava "ThisOutlookSession" -projekti.
5. Kopioi sitten seuraava VBA-koodi tähän projektiikkunaan.

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. Myöhemmin sinun on liitettävä digitaalinen varmenne tähän sähköpostiin.
7. Muuta sitten Outlook-makroasetuksia sallimaan allekirjoitetut makrot.
8. Tästä eteenpäin aina kun lähetät ennalta määritetyt kriteerit täyttäviä sähköposteja, jos se on työajan ulkopuolella, saat seuraavan kuvan kaltaisen kehotteen:
9. Jos valitset Kyllä, Outlook ajoittaa sen lähetettäväksi työaikaan asti.

Pelasta vahingoittuneet Outlook-tiedostot

Outlook on ansainnut paljon kiitosta lukemattomista ominaisuuksistaan. Siinä on kuitenkin edelleen tappava puute. Tämä tarkoittaa, että Outlook on altis virheille ja korruptiolle. Siksi sinun pitäisi varmuuskopioida Outlook-tiedostosi säännöllisesti. Se voi estää sinua kärsimästä tuskallisista Outlook-tietojen katoamisesta. Lisäksi kannattaa hankkia mahtava korjaustyökalu, esim DataNumen Outlook Repair, joka voi korjata Outlook ongelmia sekunneissa.

Tekijän esittely:

Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien mdf-palautus ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com