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

Ինչպե՞ս ներմուծել ծննդյան օրերը Excel-ից Outlook օրացույց:

Եթե ​​աշխատանքային թերթիկում ունեք ծննդյան օրվա մասին տեղեկությունների երկար ցուցակ, այժմ ցանկանում եք այս ծննդյան օրերը ներմուծել ձեր Outlook օրացույցում՝ որպես իրադարձություններ: Ինչպե՞ս կարող եք հաղթահարել այս առաջադրանքը որոշ արագ մեթոդներով:


Ներմուծեք ծննդյան օրեր Excel-ից Outlook օրացույց VBA կոդով

Սովորաբար, ծննդյան օրերը Outlook-ի օրացույց ներմուծելու ուղղակի ճանապարհ չկա, այստեղ ես կստեղծեմ VBA կոդ այս խնդիրը լուծելու համար, խնդրում ենք կատարել հետևյալ քայլերը.

1. Բացեք աշխատաթերթը, որը պարունակում է ծննդյան տարեդարձերը, որոնք ցանկանում եք ներմուծել Outlook, ապա սեղմած պահեք այն ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2: Սեղմեք Տեղադրել > Մոդուլներև տեղադրեք հետևյալ կոդը Մոդուլի պատուհանում:

VBA կոդ. ներմուծեք ծննդյան օրերը Outlook-ի օրացույց

Sub ImportBirthdaysToCalendar()
'Updateby ExtendOffice
Dim xWs As Excel.Worksheet
Dim xRng As Range
Dim xOlApp As Outlook.Application
Dim xCalendarFld As Outlook.Folder
Dim xAppointmentItem As Outlook.AppointmentItem
Dim xRecurrencePattern As Outlook.RecurrencePattern
Dim xRow As Integer
On Error Resume Next
Set xWs = ThisWorkbook.ActiveSheet
Set xRng = Application.InputBox("Please select the data range (only two columns):", "Kutools for Excel", , , , , , 8)
If xRng Is Nothing Then Exit Sub
If xRng.Columns.Count <> 2 Then
  MsgBox "You can only select two columns", vbOKOnly + vbCritical, "Kutools for Excel"
  Exit Sub
End If
Set xOlApp = CreateObject("Outlook.Application")
Set xCalendarFld = xOlApp.Session.GetDefaultFolder(olFolderCalendar)
For xRow = 1 To xRng.Rows.Count
  Set xAppointmentItem = xCalendarFld.Items.Add("IPM.Appointment")
  With xAppointmentItem
    .Subject = xRng.Cells(xRow, 1) & Chr(39) & "s Birthday"
    .AllDayEvent = True
    .Start = xRng.Cells(xRow, 2)
    Set xRecurrencePattern = .GetRecurrencePattern
    xRecurrencePattern.RecurrenceType = olRecursYearly
    .Save
  End With
Next
Set xWs = Nothing
Set xCalendarFld = Nothing
Set xOlApp = Nothing
End Sub

3, Դեռևս Microsoft Visual Basic հավելվածների համար պատուհանը, սեղմեք Գործիքներ > Սայլակ. Ի popped դուրս Հղումներ - VBAP նախագիծ երկխոսության տուփ, ստուգեք Microsoft Outlook 16.0 օբյեկտների գրադարան տարբերակից Հասանելի հղումներ ցուցակի տուփ, տես նկարի նկարը.

4. Այնուհետեւ կտտացրեք OK այս երկխոսության տուփը փակելու համար: Այժմ սեղմեք F5 այս կոդը գործարկելու համար ստեղնը, և հուշման տուփը դուրս է գալիս, խնդրում ենք ընտրել անունը և ծննդյան սյունակները, տես սքրինշոթը.

5, Եվ հետո, կտտացրեք OK կոճակը, ծննդյան օրերը միանգամից կներմուծվեն Outlook-ի օրացույց, դուք կարող եք գործարկել ձեր Outlook-ը՝ արդյունքը դիտելու համար, տես սքրինշոթը.


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

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