Conas freagra a thabhairt go huathoibríoch ar theachtaireachtaí a fhaightear nuair a bhíonn tú gnóthach in Outlook?
Uaireanta, bíonn tú ag iarraidh freagra uathoibríoch a thabhairt ar na teachtaireachtaí a fhaightear in Outlook agus tú gnóthach i dtréimhse. Ach níl aon fheidhm ionsuite ann atá in ann an post seo a láimhseáil, áfach, tá cód VBA agam anseo chun déileáil leis.
Freagra uathoibríoch nuair a bhíonn tú gnóthach le cód VBA
Freagra uathoibríoch nuair a bhíonn tú gnóthach le cód VBA
- 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...
Seo cód VBA, a thabharfaidh freagra uathoibríoch cé go bhfuil roinnt coinní i d’fhéilire Outlook, mura bhfuil aon rud san fhéilire, stopann sé ag freagairt go huathoibríoch.
1. Brúigh Alt + F11 eochracha le hoscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
2. Cliceáil faoi dhó ag ThisOutlookSession ó na Project1 pána, cóipeáil agus greamaigh thíos an cód leis an script.
VBA: Go huathoibríoch agus tú gnóthach san fhéilire
Public WithEvents xInboxItems As Outlook.Items
Private Sub Application_Startup()
Set xInboxItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub xInboxItems_ItemAdd(ByVal Item As Object)
'UpdatebyExtendoffice20180418
Dim xMailItem As Outlook.MailItem
Dim xReplyMailItem As Outlook.MailItem
Dim xReplyHTMLBody As String
Dim xAppointments As Outlook.Items
Dim xFilter As String
Dim xRestrictAppointments As Outlook.Items
Dim xAppointment As Outlook.AppointmentItem
Dim xDateFormat As String
On Error Resume Next
If TypeOf Item Is MailItem Then
Set xMailItem = Item
Set xReplyMailItem = xMailItem.Reply
xReplyHTMLBody = xReplyMailItem.HTMLBody
Set xAppointments = Outlook.Application.Session.GetDefaultFolder(olFolderCalendar).Items
xAppointments.Sort "[Start]"
xAppointments.IncludeRecurrences = True
xDateFormat = Format(Now, "ddddd h:nn AMPM")
xFilter = "[Start]<= '" & xDateFormat & "' AND [End]>= '" & xDateFormat & "'"
Set xRestrictAppointments = xAppointments.Restrict(xFilter)
If TypeName(xRestrictAppointments) = "Nothing" Then Exit Sub
For Each xAppointment In xRestrictAppointments
If xAppointment.BusyStatus = olBusy Or olOutOfOffice Then
xReplyMailItem.HTMLBody = "<HTML><BODY>I'm Sorry that I can't respond to you right now. I'll reply to you later.</HTML></BODY>" & _
xReplyHTMLBody
xReplyMailItem.Send
End If
Next
End If
End Sub
3. Sábháil an cód seo agus déan an Outlook a atosú. As seo amach, má tá na ríomhphoist ag fáil i raon ama do choinní, seolfar freagra uathoibríoch.
Leid:
(1) Sa chód, is féidir leat an comhlacht freagartha a athrú de réir mar a theastaíonn uait sa script seo "Tá brón orm nach féidir liom freagra a thabhairt duit anois. Tabharfaidh mé freagra duit níos déanaí." & _
(2) Is féidir leis an macra VBA seo ríomhphoist a fhaightear i mBosca Isteach an chomhaid sonraí réamhshocraithe a fhreagairt go huathoibríoch.
Uirlisí Táirgiúlachta Oifige is Fearr
Kutools le haghaidh Outlook - Níos mó ná 100 Gnéithe cumhachtacha chun do Outlook a shárú
🤖 Cúntóir Ríomhphoist AI: Ríomhphoist pro toirt le draíocht AI - aon-cliceáil chun freagraí genius, ton foirfe, máistreacht ilteangach. Trasfhoirmigh ríomhphost gan stró! ...
📧 Uathoibriú Ríomhphoist: As Oifig (Ar fáil do POP agus IMAP) / Sceideal Seol Ríomhphoist / Auto CC/BCC de réir Rialacha Agus Ríomhphost á Sheoladh / Auto Ar Aghaidh (Ardrialacha) / Beannacht Auto Cuir leis / Scoilt Ríomhphoist Ilfhaighteoirí go huathoibríoch i dTeachtaireachtaí Aonair ...
📨 Bainistíocht Ríomhphost: Ríomhphoist a Athghairm go héasca / Bloc Ríomhphoist Scam ag Ábhair agus Daoine Eile / Scrios Ríomhphoist Dúblacha / Cuardach Casta / Comhdhlúthaigh Fillteáin ...
📁 Ceangaltáin Pro: Sábháil Baisc / Baisc Dícheangail / Comhbhrú Baisc / Auto Sábháil / Auto Dícheangail / Comhbhrúite Auto ...
🌟 Draíocht Chomhéadain: 😊Níos mó Emojis Pretty and Cool / Treisiú Do Tháirgiúlacht Outlook le Radhairc Tabbed / Íoslaghdaigh Outlook In ionad Deiridh ...
???? Wonders aon-cliceáil: Freagair Gach Duine le Ceangaltáin Isteach / Ríomhphoist Frith-Iascaireachta / 🕘 Taispeáin Crios Ama an tSeoltóra ...
👩🏼🤝👩🏻 Teagmhálaithe & Féilire: Baisc Cuir Teagmhálacha Ó Ríomhphoist Roghnaithe / Roinn Grúpa Teagmhála ar Ghrúpaí Aonair / Bain Meabhrúcháin Breithlá ...
Thar Gnéithe 100 Fan le do Thaiscéalaíocht! Cliceáil Anseo le Tuilleadh Amach.