Excel ажлын хуудаснаас Outlook хуанли руу төрсөн өдрийг хэрхэн багцлан импортлох вэ

Хэрэв танд Excel-ийн ажлын хуудсанд төрсөн өдрийн мэдээллийн жагсаалт байгаа бол эдгээр төрсөн өдрийг Outlook хуанлидаа үйл явдал болгон оруулахыг хүсэж болно. Энэ нийтлэл нь танд үүнийг хурдан хугацаанд гүйцэтгэхэд туслах болно.

Өмнөх нийтлэлээс - "Төрсөн өдрийг Excel-ээс харгалзах Outlook харилцагчид руу хэрхэн багцлан импортлох вэ" гэсэн нийтлэлээс та Excel-д төрсөн өдрийн мэдээллийг холбогдох харилцагчид нэмэх арга замыг сурч болно. Үүнтэй адил зарим хэрэглэгчид Excel хуудасны өгөгдлөөс Outlook-ийн төрсөн өдрийн үйл явдлыг үүсгэхийг хүсдэг. Энэ асуудлыг харвал бид танд хялбар болгоход туслах VBA кодын өөр нэг хэсгийг дэлгэх болно.

Excel-ээс Outlook хуанли руу төрсөн өдрүүдийг багцаар нь импортлох

1. Юуны өмнө тодорхой Excel файлыг нээнэ үү. Миний жишээ Excel файл дараах зурагт үзүүлсэн шиг байна.
2. Дараа нь "Alt + F11" товчийг дарж Excel VBA засварлагчийг ажиллуулна уу.
3. Дараа нь, шинэ “Microsoft Visual Basic for Applications” цонхонд “MS Outlook Object Library” гэсэн лавлагааг идэвхжүүлнэ үү.VBA дээр объектын номын сангийн лавлагааг хэрхэн нэмэх вэ".
4. Үүний дараа дараахь VBA кодыг төсөл эсвэл модульд хуулж ав.

Sub ImportBirthdaysToCalendar()
    Dim objWorksheet As Excel.Worksheet
    Dim nLastRow As Integer
    Dim objOutlookApp As Outlook.Application
    Dim objCalendar As Outlook.Folder
    Dim objBirthdayEvent As Outlook.AppointmentItem
    Dim objRecurrencePattern As Outlook.RecurrencePattern
 
    'Get the specific sheet
    Set objWorksheet = ThisWorkbook.Sheets(1)
    nLastRow = objWorksheet.Range("A" & objWorksheet.Rows.Count).End(xlUp).Row
 
    Set objOutlookApp = CreateObject("Outlook.Application")
    Set objCalendar = objOutlookApp.Session.GetDefaultFolder(olFolderCalendar)
 
    For nRow = 2 To nLastRow
        Set objBirthdayEvent = objCalendar.Items.Add("IPM.Appointment")
 
        'Create birthday events
        With objBirthdayEvent
            .Subject = objWorksheet.Range("A" & nRow) & Chr(39) & "s Birthday"
            .AllDayEvent = True
            .Start = objWorksheet.Range("B" & nRow)
         Set objRecurrencePattern = .GetRecurrencePattern
         objRecurrencePattern.RecurrenceType = olRecursYearly
            .Save
        End With
    Next
End Sub

Тайлбар: 1. Тусгай хуудсыг өөрийн нөхцөл байдлын дагуу өөрчил.

2. Өөрийн Excel файлаас хамааран харгалзах нүдний мужийг өөрчил.
3. Эцэст нь энэ макро ажиллуулахын тулд "F5" товчийг шууд дарна уу.
4. Макро дууссаны дараа та Outlook-ын өгөгдмөл хуанлийн хавтсыг нээж, доорх дэлгэцийн агшин шиг шинэ төрсөн төрсөн өдрийн үйл явдлуудыг харах боломжтой.

Эмзэг Outlook PST файлууд

Word баримтууд болон Excel ажлын номуудын нэгэн адил Outlook PST файлууд адилхан эмзэг байдаг. Олон жилийн турш олон хэрэглэгчид Outlook файлын гэмтэлд өртөж байсан. Ийм нөхцөлд тэд зангидаж оролдох хэрэгтэй PST засвар. Гэсэн хэдий ч ихэвчлэн суулгасан засварын хэрэгсэл - Scanpst үүнийг хийх боломжгүй байдаг. Тиймээс, энэ курст илүү мэргэшсэн, дээд зэрэглэлийн гадны хэрэгсэл, тухайлбал, маш их шаардлагатай байна DataNumen Outlook Repair, энэ нь эвдэрсэн PST файлаас хамгийн их өгөгдлийг гаргаж авахад тусална.

Зохиогчийн танилцуулга:

Ширли Жан бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. авлига авсан кв програм хангамжийн бүтээгдэхүүнийг засах хэтийн төлөв. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com