Sut i drosi apwyntiadau lluosog yn dasgau yn gyflym yn Outlook?

Yn yr erthygl hon, byddaf yn siarad am sut i drosi apwyntiad neu apwyntiadau lluosog yn dasgau yn gyflym ac yn hawdd yn Outlook.

Trosi un apwyntiad i'r dasg trwy lusgo a gollwng

Trosi apwyntiadau lluosog i dasgau trwy gymhwyso cod VBA

---

Trosi un apwyntiad i'r dasg trwy lusgo a gollwng

I drosi un apwyntiad yn dasg, does ond angen i chi lusgo'r apwyntiad i ffolder tasgau, gwnewch fel hyn:

1. Yn y calendr ffenestr, dewiswch yr eitem apwyntiad y mae angen i chi ei throsi i dasg ac yna llusgwch hi a'i gollwng i'r Tasgau eicon ar waelod y cwarel llywio fel y dangosir y llun a ganlyn:

2. Yna newydd Gorchwyl ffenestr yn cael ei harddangos, cliciwch Arbed a Chau botwm i achub yr apwyntiad hwn fel tasg. Gweler y screenshot:

---

Trosi apwyntiadau lluosog i dasgau trwy gymhwyso cod VBA

Os oes gennych sawl apwyntiad mae angen eu trosi'n dasgau, gall y cod VBA isod ffafrio chi, gwnewch fel a ganlyn:

1. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Ac yna, cliciwch Mewnosod > Modiwlau, copïo a gludo islaw'r cod i'r modiwl gwag agored, gweler y screenshot:

Cod VBA: Trosi apwyntiadau lluosog yn dasgau

Sub ConvertAppointmentsToTasks()
Dim xItemCollection As VBA.Collection
Dim xActiveWindow As Object
Dim xItem As Object
Dim xSelection As Outlook.Selection
Dim xTaskFolder As Outlook.Folder
Dim xAppointmentItem As Outlook.AppointmentItem
Dim xTaskItem As Outlook.TaskItem
On Error Resume Next
Set xItemCollection = New VBA.Collection
Set xActiveWindow = Outlook.Application.ActiveWindow
If TypeOf xActiveWindow Is Inspector Then
    Set xItem = xActiveWindow.CurrentItem
    If xItem.Class = olAppointment Then xItemCollection.Add xItem
Else
    Set xSelection = xActiveWindow.Selection
    If xSelection Is Nothing Then Exit Sub
    For Each xItem In xSelection
        If xItem.Class = olAppointment Then xItemCollection.Add xItem
    Next
End If
Set xTaskFolder = Application.Session.PickFolder
If xTaskFolder Is Nothing Then Exit Sub
For Each xAppointmentItem In xItemCollection
    Set xTaskItem = xTaskFolder.Items.Add(olTaskItem)
    With xTaskItem
        .StartDate = Format(xAppointmentItem.Start, "Short Date")
        .DueDate = Format(xAppointmentItem.End, "Short Date")
        .Subject = xAppointmentItem.Subject & " (From Appt)"
        .Categories = xAppointmentItem.Categories
        .Body = xAppointmentItem.Body
        .Save
        .Display
    End With
Next
End Sub

3. Yna dewiswch yr apwyntiadau rydych chi am eu trosi'n dasg, ac yna cliciwch Rhedeg Macro botwm i redeg y cod hwn, gweler y screenshot:

4. Ac yna a Dewis Ffolder bydd dialog yn popio allan, dewis a Tasgau ffolder lle rydych chi am arbed y canlyniadau sydd wedi'u trosi, gweler y screenshot:

5. Yna cliciwch OK botwm, a bydd yr holl apwyntiadau a ddewiswyd yn cael eu creu fel tasgau, ac yna dylech arbed a chau'r Gorchwyl ffenestr fesul un, gweler y screenshot:

6. Yna, gallwch chi fynd i'r Gorchwyl ffolder, mae'r holl apwyntiadau a ddewiswyd wedi'u cadw fel tasgau newydd, gweler y screenshot: