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

Cum import zilele de naștere din Excel în calendarul Outlook?

Dacă aveți o listă lungă de informații despre ziua de naștere într-o foaie de lucru, acum doriți să importați aceste zile de naștere în calendarul dvs. Outlook ca evenimente. Cum ați putea face față acestei sarcini cu câteva metode rapide?


Importați zilele de naștere din Excel în calendarul Outlook cu cod VBA

În mod normal, nu există o modalitate directă de a importa zilele de naștere în calendarul Outlook, aici, voi crea un cod VBA pentru a rezolva această problemă, vă rugăm să urmați următorii pași:

1. Deschideți foaia de lucru care conține zilele de naștere pe care doriți să le importați în Outlook, apoi țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. Clic Insera > Moduleși lipiți următorul cod în fereastra modulului.

Cod VBA: importați zilele de naștere în calendarul 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. Încă în Microsoft Visual Basic pentru aplicații fereastră, faceți clic pe unelte > Referinte. În ieșit Referințe - VBAProject casetă de dialog, bifați Biblioteca de obiecte Microsoft Outlook 16.0 opțiunea din Referințe disponibile casetă listă, vezi captura de ecran:

4. Apoi apasa OK pentru a închide această casetă de dialog. Acum, apăsați F5 tasta pentru a rula acest cod și apare o casetă de prompt, vă rugăm să selectați coloanele cu numele și ziua de naștere, vedeți captura de ecran:

5. Apoi, faceți clic OK butonul, zilele de naștere vor fi importate în calendarul Outlook odată, puteți lansa Outlook pentru a vedea rezultatul, vedeți captura de ecran:


Kutools pentru Outlook - aduce 100 de caracteristici avansate în Outlook și face munca mult mai ușoară!

  • Auto CC / BCC prin reguli la trimiterea e-mailului; Auto înainte Mai multe e-mailuri personalizate; Răspuns automat fără server de schimb și mai multe funcții automate ...
  • Avertisment BCC - afișați mesajul când încercați să răspundeți la toate dacă adresa dvs. de e-mail se află în lista BCC; Amintiți-vă când lipsesc atașamentele, și mai multe caracteristici de reamintire ...
  • Răspundeți (Toate) Cu toate atașamentele din conversația prin e-mail; Răspunde la multe e-mailuri în secunde; Adăugare automată felicitare când răspundeți; Adăugați o dată în subiect ...
  • Instrumente de atașament: gestionați toate atașamentele din toate e-mailurile, Detașare automată, Comprimă toate, Redenumiți toate, Salvați toate ... Raport rapid, Numărați mesajele selectate...
  • E-mailuri nedorite puternice după obicei; Eliminați e-mailurile și persoanele de contact duplicate... Vă permit să faceți mai inteligent, mai rapid și mai bine în Outlook.
shot kutools outlook kutools fila 1180x121
shot kutools outlook kutools plus fila 1180x121
 
Comentarii (0)
Încă nu există evaluări. Fii primul care evaluează!
Nu există comentarii postate aici încă
Lăsa comentarii
Postare ca invitat
×
Evaluează această postare:
0   Caractere
Locații sugerate