Kā pārvērst sapulci par tikšanos ar Outlook VBA

Daudzi lietotāji ilgojas pēc metodes, kā Outlook sapulci pārvērst par kopīgu tikšanos. Šajā rakstā tiks ieviesta ātra metode, kā to ātri paveikt, izmantojot Outlook VBA.

Faktiski Outlook sapulce ir arī tikšanās vienums. Galvenā atšķirība starp tām ir tā, ka sapulcē ir dalībnieki, bet tikšanās nav. Tādējādi ir diezgan viegli pārvērst kopīgu tikšanos sapulcē. Vienkārši atveriet tikšanos un cilnē “Tikšanās” noklikšķiniet uz pogas “Uzaicināt dalībniekus”.

Tomēr programma Outlook neatbalsta sapulces vienkāršu pārvēršanu par tikšanos. Tai nav iebūvēta atbalsta dalībnieku noņemšanai. Tādēļ parasti, ja vēlaties to izdarīt, risinājums ir manuāli izveidot jaunu tikšanos ar tādu pašu informāciju kā sapulcei. Tas būs diezgan laikietilpīgi. Par laimi, izmantojot Outlook VBA, to var izdarīt ļoti viegli. Lasiet tālāk, lai apgūtu VBA kodus un detalizētas darbības.

Konvertējiet sapulci par tikšanos ar Outlook VBA

1. Lai sāktu, dodieties uz cilni “Izstrādātājs” un nospiediet pogu “Visual Basic”.
2. Pēc tam jaunajā “Microsoft Visual Basic for Applications” logā jāievieto jauns modulis.
3. Nākamais nokopējiet un ielīmējiet tajā šādus VBA kodus.

Sub ConvertMeetingtoAppt()
    Dim olSel As Selection
    Dim obj As Object
    Dim olMeeting As AppointmentItem
    Dim Recips As Recipients
    Dim Recip As Recipient
 
    Set olSel = Outlook.Application.ActiveExplorer.Selection
 
    For Each obj In olSel
        If TypeName(obj) = "AppointmentItem" Then
           Set olMeeting = obj
           If olMeeting.MeetingStatus <> olNonMeeting Then
              If MsgBox("Are you sure to convert the selected meeting into an appointment?", vbYesNo + vbQuestion, "Confirm Convert") = vbYes Then
                 Set Recips = olMeeting.Recipients
                 For Each Recip In Recips
                     Recip.Delete
                 Next
                 olMeeting.MeetingStatus = olNonMeeting
                 olMeeting.Save
              End If
           End If
        End If
    Next
End Sub

4. Pēc tam jūs varat atgriezties galvenajā Outlook logā un turpināt pievienot jaunu makro ātrās piekļuves rīkjoslai.
5. Galu galā jūs varat izmēģināt šo kodu.

• Vispirms avota sapulcē atveriet pareizo kalendāra mapi un piķi.
• Pēc tam ātrās piekļuves rīkjoslā nospiediet makro pogu.
• Vēlāk jūs saņemsit ziņojumu lodziņu, jautājiet, vai esat pārliecināts, ka pārveidosiet.
• Atlasot “Jā”, sapulce uzreiz tiks mainīta par tikšanos.

Neskatieties uz Outlook datu dublēšanu

Outlook ir neaizsargāta pret dažādiem faktoriem, tostarp vīrusiem, ļaunprātīgu programmatūru, strāvas padeves pārtraukumiem un tā tālāk. Tādējādi, lai novērstu Outlook PST datu bojājumi, jums ir jāturpina regulāri dublēt savus Outlook datus. Tam ir liela nozīme. Nekad to neapiet. Ir arī ieteicams iegūt rokās spēcīgu labošanas rīku, kas noderēs DataNumen Outlook Repair.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp remonts korumpēts SQL Server un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar