Kuidas muuta koosolek kohtumiseks Outlook VBA abil

Paljud kasutajad igatsevad meetodit, mis muudaks Outlooki koosoleku ühiseks kohtumiseks. See artikkel tutvustab kiiret meetodit selle kiireks saavutamiseks Outlook VBA kaudu.

Tegelikult on Outlooki koosolek ka kohtumise üksus. Peamine erinevus nende vahel on see, et koosolekul on osalejaid, kuid kohtumisel mitte. Seega on ühist kohtumist üsna lihtne muuta koosolekuks. Lihtsalt avage kohtumine ja klõpsake vahekaardil "Kohtumine" nuppu "Kutsu osalejaid".

Outlook aga ei toeta koosoleku lihtsat kohtumiseks muutmist. Sellel puudub sisseehitatud tugi osalejate eemaldamiseks. Seega, kui soovite seda teha, on üldiselt lahendus luua käsitsi uus kohtumine samade andmetega, mis koosolekul. See on üsna aeganõudev. Õnneks saate seda Outlook VBA kaudu ülima lihtsusega teha. Lugege edasi, et saada VBA koodid ja üksikasjalikud sammud.

Teisendage koosolek kohtumiseks Outlook VBA abil

1. Alustamiseks minge vahekaardile „Arendaja“ ja klõpsake nuppu „Visual Basic“.
2. Seejärel peate uues aknas "Microsoft Visual Basic for Applications" sisestama uue mooduli.
3. Järgmisena kopeerige ja kleepige sinna järgmised VBA-koodid.

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. Seejärel saate naasta Outlooki põhiaknasse ja jätkata uue makro lisamist kiirpääsu tööriistaribale.
5. Lõpuks saate seda koodi proovida.

• Esmalt avage õige kaust Kalender ja öelge lähtekoosolekule.
• Seejärel vajutage kiirpääsu tööriistaribal makronuppu.
• Hiljem saate sõnumikasti, küsige, kas olete kindel, et teisendate.
• Kui valite „Jah“, muudetakse koosolek korraga kohtumiseks.

Ärge vaadake Outlooki andmete varundamisele alla

Outlook on haavatav erinevate tegurite, sealhulgas viiruste, pahavara, elektrikatkestuste ja muu suhtes. Seejuures, et vältida Outlooki PST andmete kahjustus, peate oma Outlooki andmetest regulaarselt varukoopiaid tegema. Sellel on suur tähtsus. Ärge kunagi mine sellest mööda. Samuti on soovitatav hankida võimas remonditööriist, mis tuleb kasuks, näiteks DataNumen Outlook Repair.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas parandada korrumpeerunud SQL Server ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom