Ինչպե՞ս ավտոմատ կերպով էլ-նամակներ արտահանել Outlook- ից Excel:
Սովորաբար, դուք կարող եք էլփոստերը արտահանել Outlook- ից Excel ՝ Ներմուծում / Արտահանում հնարավորությամբ: Բայց երբևէ փորձե՞լ եք նամակները ավտոմատ կերպով արտահանել Excel ֆայլ, երբ նոր հաղորդագրություններ են գալիս: Այս հոդվածում ես կխոսեմ այն մասին, թե ինչպես Excel- ում ավտոմատ կերպով արտահանել նոր մուտքային հաղորդագրությունների տեղեկատվությունը:
VBA կոդի միջոցով Outlook- ից էլփոստի տեղեկությունները ավտոմատ կերպով արտահանեք
Emailարմանալի հատկությամբ արտահանեք էլփոստի տեղեկատվությունը Outlook- ից դեպի Excel
VBA կոդի միջոցով Outlook- ից էլփոստի տեղեկությունները ավտոմատ կերպով արտահանեք
Excel- ի աշխատանքային գրքույկ ավտոմատ կերպով արտահանելու համար նոր ժամանող նամակները, խնդրում ենք կիրառել հետևյալ VBA կոդը.
1, Նախ, դուք պետք է ստեղծեք աշխատանքային գրքույկ ներքևի վերնագրի տեղեկություններով, ինչպես ցույց է տրված հետևյալ նկարը, այնպես որ հաղորդագրությունների այս տեղեկությունները կարտահանվեն այս Excel ֆայլ:
2, Դրանից հետո գնացեք Outlook և պահեք այն ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.
3, Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, կրկնակի սեղմեք ԱյսOutlookSession- ը - ից Project1 (VbaProject.OTM) ռեժիմը բացելու պատուհանը, այնուհետև պատճենեք և կպցրեք հետևյալ կոդը դատարկ մոդուլի մեջ:
VBA կոդ. Outlook- ից Excel ֆայլից ավտոմատ արտահանեք էլփոստի տեղեկությունները.
Public WithEvents GMailItems As Outlook.Items
Private Sub Application_Startup()
Set GMailItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub GMailItems_ItemAdd(ByVal Item As Object)
Dim xMailItem As Outlook.MailItem
Dim xExcelFile As String
Dim xExcelApp As Excel.Application
Dim xWb As Excel.Workbook
Dim xWs As Excel.Worksheet
Dim xNextEmptyRow As Integer
On Error Resume Next
If Item.Class <> olMail Then Exit Sub
Set xMailItem = Item
xExcelFile = "C:\Users\DT168\Desktop\split document\kto-data.xlsx"
If IsWorkBookOpen(xExcelFile) = True Then
Set xExcelApp = GetObject(, "Excel.Application")
Set xWb = GetObject(xExcelFile)
If Not xWb Is Nothing Then xWb.Close True
Else
Set xExcelApp = New Excel.Application
End If
Set xWb = xExcelApp.Workbooks.Open(xExcelFile)
Set xWs = xWb.Sheets(1)
xNextEmptyRow = xWs.Range("B" & xWs.Rows.Count).End(xlUp).Row + 1
With xWs
.Cells(xNextEmptyRow, 1) = xNextEmptyRow - 1
.Cells(xNextEmptyRow, 2) = xMailItem.SenderName
.Cells(xNextEmptyRow, 3) = xMailItem.SenderEmailAddress
.Cells(xNextEmptyRow, 4) = xMailItem.Subject
.Cells(xNextEmptyRow, 5) = xMailItem.ReceivedTime
End With
xWs.Columns("A:E").AutoFit
xWb.Save
End Sub
Function IsWorkBookOpen(FileName As String)
Dim xFreeFile As Long, xErrNo As Long
On Error Resume Next
xFreeFile = FreeFile()
Open FileName For Input Lock Read As #xFreeFile
Close xFreeFile
xErrNo = Err
On Error GoTo 0
Select Case xErrNo
Case 0: IsWorkBookOpen = False
Case 70: IsWorkBookOpen = True
Case Else: Error xErrNo
End Select
End Function
ՆշումՎերոհիշյալ ծածկագրում C: \ Users \ DT168 \ Desktop \ split փաստաթուղթ \ kto-data.xlsx Excel ֆայլի ուղին է և Excel անունը, որը ցանկանում եք գտնել արտահանվող տեղեկատվությունը, խնդրում ենք փոխեք այն ըստ ձեր կարիքի:
4, Դեռևս Microsoft Visual Basic հավելվածների համար պատուհանը, սեղմեք Գործիքներ > Սայլակ գնալու համար Հղումներ-նախագիծ 1 երկխոսության տուփ և ստուգեք Microsoft Excel օբյեկտների գրադարան տարբերակը Հասանելի հղումներ ցուցակի տուփ, տես նկարի նկարը.
5. Այնուհետեւ կտտացրեք OK կոճակը ՝ երկխոսությունը փակելու համար, այնուհետև պահելու և փակելու ծածկագրի պատուհանը:
6, Այժմ, այս կոդն ուժի մեջ մտնելու համար, պետք է վերագործարկեք Outlook- ը: Այսուհետ, եթե նոր նամակներ են գալիս, դրանք ավտոմատ կերպով կարտահանվեն կոնկրետ աշխատանքային գրքույկ, տե՛ս նկարը.
Emailարմանալի հատկությամբ արտահանեք էլփոստի տեղեկատվությունը Outlook- ից դեպի Excel
Եթե ցանկանում եք նամակները արտահանել Inbox, Outbox կամ այլ թղթապանակներից Excel ֆայլ, Outlook- ի համար նախատեսված գործիքներ's Արագ հաշվետվություն կարող է օգնել ձեզ հեշտությամբ առաջացնել XML ֆայլ ՝ ընթացիկ էլփոստի թղթապանակում կամ առաջադրանքների թղթապանակում բոլոր իրերի տեղեկատվությունը զեկուցելու համար, ինչպես ձեզ հարկավոր է:
Տեղադրելուց հետո Outlook- ի համար նախատեսված գործիքներԽնդրում եմ արեք հետևյալ կերպ
1, Ընտրեք մի թղթապանակ, որը ցանկանում եք արտահանել բոլոր հաղորդագրությունների տեղեկությունները, և այնուհետև կտտացրեք Kutools Plus > Արագ հաշվետվություն, տես նկարի նկարը.
2, Հետո դուրս եկավ դուրս Պահել հաշվետվություն պատուհանը, ընտրեք գտնվելու վայրը և նշեք այս արտահանված ֆայլի անունը, տես նկարի նկարը.
3, Եվ հետո, կտտացրեք Փրկել կոճակը այս ֆայլը պահելու համար, և դուրս եկած պատուհանում կտտացրեք այո ֆայլը բացելու կոճակը, տես նկարի նկարը.
4, Այժմ դուք կարող եք տեսնել, որ ընտրված թղթապանակում եղած էլփոստի բոլոր տեղեկություններն արտահանվել են Excel ֆայլ, տես նկարի նկարը.
Ավելի հարաբերական հոդվածներ.
- Արտահանեք էլփոստի մարմնի աղյուսակ Excel- ում Outlook- ում
- Երբ ստանում եք էլփոստ, որը պարունակում է մարմնի որոշ աղյուսակներ, երբեմն, գուցե անհրաժեշտ լինի բոլոր սեղանները հաղորդագրության մարմնից արտահանել Excel- ի աշխատանքային թերթիկ: Սովորաբար, դուք կարող եք պատճենել և կպցնել աղյուսակները աշխատանքային թերթիկում, բայց, ահա, ես կխոսեմ այս գործը լուծելու օգտակար մեթոդի մասին, երբ արտահանման համար անհրաժեշտ բազմաթիվ սեղաններ կան:
- Outlook- ում Excel- ի արդյունահանման կամ արտահանման առաջադրանքների ցուցակ
- Outlook- ը օգտագործելիս կարող եք Excel- ում արդյունքների ցուցակը հանել այլ օգտագործման համար: Outlook- ի հզոր Արտահանման հնարավորությամբ դուք կարող եք հեշտությամբ արտահանել ձեր առաջադրանքների ցուցակը Excel: Խնդրում ենք արեք, ինչպես ցույց է տալիս ստորև ներկայացված ձեռնարկը:
- Արտահանեք կոնտակտների տեղեկատվությունը Outlook- ի լուսանկարներով
- Երբ Outlook- ից կոնտակտներ եք արտահանում ֆայլ, միայն կոնտակտների տեքստային տեղեկատվությունը կարող է արտահանվել: Բայց երբեմն անհրաժեշտ է, որ արտահանվեն ինչպես լուսանկարները, այնպես էլ կոնտակտների տեքստային տեղեկատվությունը, ինչպե՞ս կարող եք գործ ունենալ Outlook- ի այս խնդրի հետ:
- Թղթապանակի կառուցվածքը արտահանել Outlook- ից դեպի Excel
- Այս հոդվածում ես կներկայացնեմ, թե ինչպես արտահանել հաշվի պանակի կառուցվածքը Outlook- ից Excel ֆայլ: Խնդրում ենք դրան հասնել սույն հոդվածի մանրամասներով:
Գրասենյակի արտադրողականության լավագույն գործիքները
Outlook- ի համար նախատեսված գործիքներ - Ավելի քան 100 հզոր գործառույթ՝ ձեր Outlook-ը լիցքավորելու համար
🤖 AI Փոստի օգնական: Ակնթարթային պրոֆեսիոնալ նամակներ AI մոգությամբ. մեկ սեղմումով հանճարեղ պատասխաններ, կատարյալ հնչերանգներ, բազմալեզու վարպետություն: Փոխակերպեք էլ. փոստը առանց ջանքերի: ...
📧 Email ավտոմատացում: Գրասենյակից դուրս (հասանելի է POP-ի և IMAP-ի համար) / Ժամանակացույց ուղարկել նամակներ / Ավտոմատ CC/BCC էլփոստ ուղարկելիս կանոններով / Ավտոմատ փոխանցում (Ընդլայնված կանոններ) / Ավտոմատ ավելացնել ողջույնները / Ավտոմատ կերպով բաժանել բազմասերիստացող նամակները առանձին հաղորդագրությունների ...
📨 էլեկտրոնային կառավարման: Հեշտությամբ հիշեք նամակները / Արգելափակել խարդախության նամակները ըստ առարկաների և այլոց / Deleteնջել կրկնօրինակ նամակները / Ընդլայնված որոնում / Համախմբել Թղթապանակները ...
📁 Հավելվածներ Pro: Խմբաքանակի պահպանում / Խմբաքանակի անջատում / Խմբաքանակային կոմպրես / Auto Save- ը / Ավտոմատ անջատում / Ավտոմատ սեղմում ...
🌟 Ինտերֆեյս Magic: 😊Ավելի գեղեցիկ և զով էմոջիներ / Բարձրացրեք ձեր Outlook-ի արտադրողականությունը ներդիրներով դիտումների միջոցով / Նվազագույնի հասցնել Outlook-ը փակելու փոխարեն ...
???? Մեկ սեղմումով Հրաշքներ: Պատասխանել բոլորին մուտքային հավելվածներով / Հակաֆիշինգի էլ. նամակներ / 🕘Ցուցադրել ուղարկողի ժամային գոտին ...
👩🏼🤝👩🏻 Կոնտակտներ և օրացույց: Խմբաքանակի ավելացրեք կոնտակտներ ընտրված էլ / Կոնտակտային խումբը բաժանեք առանձին խմբերի / Հեռացնել ծննդյան հիշեցումները ...
Over 100 Նկարագրություն Սպասեք ձեր հետազոտությանը: Սեղմեք այստեղ՝ ավելին բացահայտելու համար: