Jeśli chcesz uniemożliwić sobie wysyłanie określonych e-maili poza godzinami pracy, możesz skorzystać z metody przedstawionej w tym artykule. Pozwala Outlookowi automatycznie sprawdzać, czy jest w godzinach pracy, kiedy wysyłasz określone e-maile i opóźniać to do godzin pracy.
Czasami redagowanie i wysyłanie wiadomości e-mail nie mieści się w godzinach pracy. W takim przypadku możesz opóźnić wysłanie tego e-maila do kolejnych godzin pracy. Ogólnie rzecz biorąc, możesz użyć natywnej funkcji „Opóźnienie dostarczania”, aby opóźnić takie e-maile. Jednak w ten sposób należy każdorazowo określić czas dostawy. To zbyt kłopotliwe. Poniżej udostępnimy Ci fragment kodu VBA, który może automatycznie sprawdzić, czy jest to w godzinach pracy, gdy wyślesz określoną wiadomość e-mail i szybko opóźnić jej wysłanie do godzin pracy.
Szybko opóźnij wysyłanie określonych wiadomości e-mail do godzin pracy
- Na samym początku uruchom program Outlook.
- Następnie na pojawiającym się głównym ekranie Outlooka możesz nacisnąć klawisze „Alt + F11”.
- Następnie uzyskasz dostęp do edytora Outlook VBA z powodzeniem.
- Następnie musisz zlokalizować i otworzyć projekt „ThisOutlookSession”.
- Następnie skopiuj następujący kod VBA do tego 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
- Później będziesz musiał przypisać do tego e-maila certyfikat cyfrowy.
- A następnie zmień ustawienia makr programu Outlook, aby zezwolić na podpisane makra.
- Od teraz za każdym razem, gdy wyślesz e-maile spełniające określone kryteria, jeśli jest to poza godzinami pracy, otrzymasz komunikat podobny do poniższego obrazka:
- Jeśli wybierzesz „Tak”, Outlook zaplanuje wysłanie do godzin pracy.
Uratuj uszkodzone pliki programu Outlook
Outlook zyskał wiele uznania dzięki niezliczonym funkcjom. Jednak nadal ma śmiertelną wadę. Oznacza to, że Outlook jest podatny na błędy i korupcję. Dlatego należy regularnie tworzyć kopie zapasowe plików programu Outlook. Może to zapobiec bolesnej utracie danych programu Outlook. Ponadto lepiej zaopatrz się w potężne narzędzie naprawcze, takie jak DataNumen Outlook Repair, Który może napraw Outlooka problemy w ciągu kilku sekund.
Wprowadzenie autora:
Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym odzyskiwanie mdf i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com