Kuinka muuttaa tapaaminen kokoukseksi ja päinvastoin Outlookissa?

Muuta tapaamista kokoukseksi Outlookissa

Muuta kokoukset tapaamiksi Outlookissa

Tämä menetelmä opastaa sinut kokouksen osallistujien kutsumisessa tapaamiseen ja muuntaa tapaamisen kokoukseksi Outlookissa.

1. Siirry kalenterinäkymään, napsauta tapaamista, jonka muunnat kokoukseksi kalenterissa, hiiren kakkospainikkeella ja valitse sitten "Kutsu osallistujia" hiiren kakkospainikkeen valikosta. Katso kuvakaappaus:

2. Nyt avautuu kokousikkuna, jossa on valitun tapaamisen sisältö. Napsauta "Vastaanottaja"-painiketta. Katso kuvakaappaus:

3. Valitse avautuvasta Select Attendees and Resources -valintaikkunasta yhteyshenkilöt, jotka kutsut osallistujiksi, napsauta "Pakollinen"/"Valinnainen"/"Resurssit"-painiketta tarpeen mukaan ja napsauta "OK"-painiketta. Katso kuvakaappaus yllä:

Huomautuksia: Pidä "Ctrl"-näppäintä painettuna, voit valita useita ei-vierekkäisiä yhteystietoja napsauttamalla kutakin yhteystietoa; Pidä "Vaihto"-näppäintä painettuna, voit valita useita vierekkäisiä yhteystietoja napsauttamalla ensimmäistä ja viimeistä yhteystietoa.

4. Palaat nyt kokousikkunaan, muokkaa kokouksen sisältöä ja napsauta "Lähetä" -painiketta.

Toistaiseksi olemme muuntaneet valitun tapaamisen kokoukseksi ja lähettäneet jo määritetyille osallistujille.

Tämä menetelmä ottaa käyttöön VBA:n, joka muuntaa valitut kokoukset tapaamiksi Outlookissa. Toimi seuraavasti:

1. Siirry kalenterinäkymään ja valitse tapaamiset kalenterissa napsauttamalla kokoukset.

2. Paina "Alt" + "F11"-näppäimiä samanaikaisesti avataksesi Microsoft Visual Basic for Applications -ikkunan.

3. Napsauta "Lisää "> "Moduuli" ja liitä alla oleva VBA-koodi uuteen moduuli-ikkunaan.

VBA: Muunna kokous tapaamiksi Outlookissa

Sub Meetings2Appointments()
Dim sWindowType As String
Dim oItem As Object

sWindowType = TypeName(Application.ActiveWindow)
Select Case sWindowType
Case "Explorer"
If Application.ActiveExplorer.Selection.Count > 0 Then
For Each oItem In Application.ActiveExplorer.Selection
Debug.Print oItem.Class
If oItem.Class = olAppointment Then
If oItem.MeetingStatus <> olNonMeeting Then
Call Meeting2Appointment(oItem)
End If
End If
Next
End If
Case "Inspector"
Set oItem = Application.ActiveInspector.CurrentItem
If oItem.Class = olAppointment Then
If oItem.MeetingStatus <> olNonMeeting Then
Call Meeting2Appointment(oItem)
End If
End If
End Select
Set oItem = Nothing
End Sub

Sub Meeting2Appointment(oMeeting As Outlook.AppointmentItem)
With oMeeting
' remove all recipients
Do Until .Recipients.Count = 0
.Recipients.Remove 1
Loop
' reset meeting status
.MeetingStatus = olNonMeeting
.Save
End With
End Sub

4. Selvitä tämä VBA painamalla "F5"-näppäintä tai napsauttamalla "Suorita"-painiketta.

Ja nyt kaikki valitut kokoukset muunnetaan tapaamisiksi Outlookissa.

Piilota kaikki tapaamiset Outlookin kalenterista

Piilota syntymäpäivätapaamiset Outlookin kalenterissa