Ako rýchlo odložiť odosielanie konkrétnych e-mailov do pracovnej doby v programe Outlook

Ak si chcete zabrániť v odosielaní konkrétnych e-mailov mimo pracovnej doby, môžete použiť metódu uvedenú v tomto článku. Môže umožniť Outlooku automatickú kontrolu, či je v pracovnej dobe, keď posielate konkrétne e-maily, a oneskoriť ju do pracovnej doby.

Čas, keď napíšete a pošlete poštu, niekedy nie je v rámci vašej pracovnej doby. V takom prípade možno budete chcieť odložiť odoslanie tohto e-mailu do nasledujúcej pracovnej doby. Spravidla môžete na oneskorenie takýchto e-mailov použiť natívnu funkciu „Oneskoriť doručenie“. Týmto spôsobom by ste však mali vždy určiť čas dodania. Je to príliš problematické. Ďalej vám poskytneme časť kódu VBA, ktorá dokáže automaticky skontrolovať, či je v pracovnej dobe, keď pošlete konkrétny e-mail, a rýchlo odložiť jeho odoslanie do pracovnej doby.

Rýchlo odložte posielanie konkrétnych e-mailov do pracovnej doby

1. Hneď na začiatku spustite program Outlook.
2. Na vznikajúcej hlavnej obrazovke Outlooku potom môžete stlačiť klávesy „Alt + F11“.
3. Ďalej získate úspešný prístup k editoru Outlook VBA.
4. Potom musíte vyhľadať a otvoriť projekt „ThisOutlookSession“.
5. Následne skopírujte nasledujúci kód VBA do tohto okna projektu.

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. Neskôr budete musieť tomuto e-mailu priradiť digitálny certifikát.
7. A potom zmeňte nastavenie makier programu Outlook tak, aby umožňovalo podpísanie makier.
8. Od tejto chvíle dostanete zakaždým, keď pošlete e-maily, ktoré spĺňajú vopred definované kritériá, mimo pracovnej doby, výzvu, ako je nasledujúci obrázok:
9. Ak vyberiete možnosť „Áno“, program Outlook naplánuje jeho odoslanie do pracovnej doby.

Záchrana poškodených súborov programu Outlook

Vďaka svojim nespočetným funkciám si program Outlook zaslúžil veľa sláva. Stále však má smrtiacu chybu. To je Outlook je náchylný k chybám a poškodeniu. Preto by ste mali pravidelne zálohovať svoje súbory programu Outlook. Môže vám zabrániť bolestivej strate údajov v Outlooku. Okrem toho by ste sa mali lepšie zmocniť mocného nástroja na opravu, ako je napr DataNumen Outlook Repair, ktorý môže opraviť Outlook problémy do niekoľkých sekúnd.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane zotavenie mdf a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S