Conas moill a chur leis an gcuireadh cruinnithe seolta in Outlook? 

De ghnáth, is féidir leat an ghné Seachadta Moillithe a chur i bhfeidhm chun teachtaireacht a sheoladh ag am ar leith in ionad anois. Ach, uaireanta, ba mhaith leat moill a chur ar chuireadh cruinnithe seolta mar r-phost. Conas a d’fhéadfá cuireadh cruinnithe a sheoladh ag an am inmhianaithe de réir mar a theastaíonn uait in Outlook?

Cuir cuireadh cruinnithe seolta in Outlook le cód VBA

---

Cuir cuireadh cruinnithe seolta in Outlook le cód VBA

B’fhéidir nach bhfuil, níl aon bhealach díreach ann chun cuireadh cruinnithe a chur siar mar gheall air, ach, is féidir leis an gcód VBA thíos fabhar a thabhairt duit, déan mar seo é le do thoil:

1. Ar dtús, ba cheart duit tasc nua a chruthú. Sa nua Tasc fuinneog:

(1.) Sonraigh an t-ábhar, an dáta tosaigh, an dáta deiridh don chruinniú;

(2.) Socraigh dáta agus am meabhrúcháin nuair is mian leat cuireadh an chruinnithe a sheoladh;

(3.) Clóscríobh teachtaireacht an chruinnithe de réir mar is gá duit.

2. Tar éis duit an tasc a chruthú, cliceáil le do thoil Sábháil & Dún rogha chun an fhuinneog seo a dhúnadh.

3. Ansin, coinnigh síos an ALT + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

4. Sa an Microsoft Visual Basic d’Fheidhmchláir fuinneog, cliceáil dúbailte ThisOutlookSession ó na Tionscadal1 (VbaProject.OTM) pána chun an modh a oscailt, agus ansin an cód seo a leanas a chóipeáil agus a ghreamú isteach sa mhodúl bán.

Cód VBA: Moill ar chuireadh cruinnithe seolta:

Private Sub Application_Reminder(ByVal Item As Object)
    Dim xTaskItem As TaskItem
    Dim xAppointmentItem As AppointmentItem
    Dim xRcpArr() As String
    If (Item.Class <> olTask) Or (LCase(Item.Subject) <> "Meeting test") Then
        Exit Sub
    End If
    Set xTaskItem = Item
    xRcpArr = VBA.Split("yy@addin99.com,sky@addin99.com,ruby@addin99.com", ",")
    Set xAppointmentItem = Outlook.Application.CreateItem(olAppointmentItem)
    With xAppointmentItem
        .MeetingStatus = olMeeting
        For i = 0 To UBound(xRcpArr)
            .Recipients.Add (xRcpArr(i))
        Next
        .Subject = xTaskItem.Subject
        .Location = "Office room 1002"
        .Start = xTaskItem.StartDate + #2:00:00 PM#
        .Body = xTaskItem.Body
        .Duration = 120
        .ReminderSet = True
        .ReminderMinutesBeforeStart = 20
        .Save
        .Send
    End With
    xTaskItem.MarkComplete
    Set xTaskItem = Nothing
End Sub

nótaí: Sa chód thuas: Tástáil cruinnithe an t-ábhar a chruthaigh tú don chruinniú i gcéim 1; agus, ba cheart duit faisnéis na seoltaí faighteora, suíomh cruinnithe, Am tosaithe agus fad an chruinnithe leat féin.

5. Sábháil agus dún an cód, ansin déan an Outlook a atosú chun go mbeidh an cód seo i bhfeidhm.

6. As seo amach, nuair a thiocfaidh meabhrúchán na míre tascanna suas ag an am sonrach a shocróidh tú, seolfaidh Outlook cuireadh an chruinnithe amach go huathoibríoch.