Cookies hjelper oss å levere våre tjenester. Ved å bruke våre tjenester, samtykker du til vår bruk av informasjonskapsler.
Tips: Andre språk er Google-oversatt. Du kan besøke English versjon av denne lenken.
Logg inn
x
or
x
x
Registrere
x

or

Hvordan eksportere e-post fra Outlook til Excel automatisk?

Vanligvis kan du eksportere e-postene fra Outlook til Excel med Import / Export-funksjonen. Men har du noen gang prøvd å automatisk eksportere e-postene til Excel-filen når nye meldinger kommer? I denne artikkelen vil jeg snakke om hvordan du eksporterer informasjonen til de nye innkommende meldingene automatisk i Excel.

Auto eksporter e-postinformasjon fra Outlook til Excel med VBA-kode


Eksporter raskt emner fra Innboks / Sendte elementer / Utkast ... til Excel-fil:

Med Kutools for Outlook's Quick Report funksjon, kan du enkelt generere en XML-fil for rapportering av alle elementers informasjon i gjeldende e-postmappe eller oppgavemappe

doc automatisk eksporter e-post til å utmerke 5

Kutools for Outlook: med mer enn 40 + praktiske Excel-tillegg, gratis å prøve uten begrensning i 60-dager. Last ned og prøv gratis prøveversjon nå!

Auto eksporter e-postinformasjon fra Outlook til Excel med VBA-kode

Hvis du vil eksportere nye ankomne e-postmeldinger til en Excel-arbeidsbok automatisk, må du bruke følgende VBA-kode:

1. Først bør du opprette en arbeidsbok med underrubrikkinformasjonen som følgende skjermbilde vist, slik at denne informasjonen av meldingene blir eksportert til denne Excel-filen.

doc automatisk eksporter e-post til å utmerke 1

2. Deretter går du til Outlook og holder nede ALT + F11 nøkler for å åpne Microsoft Visual Basic for Applications vinduet.

3. på Microsoft Visual Basic for Applications vindu, dobbeltklikk ThisOutlookSession fra Project1 (VbaProject.OTM) ruten for å åpne modusen, og deretter kopiere og lime inn følgende kode i den tomme modulen.

VBA-kode: Automatisk eksporter e-postinformasjon fra Outlook til Excel-fil:

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

Merknader: I ovennevnte kode, C: \ Brukere \ DT168 \ Desktop \ delt dokument \ kto-data.xlsx er Excel-filbanen og Excel-navnet som du vil finne den eksporterte informasjonen, vennligst endre den til ditt behov.

doc automatisk eksporter e-post til å utmerke 2

4. Fortsatt i Microsoft Visual Basic for Applications vinduet klikker verktøy > Referanser å gå til Referanser-Project1 dialogboksen, og sjekk Microsoft Excel Object Library alternativ fra Tilgjengelige referanser listeboks, se skjermbilde:

doc automatisk eksporter e-post til å utmerke 3

5. Klikk deretter OK knappen for å lukke dialogboksen, og deretter lagre og lukk kodevinduet.

6. Nå bør du starte Outlook på nytt for å få denne koden til å fungere. Fra nå av, hvis det kommer nye e-poster, vil de bli eksportert til den spesifikke arbeidsboken automatisk, se skjermbilde:

doc automatisk eksporter e-post til å utmerke 4



Kutools for Outlook

Mer enn 100 Avanserte funksjoner for Outlook 2010, 2013, 2016, 2019 og 365

skjermbildet kutools for Outlook liten for banner 201812

Flere funksjoner | Gratis nedlasting | Bare $ 39.00 for hundrevis av funksjoner

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.