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

Outlook: Sådan sender du automatisk e-mail igen, hvis intet svar

Når du sender en e-mail til din kollega eller samarbejdspartner eller nogen og har brug for et svar hurtigt, kan du indstille en automatisk gensend e-mail-indstilling, hvis svaret ikke er ankommet inden et angivet tidspunkt.

Brug påmindelse og VBA til at indstille automatisk gensend, hvis intet svar

Fanen Office - Aktiver redigering og browsing med faner i Office, og gør arbejdet meget nemmere ...
Kutools til Outlook - bringer 100 kraftige avancerede funktioner til Microsoft Outlook
  • Auto CC / BCC ved regler, når du sender e-mail; Automatisk videresendelse Flere e-mails efter regler; Auto svar uden udvekslingsserver og flere automatiske funktioner ...
  • BCC Advarsel - vis besked, når du prøver at besvare alle, hvis din e-mail-adresse er på BCC-listen; Påmind, når du mangler vedhæftede filer, og mere minder funktioner ...
  • Besvar (alle) med alle vedhæftede filer i mailsamtalen; Besvar mange e-mails på én gang; Tilføj automatisk hilsen når svar Tilføj automatisk dato og tid til emne ...
  • Vedhæftningsværktøjer: Automatisk afmontering, Komprimer alt, Omdøb alt, Gem alle automatisk ... Hurtig rapport, Tæl valgte mails, Fjern duplikerede mails og kontakter ...
  • Mere end 100 avancerede funktioner vil løse de fleste af dine problemer i Outlook 2010-2019 og 365. Fuld funktioner 60-dages gratis prøveperiode.

Brug påmindelse og VBA til at indstille automatisk gensend, hvis intet svar

 

Del 1: Indstil en påmindelse til påmindelse inden for et bestemt tidspunkt

1. Højreklik på en e-mail (fra mappen Sendte elementer), som du vil sende igen, hvis der ikke er noget svar, i den åbne kontekstmenu, klik på Opfølgning > Tilføj påmindelse.

doc send igen, hvis intet svar 1

2. I popping Tilpasset dialog, skal du holde Påmindelse afkrydsningsfeltet er markeret, og vælg derefter en dato og et klokkeslæt i nedenstående drop-down bokse, som du vil have svaret ankom før, og du kan også indtaste dato og klokkeslæt direkte i felterne. Klik OK.

doc send igen, hvis intet svar 1 doc send igen, hvis intet svar 1

Del 2: Indsæt en VBA for at sende e-mails igen, hvis intet svar inden for den angivne tid

3. Trykke andre + F11 for at aktivere Microsoft Visual Basic til applikationer vindue.

4. Dobbeltklik Denne OutlookSession i Projekt – Projekt 1 rude for at oprette et tomt script, og kopier og indsæt nedenstående VBA-kode i det tomme script.

VBA: Send e-mail igen, hvis intet 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. Gem koden, gå derefter tilbage til hovedgrænsefladen, klik filet > Indstillinger og i the Outlook-indstillinger vindue, skal du klikke på Trust Center i venstre rude, og klik på Indstillinger for tillidscenter at aktivere Trust Center vindue. Klik Makroindstillinger og sørg for, at Aktivér alle makroer (anbefales ikke; potentielt farlig kode kan køre) mulighed er valgt i højre sektion. Klik OK > OK.

doc send igen, hvis intet svar 1

doc send igen, hvis intet svar 1

6. Nu, hvis den sendte e-mail, som er blevet indstillet med en påmindelse, ikke modtager noget svar, når det angivne tidspunkt kommer, popper en pop-dialog frem for at minde dig om, hvorvidt du skal sende en e-mail igen for at give en notifikation.

doc send igen, hvis intet svar 1

7. klik Ja, dukker et meddelelsesvindue ud og vedhæfter den forrige e-mail, og du kan redigere brødteksten igen og klikke Send for at sende mailen igen..

doc send igen, hvis intet svar 1

8. klik Ingen, vil påmindelsen blive slettet.

doc send igen, hvis intet svar 1

Bemærk: Hvis e-mailen er blevet besvaret inden det angivne tidspunkt, vil påmindelsen blive fjernet af VBA.


Kutools til Outlook - bringer 100 avancerede funktioner til Outlook, og gør arbejdet meget nemmere!

  • Auto CC / BCC ved regler, når du sender e-mail; Automatisk videresendelse Flere e-mails efter brugerdefineret; Auto svar uden udvekslingsserver og flere automatiske funktioner ...
  • BCC Advarsel - vis besked, når du prøver at besvare alle hvis din e-mail-adresse er på BCC-listen; Påmind, når du mangler vedhæftede filer, og mere minder funktioner ...
  • Svar (alle) med alle vedhæftede filer i mailsamtalen; Besvar mange e-mails på få sekunder Tilføj automatisk hilsen når svar Tilføj dato til emne ...
  • Vedhæftningsværktøjer: Administrer alle vedhæftede filer i alle mails, Automatisk afmontering, Komprimer alle, Omdøb alt, Gem alle ... Hurtig rapport, Tæl valgte mails...
  • Kraftige uønskede e-mails efter skik; Fjern duplikerede mails og kontakter... Gør dig i stand til at gøre smartere, hurtigere og bedre i Outlook.
shot kutools outlook kutools fane 1180x121
shot kutools outlook kutools plus fane 1180x121
 
Sorter kommentarer efter
Kommentarer (0)
Ingen vurderinger endnu. Vær den første til at bedømme!
Der er endnu ingen kommentarer her
Efterlad dine kommentarer
Sender som gæst
×
Bedøm dette indlæg:
0  Tegn
Foreslåede steder