Sådan konverteres et møde til en aftale med Outlook VBA

Mange brugere længes efter en metode til at konvertere et Outlook-møde til en fælles aftale. Denne artikel vil introducere en hurtig metode til at opnå det hurtigt via Outlook VBA.

Faktisk er et Outlook-møde også et aftalepunkt. Den primære forskel mellem dem er, at mødet indeholder deltagere, men det gør aftalen ikke. Det er således ret nemt at konvertere en fælles aftale til et møde. Bare åbn aftalen og klik på knappen "Inviter deltagere" under fanen "Aftale".

Outlook understøtter dog ikke nemt at omdanne et møde til en aftale. Det har ingen indbygget understøttelse af at fjerne deltagere. Derfor er løsningen generelt, hvis du ønsker at realisere det, manuelt at oprette en ny aftale med de samme oplysninger som mødet. Det vil være ret tidskrævende. Heldigvis kan du nemt gøre det via Outlook VBA. Læs videre for at få VBA-koder og detaljerede trin.

Konverter et møde til en aftale med Outlook VBA

1. For at starte skal du gå til fanen "Udvikler" og klikke på knappen "Visual Basic".
2. Så i det nye "Microsoft Visual Basic for Applications" vindue skal du indsætte et nyt modul.
3. Næste kopi og indsæt følgende VBA-koder i den.

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. Efterfølgende kan du vende tilbage til hovedvinduet i Outlook og fortsætte med at tilføje den nye makro til værktøjslinjen Hurtig adgang.
5. Til sidst kan du prøve denne kode.

• Åbn først den korrekte Kalender-mappe og pitch på kildemødet.
• Tryk derefter på makroknappen i værktøjslinjen Hurtig adgang.
• Senere får du en beskedboks, spørg om du er sikker på at du vil konvertere.
• Når du vælger "Ja", ændres mødet til en aftale på én gang.

Se ikke ned på Outlook Data Backup

Outlook er sårbar over for forskellige faktorer, herunder virus, malware, strømafbrydelser og så videre. Derved for at forebygge Outlook PST-dataskader, skal du fortsætte med at lave regelmæssige sikkerhedskopier til dine Outlook-data. Det er af stor betydning. Gå aldrig uden om det. Det foreslås også at få fat i et potent reparationsværktøj, som vil være praktisk, f.eks DataNumen Outlook Repair.

Forfatter Introduktion:

Shirley Zhang er ekspert i datagendannelse i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder reparation korrupt SQL Server og Outlook-reparationssoftwareprodukter. For mere information besøg www.datanumen.com