Note: The other languages of the website are Google-translated. Back to English

Ինչպե՞ս հետաձգել հանդիպման ուղարկման հրավերը Outlook- ում: 

Սովորաբար, Դուք կարող եք կիրառել «Հետաձգման առաքում» առանձնահատկությունը `հենց հիմա փոխարեն կոնկրետ ժամանակ հաղորդագրություն ուղարկելու համար: Բայց երբեմն ուզում եք հետաձգել հանդիպման հրավեր ուղարկելը, ինչպիսին է էլ. Ինչպե՞ս կարող եք հանդիպման հրավեր ուղարկել ցանկալի պահին, ինչպես ձեզ հարկավոր է Outlook- ում:

Հետաձգեք ուղարկող հանդիպման հրավերը Outlook- ում `VBA կոդով


Հետաձգեք ուղարկող հանդիպման հրավերը Outlook- ում `VBA կոդով

Կարող է լինել, որ տեսանկյունից հանդիպման հրավերը հետաձգելու ուղի չկա, բայց ստորև ներկայացված VBA կոդը կարող է ձեզ լավություն բերել, խնդրում եմ արեք հետևյալ կերպ.

1, Նախ, դուք պետք է ստեղծեք նոր առաջադրանք: Նորում Խնդիր պատուհան:

(1.) Նշեք հանդիպման թեման, մեկնարկի ամսաթիվը, ավարտի ամսաթիվը.

(2.) Նշեք հիշեցման ամսաթիվը և ժամանակը, երբ ցանկանում եք ուղարկել հանդիպման հրավերը:

(3.) Մուտքագրեք հանդիպման հաղորդագրությունը, ինչպես ձեզ հարկավոր է:

փաստաթուղթ հետաձգելու ժողով ուղարկելու 1

2, Առաջադրանքը ստեղծելուց հետո սեղմեք Փրկել և փակել այս պատուհանը փակելու տարբերակը:

3, Ապա, պահեք պահումը ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

4, Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, կրկնակի սեղմեք ԱյսOutlookSession- ը - ից Project1 (VbaProject.OTM) ռեժիմը բացելու պատուհանը, այնուհետև պատճենեք և կպցրեք հետևյալ կոդը դատարկ մոդուլի մեջ:

VBA կոդ. Հետաձգեք ուղարկվող հանդիպման հրավերը.

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

փաստաթուղթ հետաձգելու ժողով ուղարկելու 2

ՆշումՎերոհիշյալ ծածկագրում. Հանդիպման քննություն այն թեման է, որը դուք ստեղծել եք հանդիպման համար 1-ին քայլում. և, դուք պետք է փոխեք տեղեկատվությունը ՝ ստացողի հասցեները, հանդիպման վայրը, Սկսել ժամանակը և հանդիպման տեւողությունը ձեր սեփականին:

5, Պահեք և փակեք ծածկագիրը, ապա վերագործարկեք Outlook- ը ՝ այս կոդն ուժի մեջ մտնելու համար:

6, Այսուհետ, երբ առաջադրված խնդրի հիշեցումը կհայտնվի ձեր կողմից սահմանված կոնկրետ ժամին, Outlook- ը ինքնաբերաբար կուղարկի հանդիպման հրավերը:


Kutools Outlook- ի համար. 100 առաջադեմ առանձնահատկություններ է բերում Outlook- ին և շատ ավելի հեշտացնում աշխատանքը:

  • Auto CC / BCC կանոններով `էլ. նամակ ուղարկելիս; Ավտոմեքենաների փոխանցում Բազմաթիվ նամակներ ըստ սովորույթի; Ավտոմատ պատասխան առանց փոխանակման սերվերի և ավելի ավտոմատ հատկությունների ...
  • Նախազգուշացում BCC- ի համար - ցույց տալ հաղորդագրությունը, երբ փորձում ես պատասխանել բոլորին եթե ձեր փոստի հասցեն գտնվում է BCC ցուցակում; Հիշեցրեք հավելվածները բաց թողնելիսև ավելին հիշեցնում են հատկությունները ...
  • Պատասխանեք (բոլորը) փոստի խոսակցության բոլոր կցորդներով; Պատասխանեք շատ նամակների վայրկյանների ընթացքում; Ավտոմատ ավելացնել ողջույնները երբ պատասխանել; Ավելացնել ամսաթիվը վերնագրում ...
  • Կցման գործիքներ. Կառավարեք բոլոր կցորդները բոլոր փոստերում, Ավտոմատ անջատում, Սեղմել բոլորը, Վերանվանել բոլորը, պահպանել բոլորը ... Արագ զեկույց, Հաշվեք ընտրված նամակները...
  • Հզոր անպիտան նամակներ ըստ սովորույթի; Հեռացրեք կրկնօրինակ նամակները և կոնտակտները... Հնարավորություն տվեք Outlook- ում ավելի խելացի, արագ և լավ կատարել:
shot kutools Outlook kutools էջանիշ 1180x121
shot kutools Outlook kutools գումարած ներդիր 1180x121
 
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (0)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից