· 3 months ago
Hi
How to modify your VBA code for taking into account only all day events with specific names, pls?
I've no clue in coding... :(
Thank you in advance.
BR
Come rispondere automaticamente ai messaggi ricevuti quando sei impegnato in Outlook?
A volte, vuoi rispondere automaticamente ai messaggi ricevuti in Outlook mentre sei impegnato in un periodo. Ma non esiste una funzione incorporata in grado di gestire questo lavoro, tuttavia, qui ho un codice VBA per gestirlo.
Risposta automatica quando sei impegnato con un codice VBA
Risposta automatica quando sei impegnato con un codice VBA
Scheda Office: abilita la modifica a schede e la navigazione in Office e semplifica notevolmente il lavoro ...
Kutools for Outlook: porta 100 potenti funzionalità avanzate a Microsoft Outlook
- Auto CC / BCC dalle regole durante l'invio di e-mail; Avanzamento automatico Email multiple per regole; Risposta automatica senza server di scambio e più funzioni automatiche ...
- Avviso BCC - mostra il messaggio quando provi a rispondere a tutti se il tuo indirizzo di posta è nella lista BCC; Ricorda quando mancano allegatie altre funzioni di promemoria ...
- Rispondi (tutti) con tutti gli allegati nella conversazione di posta; Rispondi a molte email contemporaneamente; Aggiunta automatica di saluto quando rispondi; Aggiungi automaticamente data e ora all'oggetto ...
- Strumenti per gli allegati: Scollegamento automatico, Comprimi tutto, Rinomina tutto, Salva tutto automaticamente ... Rapporto rapido, Conta le email selezionate, Rimuovi messaggi e contatti duplicati ...
- Più di 100 funzionalità avanzate lo faranno risolvi la maggior parte dei tuoi problemi in Outlook 2010-2019 e 365. Funzionalità complete Prova gratuita di 60 giorni.
Ecco un codice VBA, che risponderà automaticamente mentre ci sono alcuni appuntamenti nel tuo calendario di Outlook, se non c'è nulla nel calendario, smette di rispondere automaticamente.
1. Stampa Alt + F11 chiavi per aprire Microsoft Visual Basic, Applications Edition finestra.
2. Fare doppio clic su Questa sessione di Outlook dal Project1 riquadro, copia e incolla sotto il codice nello script.
VBA: risposta automatica mentre sei impegnato nel calendario
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 Sub3. Salvare questo codice e riavviare Outlook. D'ora in poi, se le e-mail vengono ricevute nell'intervallo di tempo dei tuoi appuntamenti, verrà inviata una risposta automatica.
Suggerimenti:
(1) Nel codice, puoi modificare il corpo della risposta di cui hai bisogno in questo script "Mi dispiace di non poterti rispondere in questo momento. Ti risponderò più tardi." & _
(2) Questa macro VBA può rispondere automaticamente alle e-mail ricevute nella Posta in arrivo del file di dati predefinito.
Kutools for Outlook: porta 100 funzionalità avanzate in Outlook e semplifica notevolmente il lavoro!
- Auto CC / BCC dalle regole durante l'invio di e-mail; Avanzamento automatico Email multiple personalizzate; Risposta automatica senza server di scambio e più funzioni automatiche ...
- Avviso BCC - mostra il messaggio quando provi a rispondere a tutti se il tuo indirizzo e-mail è nell'elenco BCC; Ricorda quando mancano allegatie altre funzioni di promemoria ...
- Rispondi (tutti) con tutti gli allegati nella conversazione di posta; Rispondi a molte email in secondi; Aggiunta automatica di saluto quando rispondi; Aggiungi la data all'oggetto ...
- Strumenti per gli allegati: gestisci tutti gli allegati in tutti i messaggi, Scollegamento automatico, Comprimi tutto, Rinomina tutto, Salva tutto ... Rapporto rapido, Conta le email selezionate...
- E-mail spazzatura potenti per abitudine; Rimuovi messaggi e contatti duplicati... Consentono di fare in modo più intelligente, veloce e migliore in Outlook.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
