Outlook: Hur man skickar e-post automatiskt om inget svar

När du skickar ett e-postmeddelande till din kollega eller samarbetspartner eller någon och behöver ett svar omgående, kan du ställa in en inställning för automatisk återsändning av e-post om svaret inte har kommit före en angiven tid.

Använd påminnelse och VBA för att ställa in automatisk återsändning om inget svar

Använd påminnelse och VBA för att ställa in automatisk återsändning om inget svar

Del 1: ställ in en påminnelse att påminna inom en angiven tid

1. Högerklicka på ett e-postmeddelande (från mappen Skickade objekt) som du vill skicka igen om inget svar, i snabbmenyn, klicka på FÖLJA UPP > Lägg till påminnelse.

2. I popping Custom dialogrutan, behåll påminnelse kryssrutan markerad, välj sedan ett datum och en tid som du vill att svaret ska ha kommit innan i rullgardinsrutorna nedan. Du kan även skriva in datum och tid direkt i rutorna. Klick OK.

Del 2: Infoga en VBA för att skicka om e-postmeddelanden om inget svar inom den angivna tiden

3. Tryck andra + F11 för att aktivera Microsoft Visual Basic för applikationer fönster.

4. Dubbelklicka ThisOutlookSession i Projekt – Projekt1 rutan för att skapa ett tomt skript, och kopiera och klistra in nedanstående VBA-kod i det tomma skriptet.

VBA: Skicka e-post igen om inget svar

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. Spara koden, gå sedan tillbaka till huvudgränssnittet, klicka Fil > Tillbehör och i the Outlook-alternativ fönstret klickar trust Center i den vänstra rutan och klicka Trust Center Settings för att aktivera trust Center fönster. Klick Makroinställningar och se till att Aktivera alla makron (rekommenderas inte, potentiellt farlig kod kan köras) alternativet är valt i det högra avsnittet. Klick OK > OK.

6. Om nu det skickade e-postmeddelandet som har ställts in med en påminnelse inte får något svar när den angivna tiden kommer, dyker en popparande dialog upp för att påminna dig om du ska skicka ett e-postmeddelande igen för att göra ett meddelande.

7. klick Ja, ett meddelandefönster dyker upp och bifogar det föregående e-postmeddelandet, och du kan redigera om brödtexten och klicka Skicka för att skicka mejlet igen..

8. klick Nej, kommer påminnelsen att raderas.

Anmärkningar： Om mejlet har besvarats före den angivna tiden kommer påminnelsen att tas bort av VBA.

---

Bästa kontorsproduktivitetsverktyg

Kutools för Outlook - Över 100 kraftfulla funktioner för att överladda din Outlook

🤖 AI Mail Assistant: Instant proffs-e-postmeddelanden med AI-magi – ett klick för geniala svar, perfekt ton, flerspråkig behärskning. Förvandla e-post utan ansträngning! ...

📧 Email Automation: Frånvaro (tillgänglig för POP och IMAP)  /  Schemalägg Skicka e-post  /  Auto CC/BCC enligt regler när du skickar e-post  /  Automatisk vidarebefordran (avancerade regler)   /  Lägg automatiskt till hälsning   /  Dela automatiskt e-postmeddelanden med flera mottagare i individuella meddelanden ...

📨 Email Management: Hämta enkelt e-postmeddelanden  /  Blockera bluff-e-postmeddelanden av ämnen och andra  /  Ta bort duplicerade e-postmeddelanden  /  Avancerad Sökning  /  Konsolidera mappar ...

📁 Bilagor Pro: Batch Spara  /  Batch lossa  /  Batchkomprimera  /  Automatisk sparning   /  Auto Lossa  /  Automatisk komprimering ...

🌟 Gränssnittsmagi: 😊 Fler vackra och coola emojis   /  Öka din Outlook-produktivitet med flikar  /  Minimera Outlook istället för att stänga ...

👍 Underverk med ett klick: Svara alla med inkommande bilagor  /   E-postmeddelanden mot nätfiske  /  🕘Visa avsändarens tidszon ...

👩🏼‍🤝‍👩🏻 Kontakter och kalender: Lägg till kontakter i grupp från valda e-postmeddelanden  /  Dela upp en kontaktgrupp till individuella grupper  /  Ta bort påminnelser om födelsedag ...

Över 100 funktioner Vänta på din utforskning! Klicka här för att upptäcka mer.

Läs mer       Gratis nedladdning      Inköp