Колачићи нам помоћи да испоручи наше услуге. Коришћењем наше услуге, сагласни сте да наше коришћење колачића.
Савет: Други језици су Гоогле-преводили. Можете посетити English верзија ове везе.
лог ин
x
or
x
x
Регистровати
x

or

Како извозити е-пошту из Оутлоок-а у Екцел аутоматски?

Обично можете извозити е-пошту из Оутлоок-а у Екцел помоћу функције Увоз / Извоз. Али, да ли сте икада покушали аутоматски извозити е-пошту у Екцел датотеку када долазе нове поруке? У овом чланку ћу причати о томе како аутоматско извозити информације о новим долазним порукама у Екцелу.

Ауто извоз информације о е-пошти из Оутлоок-а у Екцел са ВБА кодом


Брзо извозите емале из Инбок / Послато Ставке / Нацрти ... у Екцел датотеку:

са Кутоолс за Оутлоок's Брзи извештај функција, лако можете генерирати КСМЛ датотеку за извештавање свих ставки у тренутној фасцикли е-поште или фасцикли задатака

доц ауто извозите е-пошту како бисте превазишли КСНУМКС

Кутоолс за Оутлоок: са више од КСНУМКС + практичних додатака за Екцел, слободно покушати без ограничења у КСНУМКС данима. Преузмите и пробајте бесплатни пробни тест!

Ауто извоз информације о е-пошти из Оутлоок-а у Екцел са ВБА кодом

Да бисте аутоматско извозили нове пристигле е-поруке у Екцел радну свеску, примените следећи ВБА код:

1. Прво, требало би да направите радну свеску са информацијама о доњем заглављу као приказани приказ снимка, тако да ће се ове информације о порукама извозити у ову Екцел датотеку.

доц ауто извозите е-пошту како бисте превазишли КСНУМКС

2. Затим идите у Оутлоок и задржите АЛТ + ФКСНУМКС тастере за отварање Мицрософт Висуал Басиц за апликације прозор.

3. у Мицрософт Висуал Басиц за апликације прозор, двокликните ТхисОутлоокСессион од ПројецтКСНУМКС (ВбаПројецт.ОТМ) окно да отворите режим, а затим копирајте и залепите следећи код у празни модул.

ВБА код: Ауто екпорт информације о е-пошти из програма Оутлоок у Екцел:

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

белешке: У горенаведеном коду, Ц: \ Усерс \ ДТКСНУМКС \ Десктоп \ сплит документ \ кто-дата.клск је датотека Екцел фајла и Екцел име које желите да лоцирате извезене информације, молимо вас да је промените на своју потребу.

доц ауто извозите е-пошту како бисте превазишли КСНУМКС

4. Још увек у Мицрософт Висуал Басиц за апликације прозор, кликните алат > Референце да одем до Референце-ПројецтКСНУМКС дијалог и провери Библиотека објеката Мицрософт Екцел опција из Доступне референце бок бок, погледајте сцреенсхот:

доц ауто извозите е-пошту како бисте превазишли КСНУМКС

5. Затим кликните OK да бисте затворили дијалог, а затим сачувајте и затворите прозор кода.

6. Сада, требало би да поново покренете Оутлоок да бисте учинили овај код. Од сада, уколико долазе нови е-маилови, они ће се аутоматски извозити у одређену радну свеску, погледајте сцреенсхот:

доц ауто извозите е-пошту како бисте превазишли КСНУМКС



Кутоолс за Оутлоок

Више од КСНУМКС напредних функција за Оутлоок КСНУМКС, КСНУМКС, КСНУМКС, КСНУМКС и КСНУМКС

сцреен схот кутоолс фор оутлоок тини за баннер КСНУМКС

Још карактеристика | Бесплатно скидање | Само $ КСНУМКС за стотине функција

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Jorge · 4 months ago
    I need the help about exporting Email information sent (outgoing) emails
    • To post as a guest, your comment is unpublished.
      skyyang · 4 months ago
      Hello, Jorge,
      If you want to export the sent messages from the Sent Items folder, the Kutools for Outlook's Quick Report feature can help you. You can download the Kutools for Outlook first and then apply it.