Hvis du trenger å hindre deg selv i å sende spesifikke e-poster utenom arbeidstiden, kan du bruke metoden vist i denne artikkelen. Det kan la Outlook automatisk sjekke om det er i arbeidstid når du sender spesifikke e-poster og utsette det til arbeidstid.
Noen ganger er tidspunktet du skriver og sender en e-post ikke innenfor arbeidstiden din. I dette tilfellet kan det være lurt å utsette sendingen av denne e-posten til påfølgende arbeidstid. Vanligvis kan du bruke den opprinnelige funksjonen "Forsinket levering" for å utsette slike e-poster. Men på den måten bør du spesifisere leveringstiden hver gang. Det er for plagsomt. Deretter vil vi dele deg et stykke VBA-kode, som kan automatisk sjekke om det er innenfor arbeidstiden når du sender en spesifikk e-post og raskt utsette sendingen til arbeidstiden.
Utsett raskt sending av spesifikke e-poster til arbeidstid
- Helt i begynnelsen starter du Outlook-programmet.
- Så i den nye Outlook-hovedskjermen kan du trykke "Alt + F11" -tastene.
- Deretter vil du få tilgang til Outlook VBA editor med suksess.
- Etter det må du finne og åpne "ThisOutlookSession" -prosjektet.
- Kopier deretter følgende VBA-kode inn i dette prosjektvinduet.
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
- Senere vil du bli bedt om å tildele et digitalt sertifikat til denne e-posten.
- Og endre deretter Outlook-makroinnstillingene for å tillate de signerte makroene.
- Fra nå av, hver gang du sender e-poster som oppfyller de forhåndsdefinerte kriteriene, hvis det er utenfor arbeidstid, vil du få en melding som følgende bilde:
- Hvis du velger "Ja", planlegger Outlook at den sendes ut til arbeidstid.
Redd skadede Outlook-filer
Outlook har fått mye ros på grunn av dets utallige funksjoner. Imidlertid har den fortsatt en dødelig feil. Det vil si at Outlook er utsatt for feil og korrupsjon. Derfor bør du sikkerhetskopiere Outlook-filene dine med jevne mellomrom. Det kan forhindre at du lider av smertefullt Outlook-datatap. I tillegg må du heller få tak i et mektig reparasjonsverktøy, som f.eks DataNumen Outlook Repair, som kan reparere Outlook problemer innen sekunder.
Forfatterintroduksjon:
Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert mdf gjenoppretting og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med