Outlook: Sut i ail-anfon e-bost yn awtomatig os nad oes ymateb

Pan fyddwch chi'n anfon e-bost at eich cydweithiwr neu bartner cydweithredol neu rywun ac angen ymateb ar frys, gallwch chi osod gosodiad e-bost ail-anfon yn awtomatig os nad yw'r ymateb wedi cyrraedd cyn amser penodedig.

Defnyddio Reminder a VBA i osod ail-anfon yn awtomatig os nad oes ymateb

Defnyddio Reminder a VBA i osod ail-anfon yn awtomatig os nad oes ymateb

Rhan 1: gosod nodyn atgoffa i atgoffa mewn amser penodol

1. De-gliciwch ar e-bost (o'r ffolder Eitemau Anfonwyd) yr ydych am ei ail-anfon os nad oes ymateb, yn y ddewislen popio cyd-destun, cliciwch Dilyniant > Ychwanegu Nodyn Atgoffa.

2. Yn y popping Custom deialog, cadwch y Nodyn Atgoffa blwch ticio, yna yn y cwymplenni isod, dewiswch ddyddiad ac amser yr ydych am i'r ymateb gyrraedd o'r blaen, a gallwch hefyd deipio'r dyddiad a'r amser yn y blychau yn uniongyrchol. Cliciwch OK.

Rhan 2: Mewnosod VBA i ailanfon e-byst os nad oes ymateb o fewn yr amser penodedig

3. Gwasgwch Alt + F11 allweddi i alluogi'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

4. Cliciwch ddwywaith SesiwnOutlook yn y Prosiect – Prosiect1 cwarel i greu sgript wag, a chopïwch a gludwch y cod VBA isod i'r sgript wag.

VBA: Ailanfon e-bost os nad oes ymateb

Public WithEvents GInboxItems As Outlook.Items
'UpdatebyExtendoffice20220413
Private Sub Application_Startup()
  Dim xInboxFld As Folder
  Set xInboxFld = Application.Session.GetDefaultFolder(olFolderInbox)
  Set GInboxItems = xInboxFld.Items
End Sub

'Judge
Private Sub GInboxItems_ItemAdd(ByVal Item As Object)
  Dim xSentItems As Outlook.Items
  Dim xMail As MailItem
  Dim i As Long
  Dim xSubject As String
  Dim xItemSubject As String
  Dim xSendTime As String
  On Error Resume Next
  Set xSentItems = Application.Session.GetDefaultFolder(olFolderSentMail).Items
  If Item.Class <> olMail Then Exit Sub
  For i = xSentItems.Count To 1 Step -1
    If xSentItems.Item(i).Class = olMail Then
      Set xMail = xSentItems.Item(i)
      xSubject = LCase(xMail.Subject)
      xSendTime = xMail.SentOn
      xItemSubject = LCase(Item.Subject)
      If (xItemSubject = "re: " & xSubject) Or (InStr(xItemSubject, xSubject) > 0) Then
        If Item.SentOn > xSendTime Then
           With xMail
             .ClearTaskFlag
             .ReminderSet = False
             .Save
           End With
        End If
      End If
    End If
  Next i
End Sub

'Reminder
Private Sub Application_Reminder(ByVal Item As Object)
  Dim xPrompt As String
  Dim xResponse As Integer
  Dim xFollowUpMail As Outlook.MailItem
  Dim xRcp As Recipient
  On Error Resume Next
  'Resend
  If (Item.Class <> olMail) Then Exit Sub
  xPrompt = "You haven't yet recieved the reply of " & Chr(34) & Item.Subject & Chr(34) & " within your expected time. Do you want to send a follow-up notification email?"
  xResponse = MsgBox(xPrompt, vbYesNo + vbQuestion, "Kutools for Outlook")
  If xResponse = vbNo Then Exit Sub
  Set xFollowUpMail = Application.CreateItem(olMailItem)
  With xFollowUpMail
    For Each xRcp In Item.Recipients
      .Recipients.Add (xRcp.Address)
    Next
    .Recipients.ResolveAll
    .Subject = "Follow Up: " & Chr(34) & Item.Subject & Chr(34)
    .Body = "Please respond to my email " & Chr(34) & Item.Subject & Chr(34) & "as soon as possible"
    .Attachments.Add Item
    .Display
  End With
End Sub

5. Arbedwch y cod, yna ewch yn ôl i'r prif ryngwyneb, cliciwch Ffeil > Dewisiadau ac yn the Opsiynau Outlook ffenestr, cliciwch Canolfan yr Ymddiriedolaeth yn y cwarel chwith, a chlicio Gosodiadau Canolfan Ymddiriedolaeth i alluogi'r Canolfan yr Ymddiriedolaeth ffenestr. Cliciwch Gosodiadau Macro a gwnewch yn siwr bod y Galluogi pob macros (heb ei argymell; gall cod a allai fod yn beryglus redeg) dewisir opsiwn yn yr adran gywir. Cliciwch OK > OK.

6. Nawr os nad yw'r e-bost a anfonwyd sydd wedi'i osod gyda nodyn atgoffa yn derbyn unrhyw ymateb pan fydd yr amser penodedig yn cyrraedd, mae deialog popio yn ymddangos i'ch atgoffa a ydych am ail-anfon e-bost i wneud hysbysiad.

7. Cliciwch Ydy, mae ffenestr neges yn ymddangos ac yn atodi'r e-bost blaenorol, a gallwch chi ail-wneud y corff a chlicio anfon i ail-anfon yr e-bost..

8. Cliciwch Na, bydd y nodyn atgoffa yn cael ei ddileu.

Nodyn： Os yw'r e-bost wedi'i ateb cyn yr amser penodedig, bydd VBA yn dileu'r nodyn atgoffa.

---

Offer Cynhyrchiant Swyddfa Gorau

Kutools ar gyfer Rhagolwg - Dros 100 o Nodweddion Pwerus i Werthu Eich Outlook

🤖 Cynorthwy-ydd Post AI: E-byst pro ar unwaith gyda hud AI - un clic i atebion athrylith, tôn berffaith, meistrolaeth amlieithog. Trawsnewid e-bostio yn ddiymdrech! ...

📧 E-bostio Automation: Allan o'r Swyddfa (Ar gael ar gyfer POP ac IMAP)  /  Amserlen Anfon E-byst  /  Auto CC/BCC gan Reolau Wrth Anfon E-bost  /  Awto Ymlaen (Rheolau Uwch)   /  Auto Ychwanegu Cyfarchiad   /  Rhannwch E-byst Aml-Dderbynnydd yn Negeseuon Unigol yn Awtomatig ...

📨 Rheoli E-bost: Dwyn i gof E-byst yn Hawdd  /  Rhwystro E-byst Sgam gan Bynciau ac Eraill  /  Dileu E-byst Dyblyg  /  Chwilio Manwl  /  Cydgrynhoi Ffolderi ...

📁 Ymlyniadau Pro: Arbed Swp  /  Swp Datgysylltu  /  Cywasgu Swp  /  Auto Achub   /  Datgysylltiad Auto  /  Cywasgiad Auto ...

🌟 Rhyngwyneb Hud: 😊Mwy o Emojis Pretty a Cŵl   /  Rhowch hwb i'ch Cynhyrchiant Outlook gyda Golygfeydd Tabbed  /  Lleihau Outlook Yn lle Cau ...

???? Rhyfeddodau un clic: Ateb Pawb ag Ymlyniadau Dod i Mewn  /   E-byst Gwrth-Gwe-rwydo  /  🕘Dangos Parth Amser yr Anfonwr ...

👩🏼‍🤝‍👩🏻 Cysylltiadau a Chalendr: Swp Ychwanegu Cysylltiadau O E-byst Dethol  /  Rhannwch Grŵp Cyswllt i Grwpiau Unigol  /  Dileu Atgoffa Pen-blwydd ...

Dros Nodweddion 100 Aros Eich Archwiliad! Cliciwch Yma i Ddarganfod Mwy.

Darllenwch fwy       Lawrlwythiad Am Ddim      prynu