Outlook: Conas ríomhphost a athsheoladh go huathoibríoch mura bhfuil freagra ann

Nuair a sheolann tú ríomhphost chuig do chomhghleacaí nó do pháirtí comharchumainn nó chuig duine éigin agus go dteastaíonn freagra práinneach uait, is féidir leat socrú ríomhphoist athsheolaidh uathoibríoch a shocrú mura bhfuil an freagra tagtha roimh am sonraithe.

Ag baint úsáide as Meabhrúchán agus VBA chun athsheoladh uathoibríoch a shocrú mura bhfuil freagra ann

Cluaisín Oifige - Cumasaigh Eagarthóireacht agus Brabhsáil Tábáilte i Microsoft Office, Ag Cur le hObair

Leigh Nios mo...Íoslódáil ...

Kutools le haghaidh Outlook - Treisiú Outlook le 100+ Gnéithe Casta le haghaidh Éifeachtúlacht Superior

Uathoibriú ríomhphost le Auto CC / BCC, Auto Ar Aghaidh le rialacha; seol Freagra Auto (As Oifig) gan freastalaí malartaithe a bheith ag teastáil...
Faigh meabhrúcháin cosúil le Rabhadh BCC nuair a thugann tú freagra ar gach duine agus tú ar an liosta BCC, agus Meabhraigh Nuair a bhíonn Ceangaltáin ar Iarraidh le haghaidh ceangaltán dearmadta...
Feabhas a chur ar éifeachtacht ríomhphoist le Freagra (Gach) Le Ceangaltáin, Auto Cuir Beannacht nó Dáta & Am isteach i Síniú nó Ábhar, Freagair Ríomhphoist Il...
Sruthlínigh ríomhphost le Ríomhphoist a Athghairm, Uirlisí Ceangail (Comhbhrúigh Uile, Sábháil Uile...), Bain Dúblaigh, agus Tuarascáil Thapa...

Treisigh do Outlook 2021 - 2010 nó Outlook 365 leis na hardghnéithe seo. Bain sult as triail chuimsitheach 60-lá saor in aisce agus ardaigh do thaithí ríomhphoist!

Leigh Nios mo...Íoslódáil ...

Ag baint úsáide as Meabhrúchán agus VBA chun athsheoladh uathoibríoch a shocrú mura bhfuil freagra ann

Cuid 1: meabhrúchán a shocrú le cur i gcuimhne in am sonraithe

1. Cliceáil ar dheis ar ríomhphost (ón bhfillteán Míreanna Seolta) a theastaíonn uait a athsheoladh mura bhfuil freagra ann, sa roghchlár comhthéacs popping, cliceáil Leanúint suas > Cuir Meabhrúchán.

doc a athsheol mura bhfuil freagra 1

2. Sa popping An Chustaim dialóg, coinnigh an Meabhrúchán tic sa bhosca, ansin sna boscaí anuas, roghnaigh an dáta agus an t-am a theastaíonn uait go dtiocfaidh an freagra roimhe, chomh maith leis sin is féidir leat an dáta agus an t-am a chlóscríobh go díreach sna boscaí. Cliceáil OK.

doc a athsheol mura bhfuil freagra 1

Cuid 2: Cuir isteach VBA chun ríomhphoist a athsheoladh mura bhfuil freagra ann san am sonraithe

3. Brúigh Eile + F11 eochracha chun an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

4. Cliceáil dúbailte ThisOutlookSession sa Tionscadal – Tionscadal1 pane chun script bhán a chruthú, agus cóipeáil agus greamaigh an cód VBA thíos isteach sa script bhán.

VBA: Seol ríomhphost arís mura bhfuil freagra ann

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. Sábháil an cód, ansin dul ar ais go dtí an príomh-chomhéadan, cliceáil Comhad > Roghanna agus sa úe Roghanna Outlook fuinneog, cliceáil Ionad Iontaobhas sa phána chlé, agus cliceáil Socruithe Ionad Iontaobhais chun a chumasú Ionad Iontaobhas fuinneog. Cliceáil Socruithe Macra agus déan cinnte go bhfuil an Cumasaigh gach macraí (ní mholtar; is féidir cód a d’fhéadfadh a bheith contúirteach a rith) roghnaítear an rogha sa chuid ceart. Cliceáil OK > OK.

doc a athsheol mura bhfuil freagra 1

6. Anois mura bhfaighidh an ríomhphost seolta agus atá socraithe le meabhrúchán freagra ar bith nuair a shroicheann an t-am sonraithe, tagann dialóg popping amach chun a chur i gcuimhne duit cé acu is ceart ríomhphost a sheoladh arís chun fógra a thabhairt.

doc a athsheol mura bhfuil freagra 1

7. cliceáil Is ea, tagann fuinneog teachtaireachta amach agus ceangail an ríomhphost roimhe seo, agus is féidir leat an corp a atheagrú agus cliceáil Seol chun an ríomhphost a sheoladh ar ais..

doc a athsheol mura bhfuil freagra 1