Жұмыс уақытынан тыс уақытта белгілі бір электрондық хаттарды жіберуге жол бермеу қажет болса, осы мақалада көрсетілген әдісті қолдануға болады. Ол Outlook бағдарламасына нақты электрондық хаттарды жіберген кезде оның жұмыс уақытында екенін автоматты түрде тексеруге және оны жұмыс уақытына дейін кідіртуге мүмкіндік береді.
Кейде хат жазу және жіберу уақыты жұмыс уақытында болмайды. Бұл жағдайда сіз осы электрондық поштаны жіберуді келесі жұмыс уақытына дейін кешіктіргіңіз келуі мүмкін. Жалпы, мұндай электрондық хаттарды кешіктіру үшін жергілікті «Жеткізуді кешіктіру» мүмкіндігін пайдалануға болады. Дегенмен, осылайша сіз әр уақытта жеткізу уақытын көрсетуіңіз керек. Бұл тым қиын. Бұдан әрі біз сізге белгілі бір электрондық поштаны жіберген кезде оның жұмыс уақытында екенін автоматты түрде тексеретін және оны жұмыс уақытына дейін жіберуді жылдам кешіктіретін VBA кодының бір бөлігін бөлісеміз.
Арнайы электрондық хаттарды жіберуді жұмыс уақытына дейін жылдам кешіктіріңіз
- Ең басында Outlook бағдарламасын іске қосыңыз.
- Содан кейін пайда болатын Outlook негізгі экранында «Alt + F11» пернелерін басуға болады.
- Содан кейін сіз Outlook VBA редакторына сәтті қол жеткізесіз.
- Осыдан кейін сіз «ThisOutlookSession» жобасын тауып, ашуыңыз керек.
- Осы жобаның терезесіне келесі VBA кодын көшіріңіз.
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
- Кейінірек сізден осы электрондық поштаға сандық сертификат тағайындау қажет болады.
- Содан кейін қол қойылған макростарға рұқсат беру үшін Outlook макрос параметрлерін өзгертіңіз.
- Бұдан былай, алдын ала анықталған критерийлерге сәйкес келетін электрондық хаттарды жіберген сайын, егер ол жұмыс уақытынан тыс болса, келесі сурет сияқты хабар аласыз:
- «Иә» опциясын таңдасаңыз, Outlook оны жұмыс уақытына дейін жіберуді жоспарлайды.
Зақымдалған Outlook файлдарын құтқару
Outlook өзінің көптеген мүмкіндіктерінің арқасында көптеген мақтауларға ие болды. Дегенмен, оның әлі де өлімге әкелетін кемшілігі бар. Яғни, Outlook қателер мен сыбайлас жемқорлыққа бейім. Сондықтан Outlook файлдарының сақтық көшірмесін жүйелі түрде жасап тұру керек. Бұл Outlook деректерінің ауыр жоғалуынан сақтайды. Бұған қоса, сіз сияқты күшті жөндеу құралын алғаныңыз жөн DataNumen Outlook Repairмүмкін Outlook бағдарламасын жөндеу секундтар ішінде мәселелер.
Автордың кіріспесі:
Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. mdf қалпына келтіру және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com