Outlook: Sähköpostin automaattinen uudelleenlähetys, jos vastausta ei ole
Kun lähetät sähköpostia kollegallesi tai yhteistyökumppanillesi tai jollekulle ja tarvitset pikaisesti vastauksen, voit asettaa automaattisen uudelleenlähetyksen asetuksen, jos vastaus ei ole saapunut tiettyyn aikaan.
Muistutuksen ja VBA:n käyttäminen automaattisen uudelleenlähetyksen asettamiseen, jos ei vastausta
Muistutuksen ja VBA:n käyttäminen automaattisen uudelleenlähetyksen asettamiseen, jos ei vastausta
Osa 1: aseta muistutus muistuttamaan tietyn ajan kuluessa
1. Napsauta hiiren kakkospainikkeella sähköpostiviestiä (Lähetetyt-kansiosta), jonka haluat lähettää uudelleen, jos et vastaa, napsauta avautuvasta kontekstivalikosta "Seuranta" > "Lisää muistutus".
2. Pidä ponnahdusikkunassa "Muokattu"-valintaruutu "Muistutus"-valintaruutu valittuna ja valitse alla olevista avattavista ruuduista päivämäärä ja kellonaika, jota ennen haluat vastauksen saapuvan. Voit myös kirjoittaa päivämäärän ja kellonajan suoraan ruutuihin. Napsauta "OK".
Osa 2: Lisää VBA lähettääksesi sähköpostit uudelleen, jos et vastaa määritetyssä ajassa
3. Ota "Microsoft Visual Basic for Applications" -ikkuna käyttöön painamalla "Alt" + "F11" -näppäimiä.
4. Luo tyhjä komentosarja kaksoisnapsauttamalla "ThisOutlookSession" "Project – Project1" -ruudussa ja kopioi ja liitä alla oleva VBA-koodi tyhjään komentosarjaan.
VBA: Lähetä sähköposti uudelleen, jos et vastaa
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 received 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 Sub5. Tallenna koodi, palaa sitten pääkäyttöliittymään, napsauta "Tiedosto" > "Asetukset" ja napsauta "Outlook-asetukset" -ikkunassa "Trust Center" vasemmassa ruudussa ja napsauta "Trust Center Settings" ottaaksesi "Trust Center" -ikkunan käyttöön. Napsauta "Makroasetukset" ja varmista, että "Ota kaikki makrot käyttöön (ei suositella; mahdollisesti vaarallinen koodi voidaan suorittaa)" on valittu oikeasta osiosta. Napsauta "OK" > "OK".
6. Jos nyt lähetetty sähköposti, johon on asetettu muistutus, ei saa vastausta, kun määritetty aika koittaa, ponnahtaa esiin ponnahdusikkuna, joka muistuttaa, lähetetäänkö sähköpostiviesti uudelleen ilmoituksen tekemiseksi.
7. Napsauta "Kyllä", viesti-ikkuna avautuu ja liittää edellisen sähköpostin. Voit muokata tekstiä uudelleen ja lähettää sähköpostin uudelleen napsauttamalla "Lähetä".
8. Napsauta "Ei", muistutus poistetaan.
Huomautus: Jos sähköpostiin on vastattu ennen määritettyä aikaa, VBA poistaa muistutuksen.
Parhaat toimiston tuottavuustyökalut
Breaking News: Kutools for Outlook julkaisee ilmaisen version!
Koe täysin uusi Kutools for Outlook ILMAINEN versio, jossa on yli 70 uskomatonta ominaisuutta, sinun käytössäsi IKUISESTI! Lataa nyt napsauttamalla!
📧 Sähköpostiautomaatio: Automaattinen vastaus (saatavilla POP:lle ja IMAP:lle) / Ajoita sähköpostien lähettäminen / Automaattinen CC/BCC sääntöjen mukaan lähetettäessä sähköpostia / Automaattinen edelleenlähetys (lisäsäännöt) / Automaattinen tervehdys / Jaa usean vastaanottajan sähköpostit automaattisesti yksittäisiksi viesteiksi ...
📨 Sähköposti Management: Muista sähköpostit / Estä huijaussähköpostit aiheiden ja muiden taholta / Poista päällekkäiset sähköpostit / Tarkennettu Haku / Yhdistä kansiot ...
📁 Liitteet Pro: Erätallennus / Erä Irrota / Eräpakkaus / Automaattinen tallennus / Automaattinen irrotus / Automaattinen pakkaus ...
🌟 Interface Magic: 😊Lisää kauniita ja siistejä emojia / Muistuttaa sinua tärkeistä sähköpostiviesteistä / Minimoi Outlook sulkemisen sijaan ...
???? Yhden napsautuksen Wonders: Vastaa kaikkiin liitteillä / Tietojenkalastelun vastaiset sähköpostit / 🕘Näytä lähettäjän aikavyöhyke ...
👩🏼🤝👩🏻 Yhteystiedot ja kalenteri: Erä Lisää yhteystietoja valituista sähköpostiviesteistä / Jaa yhteysryhmä yksittäisiin ryhmiin / Poista syntymäpäivämuistutukset ...
