Mae cwcis yn ein helpu i gyflwyno ein gwasanaethau. Drwy ddefnyddio ein gwasanaethau, rydych yn cytuno i'n defnydd cwcis.
Tip: Mae ieithoedd eraill yn Google-Cyfieithu. Gallwch ymweld â'r English fersiwn o'r ddolen hon.
Mewngofnodi
x
or
x
x
cofrestr
x

or

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

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

Trosi un apwyntiad i dasg trwy lusgo a gollwng

Trosi apwyntiadau lluosog i dasgau trwy ddefnyddio cod VBA


Trosi un apwyntiad i dasg trwy lusgo a gollwng

I drosi un apwyntiad i dasg, dim ond llusgo'r penodiad i ffolder tasg, gwnewch fel hyn:

1. Yn y calendr ffenestr, dewiswch yr eitem penodi y mae angen i chi ei throsglwyddo i'r dasg a'i llusgo a'i ollwng i Tasgau Eicon ar waelod y panelau mordwyo fel a ganlyn:

apwyntiad doc i dasg 1

2. Yna newydd Gorchwyl dangosir ffenestr, cliciwch Cadw & Close botwm i achub y penodiad hwn fel tasg. Gweler y sgrin:

apwyntiad doc i dasg 2


Trosi apwyntiadau lluosog i dasgau trwy ddefnyddio cod VBA

Os oes gennych chi nifer o apwyntiadau, rhaid trosi i dasgau, gall y cod VBA isod fod o blaid gennych, gwnewch fel a ganlyn:

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

2. Ac yna, cliciwch Mewnosod > Modiwlau, copïwch a gludwch y cod isod i'r modiwl gwag a agorwyd, gweler y sgrin:

Cod VBA: Trosi apwyntiadau lluosog i 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

apwyntiad doc i dasg 3

3. Yna dewiswch y penodiadau yr ydych am eu trosi i'r dasg, ac yna cliciwch Rhedeg Macro botwm i redeg y cod hwn, gweler y sgrin:

apwyntiad doc i dasg 4

4. Ac yna a Dewis Ffolder bydd deialog yn ymddangos allan, dewiswch a Tasgau ffolder lle rydych chi am achub y canlyniadau a addaswyd, gweler y sgrin:

apwyntiad doc i dasg 5

5. Yna cliciwch OK botwm, a bydd pob apwyntiad dethol yn cael ei greu fel tasgau, ac yna dylech chi gadw a chau Gorchwyl ffenestr un i un, gweler y sgrin:

apwyntiad doc i dasg 6

6. Yna, gallwch fynd i'r Gorchwyl folder, mae'r holl benodiadau a ddewiswyd wedi'u cadw fel tasgau newydd, gweler y sgrin:

apwyntiad doc i dasg 7



Kutools ar gyfer Outlook

Mwy na Swyddogaethau Uwch 100 ar gyfer Outlook 2010, 2013, 2016, 2019 a 365

sgrinio kutools ar gyfer rhagolygon bach ar gyfer baner 201812

Mwy o Nodweddion | Lawrlwythiad Am Ddim | $ 39.00 yn unig ar gyfer cannoedd o swyddogaethau

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.