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

Excel에서 Outlook 일정으로 생일을 가져오는 방법은 무엇입니까?

워크시트에 긴 생일 정보 목록이 있는 경우 이제 이러한 생일을 Outlook 일정에 이벤트로 가져오고 싶습니다. 몇 가지 빠른 방법으로 이 작업을 어떻게 처리할 수 있습니까?


VBA 코드를 사용하여 Excel에서 Outlook 일정으로 생일 가져오기

일반적으로 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 창을 클릭합니다 도구 > 참조. 튀어나온 부분에 참조 – VBAProject 대화 상자, 확인 Microsoft Outlook 16.0 개체 라이브러리 옵션은 사용 가능한 참조 목록 상자, 스크린 샷 참조 :

4. 그런 다음 OK 이 대화 상자를 닫습니다. 이제 F5 키를 눌러 이 코드를 실행하고 프롬프트 상자가 나타나면 이름과 생일 열을 선택하십시오. 스크린샷을 참조하십시오.

5. 그런 다음 OK 버튼을 클릭하면 생일이 Outlook 일정으로 한 번에 가져옵니다. Outlook을 실행하여 결과를 볼 수 있습니다. 스크린샷 참조:


Outlook 용 Kutools-Outlook에 100 개의 고급 기능을 제공하고 작업을 훨씬 더 쉽게 만듭니다!

  • 자동 CC / BCC 이메일을 보낼 때 규칙에 따라; 자동 전달 사용자 정의에 의한 여러 이메일; 자동 회신 교환 서버없이 더 많은 자동 기능 ...
  • BCC 경고 -모두 답장하려고 할 때 메시지 표시 메일 주소가 숨은 참조 목록에있는 경우; 첨부 파일 누락시 알림및 기타 알림 기능 ...
  • 메일 대화에서 모든 첨부 파일로 (전체) 회신; 많은 이메일에 답장 초 안에; 인사말 자동 추가 대답 할 때; 제목에 날짜 추가 ...
  • 첨부 도구 : 모든 메일의 모든 첨부 파일 관리, 자동 분리, 모두 압축, 모두 이름 바꾸기, 모두 저장 ... 빠른 보고서, 선택한 메일 수...
  • 강력한 정크 메일 관습에 의해; 중복 메일 및 연락처 제거... Outlook에서 더 스마트하고 빠르며 더 나은 작업을 수행 할 수 있습니다.
샷 kutools 전망 kutools 탭 1180x121
샷 kutools 전망 kutools 플러스 탭 1180x121
 
코멘트 (0)
아직 평가가 없습니다. 가장 먼저 평가하세요!
아직 코멘트가 없습니다
여러분의 의견을 남겨
게스트로 게시
×
이 게시물 평가 :
0   등장 인물
추천 위치