Conas il-cheapacháin a thiontú go tascanna go tapa in Outlook?

San Airteagal seo, labhróidh mé faoi conas coinne nó il-cheapacháin a thiontú go tascanna go tapa agus go héasca in Outlook.

Tiontaigh coinne amháin go tasc trí tharraingt agus titim

Tiontaigh ceapacháin iolracha go tascanna trí chód VBA a chur i bhfeidhm

Tiontaigh coinne amháin go tasc trí tharraingt agus titim

Chun coinne amháin a thiontú go tasc, níl le déanamh agat ach an coinne a tharraingt chuig fillteán tascanna, déan é seo le do thoil:

1. Sa an féilire fuinneog, roghnaigh an mhír coinne a chaithfidh tú a thiontú go tasc agus ansin tarraing agus scaoil chuig an Tascanna deilbhín ag bun an phána nascleanúna mar a thaispeántar an pictiúr a leanas:

coinne doc le tasc 1

2. Ansin nua Tasc taispeántar an fhuinneog, cliceáil le do thoil Sábháil & Dún cnaipe chun an coinne seo a shábháil mar thasc. Féach an pictiúr:

coinne doc le tasc 2

Tiontaigh ceapacháin iolracha go tascanna trí chód VBA a chur i bhfeidhm

Má tá ceapacháin iolracha agat is gá iad a thiontú go tascanna, is féidir leis an gcód VBA thíos fabhar a thabhairt duit, déan mar a leanas le do thoil:

1. Coinnigh síos an ALT + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Agus ansin, cliceáil Ionsáigh > Modúil, cóipeáil agus greamaigh an cód thíos sa mhodúl bán oscailte, féach an pictiúr:

Cód VBA: Tiontaigh ceapacháin iolracha go tascanna

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

coinne doc le tasc 3

3. Ansin roghnaigh na coinní is mian leat a thiontú go tasc, agus ansin cliceáil Rith Macra cnaipe chun an cód seo a rith, féach an scáileán:

coinne doc le tasc 4

4. Agus ansin a Roghnaigh Fillteán popfaidh dialóg amach, roghnaigh a Tascanna fillteán inar mian leat na torthaí tiontaithe a shábháil, féach an pictiúr:

coinne doc le tasc 5

5. Ansin cliceáil OK cnaipe, agus cruthófar gach coinne roghnaithe mar thascanna, agus ansin ba cheart duit an Tasc fuinneog ceann ar cheann, féach an scáileán:

coinne doc le tasc 6