Cookies bizim xidmətlər təqdim kömək edir. Bizim xidmətlərimizdən istifadə edərək, siz cookies bizim istifadə razıyam.
İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Outlook-dan Excel -ə e-poçtları avtomatik olaraq necə ixrac etmək olar?

Normal olaraq, İdxal / İxrac xüsusiyyətiylə Outlook-dan Excel'e e-poçtları ixrac edə bilərsiniz. Lakin, yeni mesajlar gəldiyində heç Excel faylına e-poçtları avtomatik ixrac etməyi sınadınızmı? Bu yazıda, yeni gələn mesajların məlumatlarını avtomatik olaraq Excel-də necə ixrac etmək barədə danışacağam.

VBA koduyla Excel-dən Excel-ə avtomatik ixracat e-poçt məlumatları


Gələnlər / Gönderilen Öğeler / Taslaklardan tez emalları ... Excel faylına ixrac edin:

ilə Outlook üçün Kutools's Tez hesabat funksiyanı asanlıqla mövcud olan e-poçt qovluğunda və ya tapşırıq qovluğunda bütün maddələrin məlumatını bildirmək üçün asanlıqla bir XML faylı yarada bilərsiniz

exe 5 doc avtomatik ixrac e-poçtları

Outlook üçün Kutools: 40-dən çox 60 + istifadəçi Excel-dən daha çox, XNUMX gündə heç bir məhdudiyyət olmadan cəhd edin. İndi indir və pulsuz sınaq cəhd edin!

VBA koduyla Excel-dən Excel-ə avtomatik ixracat e-poçt məlumatları

Yeni gələn elektron məktubları bir Excel kitabına avtomatik olaraq ixrac etmək üçün aşağıdakı VBA kodunu tətbiq edin:

1. Birincisi, aşağıdakı ekran görünüşü ilə aşağıdakı mövzu məlumatı ilə bir iş kitabı yaratmalısınız, buna görə mesajların bu məlumatları bu Excel faylına ixrac olunacaq.

exe 1 doc avtomatik ixrac e-poçtları

2. Sonra Outlook'a getmək və saxlayın ALT + F11 düymələri açmaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

3. İçində Proqramlar üçün Microsoft Visual Basic pəncərə, cüt klik BuOutlookSession dən Project1 (VbaProject.OTM) rejimi açmaq üçün bölməni daxil edin və sonra aşağıdakı kodu boş modula kopyalayıb yapışdırın.

VBA kodu: Excel-dən Excel faylına avtomatik ixracat e-poçt məlumatı:

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

Qeyd: Yuxarıda göstərilən kodda, C: \ Users \ DT168 \ Desktop \ split sənəd \ kto-data.xlsx ixrac verilən məlumatı tapmaq istədiyiniz Excel fayl yoludur və Excel adıdır, xahiş edirik onu sizin ehtiyacınıza dəyişdirin.

exe 2 doc avtomatik ixrac e-poçtları

4. Hələ də Proqramlar üçün Microsoft Visual Basic pəncərə basın Tools > References ilə getmək References-Project1 informasiya qutusunu seçin və yoxlayın Microsoft Excel Nesne Kitabxanası seçimdən Mövcud References siyahı qutusuna bax:

exe 3 doc avtomatik ixrac e-poçtları

5. Sonra basın OK informasiya qutusunu bağlamaq üçün düyməsini basın və sonra kodu pəncərəni saxlayıb bağlayın.

6. İndi bu kodun qüvvəyə minməsi üçün Outlook'u yenidən başlatmalısınız. Bundan sonra, gələn yeni e-poçtlar varsa, onlar xüsusi iş kitabçasına avtomatik olaraq ixrac ediləcək, ekran görüntüsünə baxın:

exe 4 doc avtomatik ixrac e-poçtları



Outlook üçün Kutools

100, 2010, 2013, 2016 və 2019 üçün 365 Ətraflı funksiyaları

201812 pankart üçün küçə görünüşü üçün ekran shot kutools

Daha çox xüsusiyyətlər | Pulsuz Yüklə | Yüzlərlə funksiya üçün yalnız $ 39.00

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.