Ինչպե՞ս ներմուծել ծննդյան օրերը 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-ը՝ արդյունքը դիտելու համար, տես սքրինշոթը.
Գրասենյակի արտադրողականության լավագույն գործիքները
Outlook- ի համար նախատեսված գործիքներ - Ավելի քան 100 հզոր գործառույթ՝ ձեր Outlook-ը լիցքավորելու համար
🤖 AI Փոստի օգնական: Ակնթարթային պրոֆեսիոնալ նամակներ AI մոգությամբ. մեկ սեղմումով հանճարեղ պատասխաններ, կատարյալ հնչերանգներ, բազմալեզու վարպետություն: Փոխակերպեք էլ. փոստը առանց ջանքերի: ...
📧 Email ավտոմատացում: Գրասենյակից դուրս (հասանելի է POP-ի և IMAP-ի համար) / Ժամանակացույց ուղարկել նամակներ / Ավտոմատ CC/BCC էլփոստ ուղարկելիս կանոններով / Ավտոմատ փոխանցում (Ընդլայնված կանոններ) / Ավտոմատ ավելացնել ողջույնները / Ավտոմատ կերպով բաժանել բազմասերիստացող նամակները առանձին հաղորդագրությունների ...
📨 էլեկտրոնային կառավարման: Հեշտությամբ հիշեք նամակները / Արգելափակել խարդախության նամակները ըստ առարկաների և այլոց / Deleteնջել կրկնօրինակ նամակները / Ընդլայնված որոնում / Համախմբել Թղթապանակները ...
📁 Հավելվածներ Pro: Խմբաքանակի պահպանում / Խմբաքանակի անջատում / Խմբաքանակային կոմպրես / Auto Save- ը / Ավտոմատ անջատում / Ավտոմատ սեղմում ...
🌟 Ինտերֆեյս Magic: 😊Ավելի գեղեցիկ և զով էմոջիներ / Բարձրացրեք ձեր Outlook-ի արտադրողականությունը ներդիրներով դիտումների միջոցով / Նվազագույնի հասցնել Outlook-ը փակելու փոխարեն ...
???? Մեկ սեղմումով Հրաշքներ: Պատասխանել բոլորին մուտքային հավելվածներով / Հակաֆիշինգի էլ. նամակներ / 🕘Ցուցադրել ուղարկողի ժամային գոտին ...
👩🏼🤝👩🏻 Կոնտակտներ և օրացույց: Խմբաքանակի ավելացրեք կոնտակտներ ընտրված էլ / Կոնտակտային խումբը բաժանեք առանձին խմբերի / Հեռացնել ծննդյան հիշեցումները ...
Over 100 Նկարագրություն Սպասեք ձեր հետազոտությանը: Սեղմեք այստեղ՝ ավելին բացահայտելու համար: