Cum să aflați rapid toate celelalte întâlniri care intră în conflict cu o anumită întâlnire în Outlook

Când creați sau modificați o întâlnire în calendarul Outlook, Outlook va verifica automat dacă există întâlniri în conflict. În acest moment, dacă doriți să verificați conflictele, puteți utiliza metoda introdusă în această post.

Poate că ați văzut vreodată textul „Conflicte cu o altă întâlnire” atunci când creați sau modificați o întâlnire Outlook. Se datorează faptului că Outlook poate verifica automat conflictele. Cu toate acestea, Outlook nu vă poate ajuta să găsiți rapid conflictele prin caracteristicile sale implicite. Astfel, aici vă vom spune o metodă de a genera funcția pentru a căuta toate întâlnirile conflictuale.

Aflați toate celelalte întâlniri care intră în conflict cu o anumită întâlnire

1. De la bun început, lansați programul Outlook.
2. Apoi, în fereastra principală a Outlook, apăsați butoanele tastei „Alt + F11”.
3. Imediat, veți accesa editorul Outlook VBA, în care trebuie să deschideți un modul neutilizat.
4. Apoi, copiați următorul cod VBA în acest modul.

Sub FindOutConflictingAppointments() Dim objAppointment As AppointmentItem Dim dStartTime, dEndTime As Date Dim strFilter As String Dim objAppointments As Items Dim objFoundAppointments As Items Dim objItem As AppointmentItem Dim i As Long Dim strConflicts As String Dim strMsg As String Select Case Application.ActiveWindow.Class =Exemple Case obj.ExploreActive Application. (1) Caz olInspector Set objAppointment = Application.ActiveInspector.CurrentItem End Select dStartTime = objAppointment.start dEndTime = objAppointment.End Set objAppointments = Application.ActiveExplorer.CurrentFolder.Items i = 1 '1: Găsiți toate aplicațiile a căror oră de încheiere în start și ora de încheiere a sursei appt strFilter = "[End] >= " & Chr(34) & Format(dStartOra, "mm/zz/aaaa hh:mm AMPM") & Chr(34) & " AND [End] <= " & Chr(34) & Format(dEndTime, "mm/zz/aaaa hh:mm AMPM") & Chr(34) Set objFoundAppointments = objAppointments.Restrict(strFilter) Pentru fiecare objItem din objFoundAppointments Dacă objItem.Subject <> objAppointment.Subject Then strConflicts = strConflicts & i & ". " & objItem & vb.Subject + iCrLf i = vb.Subject If Next '1: Găsiți toate aplicațiile care apar în start și ora de încheiere a sursei appt strFilter = „[Start] >= " & Chr(34) & Format(dStartOra, "mm/zz/aaaa hh:mm AMPM") & Chr(34) & " AND [End] <= " & Chr(34) & Format(dEndTime, "mm/zz/aaaa hh:mm AMPM") & Chr(34) Set objFoundAppointments = objAppointments.Restrict(strFilter) Pentru fiecare objItem din objFoundAppointments Dacă objItem.Subject <> objAppointment.Subject Then strConflicts = strConflicts & i & ". " & objItem & vb.Subject + iCrLf i = vb.Subject If Next '1: Găsiți toate aplicațiile a căror start timp în start și ora de încheiere a sursei appt strFilter = „[Start] >= " & Chr(34) & Format(dStartOra, „mm/zz/aaaa hh:mm AMPM”) și Chr(34) și „ȘI [Start] <= " & Chr(34) & Format(dEndTime, "mm/dd/yyyy hh:mm AMPM") & Chr(34) Set objFoundAppointments = objAppointments.Restrict(strFilter) Pentru fiecare obiect objItem din objFoundAppointments Dacă objItem.Subject <> objAppointment.Subject Then strConflicts = strConflicts & i & ". " & objItem.Subject & vbCrLf i = i + 1 End If Next '4: Găsiți toate aplicațiile acoperă întreaga aplicație sursă strFilter = "[Start] <= " & Chr(34) & Format(dStartOra, "mm/zz/aaaa hh:mm AMPM") & Chr(34) & " AND [End] >= " & Chr(34) & Format(dEndTime, "mm/zz/aaaa hh:mm AMPM") & Chr(34) Set objFoundAppointments = objAppointments.Restrict(strFilter) Pentru fiecare objItem din objFoundAppointments Dacă objItem.Subject <> objAppointment.Subject Then strConflicts = strConflicts & i & ". " & objItem & vb.Subject + iCrLf i = vb.Subject Dacă Următorul strMsg = i - 1 & " Numiri conflictuale:" & vbCrLf & vbCrLf & strConflicts MsgBox strMsg, vbInformation + vbOKOnly, „Verificați conflictele” End Sub

5. După aceea, puteți ieși din fereastra curentă.
6. Apoi adăugați această macrocomandă în Bara de instrumente Acces rapid, ca de obicei.
7. Mai târziu, ar trebui să vă asigurați că macrocomenzile sunt activate în Outlook. Mergeți doar la „Setare macro” pentru a o verifica.
8. În sfârșit poți încerca.

• În primul rând, selectați sau deschideți o întâlnire, în care există o solicitare „Conflicte cu o altă întâlnire”.
• Apoi faceți clic pe butonul macro din Bara de instrumente Acces rapid.
• Imediat, veți primi un mesaj care listează toate întâlnirile aflate în conflict, afișat ca următoarea captură de ecran:

Precauții esențiale înainte de corupția Outlook

Se știe că Outlook este predispus să se blocheze și să sufere erori. Astfel, este o chestiune de necesitate să fii bine pregătit pentru corupția Outlook. Unul din eiost precauții esențiale este backup-ul periodic. În plus, se sugerează să se pregătească un puternic specializat Repararea Outlook instrument, cum ar fi DataNumen Outlook Repair.

Introducerea autorului:

Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv recuperare mdf și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com