Ubah janji menjadi rapat di Outlook

Ubah rapat menjadi janji di Outlook

Metode ini akan memandu Anda melalui mengundang peserta rapat untuk membuat janji dan mengonversi janji menjadi rapat di Outlook.

1. Geser ke tampilan Kalender, klik kanan janji temu yang akan Anda ubah menjadi rapat di Kalender, lalu pilih Undang Peserta dari menu klik kanan. Lihat tangkapan layar:

2. Sekarang jendela rapat terbuka dengan konten janji yang dipilih. Silakan klik Untuk tombol. Lihat tangkapan layar:

3. Pada kotak dialog Select Attendees and Resources, silakan pilih kontak yang akan Anda undang sebagai peserta, klik Wajib/Opsional/Sumber tombol yang Anda butuhkan, dan klik OK tombol. Lihat tangkapan layar di atas:

Catatan: Memegangnya Ctrl kunci, Anda dapat memilih beberapa kontak yang tidak berdekatan dengan mengklik setiap kontak; memegang perubahan kunci, Anda dapat memilih beberapa kontak yang berdekatan dengan mengklik kontak pertama dan terakhir.

4. Sekarang Anda kembali ke jendela rapat, harap edit konten rapat dan klik Kirim .

Sejauh ini kami telah mengubah janji yang dipilih menjadi rapat dan sudah dikirim ke peserta tertentu.

Metode ini akan memperkenalkan VBA untuk mengonversi rapat yang dipilih menjadi janji temu di Outlook. Harap lakukan sebagai berikut:

1. Geser ke tampilan Kalender, dan klik untuk memilih rapat yang akan Anda ubah menjadi janji di Kalender.

2. tekan lain + F11 bersamaan untuk membuka jendela Microsoft Visual Basic for Applications.

3. klik Menyisipkan > Modul, lalu tempelkan kode VBA di bawah ini ke jendela Modul baru.

VBA: Mengonversi rapat menjadi janji temu di 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. tekan F5 atau klik Run tombol untuk mengeksekusi VBA ini.

Dan sekarang semua rapat yang dipilih diubah menjadi janji temu di Outlook.

Sembunyikan semua janji temu dari kalender di Outlook

Sembunyikan janji temu ulang tahun di kalender di Outlook