Skift en aftale til et møde i Outlook

Skift møder til aftaler i Outlook

Denne metode fører dig gennem indbydende mødedeltagere til en aftale og konverterer aftalen til et møde i Outlook.

1. Skift til kalendervisningen, højreklik på den aftale, du vil konvertere til et møde i kalenderen, og vælg derefter Inviter deltagere fra højreklikmenuen. Se skærmbillede:

2. Nu åbnes et mødevindue med den valgte aftales indhold. Klik på Til knap. Se skærmbillede:

3. I dialogboksen Vælg deltagere og ressourcer dukker op, skal du vælge de kontakter, du vil invitere som deltagere, klik på påkrævet/Valgfri/Ressourcer knappen, som du har brug for, og klik på OK knap. Se skærmbillede ovenfor:

Bemærk: Holding the Ctrl nøgle, du kan vælge flere ikke-tilstødende kontakter ved at klikke på hver kontakt; holder Flytte tast, kan du vælge flere tilstødende kontakter ved at klikke på den første og den sidste kontakt.

4. Nu går du tilbage til mødevinduet. Rediger mødets indhold og klik på Send .

Indtil videre har vi konverteret den valgte aftale til et møde og sendt til specificerede deltagere allerede.

Denne metode introducerer en VBA til at konvertere udvalgte møder til aftaler i Outlook. Gør følgende:

1. Skift til kalendervisningen, og klik for at vælge de møder, du vil konvertere til aftale i kalenderen.

2. Trykke andre + F11 taster samtidigt for at åbne vinduet Microsoft Visual Basic til applikationer.

3. klik indsatte > Moduler, og indsæt derefter under VBA-kode i det nye modulvindue.

VBA: Konverter møde til aftaler 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. Tryk på F5 eller klik på Kør knap for at fritage denne VBA.

Og nu konverteres alle valgte møder til aftaler i Outlook.

Skjul alle aftaler fra kalenderen i Outlook

Skjul fødselsdagsaftaler i kalenderen i Outlook