Thay đổi cuộc hẹn thành cuộc họp trong Outlook

Thay đổi cuộc họp thành cuộc hẹn trong Outlook

Phương pháp này sẽ hướng dẫn bạn cách mời những người tham dự cuộc họp vào cuộc hẹn và chuyển cuộc hẹn thành cuộc họp trong Outlook.

1. Chuyển sang dạng xem Lịch, bấm chuột phải vào cuộc hẹn mà bạn sẽ chuyển đổi thành cuộc họp trong Lịch, sau đó chọn Mời người tham dự từ menu chuột phải. Xem ảnh chụp màn hình:

2. Bây giờ một cửa sổ cuộc họp đang mở với nội dung cuộc hẹn đã chọn. Vui lòng nhấp vào Đến cái nút. Xem ảnh chụp màn hình:

3. Trong hộp thoại Chọn Người tham dự và Tài nguyên bật lên, vui lòng chọn các địa chỉ liên hệ bạn sẽ mời với tư cách là người tham dự, nhấp vào Yêu cầu/Tùy chọn/Thông tin khi bạn cần và nhấp vào OK cái nút. Xem ảnh chụp màn hình ở trên:

Lưu ý: Giữ Ctrl chính, bạn có thể chọn nhiều liên hệ không liền kề bằng cách nhấp vào từng liên hệ; giữ sự thay đổi , bạn có thể chọn nhiều liên hệ liền kề bằng cách nhấp vào liên hệ đầu tiên và liên hệ cuối cùng.

4. Bây giờ bạn quay lại cửa sổ cuộc họp, vui lòng chỉnh sửa nội dung cuộc họp và nhấp vào Gửi .

Cho đến nay, chúng tôi đã chuyển đổi cuộc hẹn đã chọn thành một cuộc họp và đã gửi đến những người tham dự được chỉ định.

Phương pháp này sẽ giới thiệu một VBA để chuyển đổi các cuộc họp đã chọn thành các cuộc hẹn trong Outlook. Vui lòng làm như sau:

1. Chuyển sang dạng xem Lịch và nhấp để chọn các cuộc họp bạn sẽ chuyển đổi thành cuộc hẹn trong Lịch.

2. nhấn Khác + F11 đồng thời để mở cửa sổ Microsoft Visual Basic for Applications.

3. nhấp chuột Chèn > Mô-đun, rồi dán mã VBA bên dưới vào cửa sổ Mô-đun mới.

VBA: Chuyển cuộc họp thành cuộc hẹn trong 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. Nhấn nút F5 phím hoặc nhấp vào chạy để giải thích VBA này.

Và bây giờ tất cả các cuộc họp đã chọn được chuyển đổi thành cuộc hẹn trong Outlook.

Ẩn tất cả các cuộc hẹn khỏi lịch trong Outlook

Ẩn các cuộc hẹn sinh nhật trong lịch trong Outlook