Cum se schimbă ora prestabilită pentru livrarea întârziată în Outlook?

Autor: Siluvia Ultima modificare: 2023-06-02

Când activați opțiunea de livrare întârziată ( Nu livrați înainte opțiunea din următoarea captură de ecran) pentru un e-mail în Outlook, ora de trimitere este setată implicit la 5:00 PM. Să presupunem că lucrezi noaptea târziu și nu vrei ca alții să știe că lucrezi peste program. Trebuie să activați opțiunea de livrare întârziată pentru e-mailurile dvs. înainte de a le trimite. După activarea opțiunii, trebuie să modificați manual ora implicită de trimitere. În caz contrar, e-mailul va fi trimis după ora 5:00 a doua zi. Există vreo modalitate de a modifica acest timp prestabilit de livrare?

Acest tutorial oferă un cod VBA pentru a vă ajuta să schimbați ora implicită pentru opțiunea de livrare întârziată în Outlook.

Schimbați timpul implicit pentru livrarea întârziată în Outlook cu codul VBA

Puteți aplica următorul cod VBA pentru a modifica ora implicită pentru opțiunea de livrare întârziată în Outlook.

În următorul cod VBA:

Puteți specifica de două ori: the întârzierea timpului de livrare si Timp de activare a opțiunii de livrare întârziată.

De exemplu, setați ora de livrare întârziată la 07:30 și setați opțiunea de livrare întârziată să fie activată automat după ora 5:30. Când trimiteți un e-mail în intervalul 07:30 AM - 5:30 PM, e-mailul va fi trimis direct. Dacă un e-mail este trimis în intervalul 5:30 – 07:30, acesta va fi programat să fie trimis după ora 07:30 a doua zi.

Vă rugăm să testați scriptul după cum urmează.

1. Lansați Outlook, apăsați butonul Alt + F11 tastele simultan pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. În Microsoft Visual Basic pentru aplicații fereastra, faceți dublu clic pe Project1 > Obiecte Microsoft Outlook > Această sesiune Outlook pentru a deschide ThisOutlookSession (Cod) fereastră, apoi copiați următorul cod în această fereastră de cod.

Cod VBA: modificați ora implicită pentru livrarea întârziată în Outlook

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'Updated by Extendoffice & EWP 20230602
  Const xDelayTime As String = "07:30:00"  'The delay delivery time of emails
  Const xCompareTime As String = "17:30:00" 'The time to enable the delay delivery option
  Dim xMail As Outlook.MailItem
  Dim xWeekday As Integer
  Dim xNowTime As String
  Dim xIsDelay As Boolean
  Dim xRet1 As Integer
  Dim xRet2 As Integer
  On Error GoTo xError
  If (Item.Class <> olMail) Then Exit Sub
  Set xMail = Item
  xWeekday = Weekday(Date, vbMonday)
  xNowTime = Format(Now, "hh:nn:ss")
  xIsDelay = False
  xRet1 = StrComp(xNowTime, xDelayTime)
  xRet2 = StrComp(xNowTime, xCompareTime)
  If xRet1 = xRet2 Then
    xIsDelay = True
  End If
  If (xRet1 = -1) And (xRet2 = -1) Then
    xMail.DeferredDeliveryTime = Date & " " & xDelayTime
  Else
    If ((xWeekday = 5) And xIsDelay) Or (xWeekday = 6) Or (xWeekday = 7) Then
      xMail.DeferredDeliveryTime = (Date + (5 - xWeekday + 3)) & " " & xDelayTime
    ElseIf xIsDelay Then
      xMail.DeferredDeliveryTime = (Date + 1) & " " & xDelayTime
    End If
  End If
Exit Sub
xError:
  MsgBox "ItemSend: " & Err.Description, , "Kutools for Outlook"
End Sub

note:

1) Puteți modifica timpul de întârziere și ora pentru a activa opțiunea de livrare întârziată în rândurile următoare.

Const xDelayTime As String = "07:30:00"

Const xCompareTime As String = "17:30:00"

2) Când trimiteți un e-mail în weekend, acesta va fi programat să fie trimis după ora 07:30 luni.

3. Salvați codul și apăsați tasta Alt + Q tastele pentru a închide Microsoft Visual Basic pentru aplicații fereastră.

De acum înainte, atunci când trimiteți un e-mail în intervalul 07:30 AM - 5:30 PM, e-mailul va fi trimis direct. Dacă un e-mail este trimis în intervalul 5:30 – 07:30, acesta va fi programat să fie trimis după ora 07:30 în următoarea zi lucrătoare.

Articole pe aceeași temă

Schimbați ora de memento implicită a evenimentelor de toată ziua în Outlook
În mod normal, timpul implicit de reamintire a evenimentului pe tot parcursul zilei este de 18 ore în Outlook 2007/2010 și 0.5 zile în Outlook 2013. Uneori, timpul implicit de reamintire al evenimentului pe tot parcursul zilei poate să nu fie de acord cu programul dvs. de lucru. Aici vom introduce modalitatea de a schimba timpul de memento implicit al evenimentelor de toată ziua în Microsoft Outlook.

Modificați timpul implicit de urmărire în Outlook
După cum știm, când adăugăm un memento de urmărire pentru un e-mail în Outlook, timpul implicit de urmărire este 4:30 (sau alt moment în funcție de programul dvs. de lucru). Cu toate acestea, vă recomandăm să modificați timpul de urmărire implicit și să îl lăsați să vă reamintească la începutul programului de lucru, cum ar fi 9:00 AM. În acest articol, vă voi arăta cum să modificați timpul de urmărire implicit în Outlook.

Schimbați locația implicită a arhivei în Outlook
În mod implicit, Outlook are locația implicită pentru fișierele de arhivă. Pe lângă locația implicită, puteți seta propria locație de arhivă pentru fișierele dvs. de arhivă. În acest tutorial, vă vom arăta cum să modificați locația implicită a arhivei în Outlook în detalii.

Modificați locația implicită de salvare a atașamentului în Outlook
V-ați săturat să găsiți locația atașamentului pe care ați specificat-o de fiecare dată când lansați Outlook? În acest tutorial, vă vom arăta cum să modificați locația implicită a atașamentului. După aceea, folderul specificat pentru salvarea atașamentelor va fi deschis automat de fiecare dată când salvați atașamentele, chiar dacă reporniți Outlook.

Schimbați setarea implicită a evenimentului pentru toată ziua la Ocupat în Outlook
În mod implicit, Outlook setează starea întâlnirilor și întâlnirilor la „Ocupat”, dar evenimentele de toată ziua la „Gratuit” (vezi captura de ecran de mai jos). Trebuie să schimbați manual starea Afișați ca la Ocupat de fiecare dată când creați un eveniment de toată ziua. Pentru a schimba afișarea implicită ca stare a evenimentelor de toată ziua la Ocupat, articolul vă oferă două metode.

Cele mai bune instrumente de productivitate de birou

Ultime știri: Kutools pentru lansări Outlook Versiune gratuită!

Experimentați noul Kutools pentru Outlook Versiune GRATUITĂ cu peste 70 de funcții incredibile, pe care o poți folosi PENTRU TOTDEAUNA! Faceți clic pentru a descărca acum!

🤖 Kutools AI : Utilizează tehnologia AI avansată pentru a gestiona e-mailurile fără efort, inclusiv pentru a răspunde, rezuma, optimiza, extinde, traduce și compune e-mailuri.

📧 Automatizare e-mail: Răspuns automat (disponibil pentru POP și IMAP) / Programați trimiterea de e-mailuri / CC/BCC automat după reguli la trimiterea e-mailului / Redirecționare automată (Reguli avansate) / Adăugare automată felicitare / Împărțiți automat e-mailurile cu mai mulți destinatari în mesaje individuale ...

📨 Managementul e-mail: Rechemare e-mailuri / Blocați e-mailurile înșelătorii de către subiecți și alții / Ștergeți e-mailurile duplicate / Cautare Avansata / Consolidați foldere ...

📁 Atașamente Pro: Salvați în serie / Detașare lot / Compresă în loturi / Salvare automata / Detașare automată / Comprimare automată ...

🌟 Magia interfeței: 😊Mai multe emoji drăguțe și cool / Amintește-ți când vin e-mailuri importante / Minimizați Outlook în loc să închideți ...

???? Minuni cu un singur clic: Răspundeți tuturor cu atașamentele primite / E-mailuri anti-phishing / 🕘Afișați fusul orar al expeditorului ...

👩🏼‍🤝‍👩🏻 Contacte și calendar: Adăugați în lot contacte din e-mailurile selectate / Împărțiți un grup de contact în grupuri individuale / Eliminați mementouri de ziua de naștere ...

Deblocați instantaneu Kutools pentru Outlook cu un singur clic—permanent liber. Nu așteptați, descărcați acum și creșteți-vă eficiența!