Ändra ett möte till ett möte i Outlook

Ändra möten till möten i Outlook

Denna metod leder dig genom att bjuda in mötesdeltagare till ett möte och konvertera mötet till ett möte i Outlook.

1. Flytta till kalendervyn, högerklicka på det möte du ska konvertera till ett möte i kalendern och välj sedan Bjud in deltagare från högerklickmenyn. Se skärmdump:

2. Nu öppnas ett mötesfönster med valt mötesinnehåll. Klicka på Till knapp. Se skärmdump:

3. I dialogrutan Välj deltagare och resurser dyker upp, välj de kontakter du kommer att bjuda in till deltagare, klicka Krävs/Frivillig/Resurser och klicka sedan på OK knapp. Se skärmdump ovan:

Notera: Håller ctrl nyckel, du kan välja flera icke-angränsande kontakter genom att klicka på varje kontakt; håller shift kan du välja flera intilliggande kontakter genom att klicka på den första och den sista kontakten.

4. Nu går du tillbaka till mötesfönstret, redigera mötesinnehållet och klicka på Skicka knapp.

Hittills har vi konverterat det valda mötet till ett möte och redan skickat till angivna deltagare.

Denna metod introducerar en VBA för att konvertera utvalda möten till möten i Outlook. Gör så här:

1. Gå till kalendervyn och klicka för att välja de möten du ska konvertera till möte i kalendern.

2. Tryck andra + F11 samtidigt för att öppna Microsoft Visual Basic for Applications-fönstret.

3. klick Insert > Modulernaoch klistra sedan in under VBA-koden i det nya modulfönstret.

VBA: Konvertera möte till möten i Outlook

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. tryck på F5 eller klicka på Körning knappen för att befria denna VBA.

Och nu konverteras alla valda möten till möten i Outlook.

Dölj alla möten från kalendern i Outlook

Dölj födelsedagstider i kalendern i Outlook