Cookies tgħinna jagħti servizzi tagħna. Bl-użu tas-servizzi tagħna, inti taqbel li l-użu tagħna ta 'cookies.
Tip: Lingwi oħra huma tradotti minn Google. Tista 'żżur il - English verżjoni ta 'din ir-rabta.
log in
x
or
x
x
reġistru
x

or

Kif tesporta emails minn Outlook għal Excel awtomatikament?

Normalment, tista 'tesporta l-emails minn Outlook għal Excel bil-karatteristika Import / Export. Iżda, qatt ippruvajt auto-esportazzjoni l-emails għall-fajl Excel meta messaġġi ġodda qed jaslu? F'dan l-artikolu, ser nitkellem dwar kif tesporta l-informazzjoni tal-messaġġi ġodda li deħlin awtomatikament f'Excel.

Informazzjoni tal-email ta 'esportazzjoni awtomatika mill-prospetti għal Excel bil-kodiċi VBA


Malajr jesportaw emials minn Inbox / Punti Mibda / Abbozzi ... għal fajl Excel:

bil Kutools għall-Outlook's Rapport Quick karatteristika, tista 'faċilment tiġġenera fajl XML biex tirrapporta l-informazzjoni kollha tal-oġġetti fil-folder tal-email kurrenti jew fil-folder tal-kompitu

Dok emails ta 'l-esportazzjoni awtomatika biex jisbqu 5

Kutools għall-Outlook: b'aktar minn 40 + handy Excel add-ins, ħielsa li tipprova mingħajr ebda limitazzjoni f'jiem 60. Niżżel u nipprova l-prova ħielsa issa!

Informazzjoni tal-email ta 'esportazzjoni awtomatika mill-prospetti għal Excel bil-kodiċi VBA

Biex tesporta l-emails il-ġodda li jaslu għal workbook ta 'Excel awtomatikament, jekk jogħġbok, applika l-kodiċi VBA li ġej:

1. L-ewwel, għandek toħloq ktieb tax-xogħol bl-informazzjoni ta 'taħt il-header kif ġej screenshot murija, sabiex din l-informazzjoni tal-messaġġi tkun esportata għal dan il-fajl Excel.

Dok emails ta 'l-esportazzjoni awtomatika biex jisbqu 1

2. Imbagħad mur Outlook u żomm il-buttuna ALT + F11 ċwievet biex tiftaħ il - Microsoft Visual Basic għall-Applikazzjonijiet tieqa.

3. Ġol Microsoft Visual Basic għall-Applikazzjonijiet tieqa, ikklikkja darbtejn Din is-Sessjoni ta 'l-Otezzjoni mill- Proġett1 (VbaProject.OTM) ħġieġa biex tiftaħ il-modalità, u mbagħad kopja u paste tal-kodiċi li ġej fil-modulu vojt.

Kodiċi VBA: Informazzjoni dwar l-esportazzjoni awtomatika tal-email mill-fajl Outlook għal 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

Nota: Fil-kodiċi ta 'hawn fuq, C: \ Utenti \ DT168 \ Desktop \ dokument maqsum \ kto-data.xlsx hija t-triq tal-fajl Excel u l-isem ta 'Excel li tixtieq issib l-informazzjoni esportata, jekk jogħġbok ibiddluha għall-bżonn tiegħek.

Dok emails ta &#39;l-esportazzjoni awtomatika biex jisbqu 2

4. Għadha fil - Microsoft Visual Basic għall-Applikazzjonijiet tieqa, ikklikkja għodod > Referenzi biex tmur fil - Referenzi-Proġett1 kaxxa ta 'dialog, u kontroll Microsoft Excel Object Library għażla mill - Referenzi Disponibbli kaxxa tal-lista, ara l-screenshot:

Dok emails ta &#39;l-esportazzjoni awtomatika biex jisbqu 3

5. Imbagħad ikklikkja OK buttuna biex tagħlaq id-djalogu, u mbagħad issalva u tagħlaq it-tieqa tal-kodiċi.

6. Issa, għandek terġa 'tibda l-Prospetti biex tagħmel dan il-kodiċi fis-seħħ. Minn issa 'l quddiem, jekk ikun hemm emails ġodda li jaslu, se jiġu esportati awtomatikament għall-workbook speċifiku, ara screenshot:

Dok emails ta &#39;l-esportazzjoni awtomatika biex jisbqu 4



Kutools għall-Outlook

Aktar minn Funzjonijiet Avvanzati ta '100 għal Outlook 2010, 2013, 2016, 2019 u 365

kutools ta &#39;screen shot għall-prospetti ċkejkna għall-bandiera 201812

Karatteristiċi Aktar | Free download | Biss $ 39.00 għal mijiet ta 'funzjonijiet

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.