Note: The other languages of the website are Google-translated. Back to English

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

Tab Swyddfa - Galluogi Golygu a Phori Tabbed yn y Swyddfa, a Gwneud Gwaith yn Haws Orau ...
Kutools for Outlook - Yn Dod â 100 o Nodweddion Uwch Pwerus i Microsoft Outlook
  • Auto CC / BCC yn ôl rheolau wrth anfon e-bost; Auto Ymlaen E-byst Lluosog yn ôl rheolau; Ymateb Auto heb weinydd cyfnewid, a nodweddion mwy awtomatig ...
  • Rhybudd BCC - dangos neges pan geisiwch ateb popeth os yw'ch cyfeiriad post yn rhestr BCC; Atgoffwch Wrth Ymlyniadau ar Goll, a mwy o nodweddion atgoffa ...
  • Ymateb (Pawb) Gyda'r Holl Atodiadau yn y sgwrs bost; Ateb Llawer o E-byst ar unwaith; Auto Ychwanegu Cyfarchiad wrth ateb; Auto Ychwanegu Dyddiad ac Amser yn destun ...
  • Offer Ymlyniad: Auto Detach, Cywasgu Pawb, Ail-enwi Pawb, Auto Save All ... Adroddiad Cyflym, Cyfrif Postiau Dethol, Tynnwch y Post a Chysylltiadau Dyblyg ...
  • Bydd mwy na 100 o nodweddion uwch datrys y rhan fwyaf o'ch problemau yn Outlook 2010-2019 a 365. Nodweddion llawn treial am ddim 60 diwrnod.

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.

ailanfonwch y ddogfen os nad oes ymateb 1

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.

ailanfonwch y ddogfen os nad oes ymateb 1 ailanfonwch y ddogfen os nad oes ymateb 1

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.

ailanfonwch y ddogfen os nad oes ymateb 1

ailanfonwch y ddogfen os nad oes ymateb 1

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.

ailanfonwch y ddogfen os nad oes ymateb 1

7. Cliciwch Oes, 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..

ailanfonwch y ddogfen os nad oes ymateb 1

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

ailanfonwch y ddogfen os nad oes ymateb 1

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


Kutools for Outlook - Yn Dod â 100 o Nodweddion Uwch i'w Rhagweld, a Gwneud Gwaith yn Haws Osgach!

  • Auto CC / BCC yn ôl rheolau wrth anfon e-bost; Auto Ymlaen E-byst Lluosog yn ôl arfer; Ymateb Auto heb weinydd cyfnewid, a nodweddion mwy awtomatig ...
  • Rhybudd BCC - dangoswch neges pan geisiwch ateb popeth os yw'ch cyfeiriad post yn rhestr BCC; Atgoffwch Wrth Ymlyniadau ar Goll, a mwy o nodweddion atgoffa ...
  • Ymateb (Pawb) Gyda'r Holl Atodiadau yn y sgwrs bost; Ateb Llawer o E-byst mewn eiliadau; Auto Ychwanegu Cyfarchiad wrth ateb; Ychwanegu Dyddiad i'r pwnc ...
  • Offer Ymlyniad: Rheoli Pob Atodiad ym mhob Post, Datgysylltiad Auto, Cywasgu Pawb, Ail-enwi Pawb, Arbed Pawb ... Adroddiad Cyflym, Cyfrif Postiau Dethol...
  • E-byst Sothach Pwerus yn ôl arfer; Tynnwch y Post a Chysylltiadau Dyblyg... Yn eich galluogi i wneud yn ddoethach, yn gyflymach ac yn well yn Outlook.
tab kutools rhagweld kutools tab 1180x121
kutools rhagweld rhagolygon kutools ynghyd â thab 1180x121
 
sylwadau (0)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0  Cymeriadau
Lleoliadau a Awgrymir