Kaip automatiškai eksportuoti gaunamų el. laiškų informaciją į „Excel“ failą naudojant „Outlook VBA“.

Daugelis vartotojų tikisi, kad „Outlook“ gali automatiškai eksportuoti pirminę gaunamų el. laiškų informaciją į „Excel“ failą. Šiame straipsnyje bus nagrinėjamas šis reikalavimas ir pateikiamas greitas metodas naudojant „Outlook VBA“.

Kartais dėl tam tikrų priežasčių, pvz., laiškų statistikos, dažnai gali tekti eksportuoti el. laiškus į Excel failą. Paprastai esamus gautus el. laiškus galite tiesiog naudoti funkciją „Importuoti ir eksportuoti“, kad eksportuotumėte juos į „Excel“ vienu metu. Tačiau galbūt netgi norite, kad „Outlook“ galėtų automatiškai eksportuoti gaunamus el. laiškus į „Excel“, kai tik jie patenka į jūsų pašto dėžutę. Be jokių abejonių, „Outlook“ nėra tokios savosios funkcijos. Todėl turite naudoti kitus metodus, pvz., trečiosios šalies priedą arba Outlook VBA. Čia mes išmokysime, kaip tai padaryti automatiškai naudojant „Outlook VBA“. Skaitykite toliau, kad gautumėte veiksmus ir atitinkamus kodus.

Automatiškai eksportuokite gaunamų el. laiškų informaciją į „Excel“ failą

1. Visų pirma, turėtumėte sukurti „Excel“ failą.

• Atidarykite naują Excel failą.
• Tada turėtumėte įvesti „Ne“. langelyje A1, „Siuntėjo vardas“ langelyje B1, „Siuntėjo el. pašto adresas“ langelyje C1 ir „El. pašto tema“ langelyje D1 ir „Gavimo laikas“ langelyje E1, kaip toliau pateiktame paveikslėlyje.
• Galiausiai išsaugokite jį norimu pavadinimu ir norimame aplanke.

2. Po to turėtumėte paleisti „Outlook“.
3. Tada paspauskite „Alt + F11“ klavišų mygtukus, kurie nuves jus į VBA redaktorių.
4. Tada iššokančiajame lange dukart spustelėkite „ThisOutlookSession“ kairėje pusėje.
5. Vėliau projekto lange „ThisOutlookSession“ turite nukopijuoti ir į jį įklijuoti šiuos VBA kodus.

Public WithEvents objMails As Outlook.Items

Private Sub Application_Startup()
    Set objMails = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub objMails_ItemAdd(ByVal Item As Object)
    Dim objMail As Outlook.MailItem
    Dim strExcelFile As String
    Dim objExcelApp As Excel.Application
    Dim objExcelWorkBook As Excel.Workbook
    Dim objExcelWorkSheet As Excel.Worksheet
    Dim nNextEmptyRow As Integer
    Dim strColumnB As String
    Dim strColumnC As String
    Dim strColumnD As String
    Dim strColumnE As String

    If Item.Class = olMail Then
       Set objMail = Item
    End If
 
    'Specify the Excel file which you want to auto export the email list
    'You can change it as per your case
    strExcelFile = "E:\Email\Email Statistics.xlsx"
 
    'Get Access to the Excel file
    On Error Resume Next
    Set objExcelApp = GetObject(, "Excel.Application")
    If Error <> 0 Then
       Set objExcelApp = CreateObject("Excel.Application")
    End If
    Set objExcelWorkBook = objExcelApp.Workbooks.Open(strExcelFile)
    Set objExcelWorkSheet = objExcelWorkBook.Sheets("Sheet1")
 
    'Get the next empty row in the Excel worksheet
    nNextEmptyRow = objExcelWorkSheet.Range("B" & objExcelWorkSheet.Rows.Count).End(xlUp).Row + 1
 
    'Specify the corresponding values in the different columns
    strColumnB = objMail.SenderName
    strColumnC = objMail.SenderEmailAddress
    strColumnD = objMail.Subject
    strColumnE = objMail.ReceivedTime
 
    'Add the vaules into the columns
    objExcelWorkSheet.Range("A" & nNextEmptyRow) = nNextEmptyRow - 1
    objExcelWorkSheet.Range("B" & nNextEmptyRow) = strColumnB
    objExcelWorkSheet.Range("C" & nNextEmptyRow) = strColumnC
    objExcelWorkSheet.Range("D" & nNextEmptyRow) = strColumnD
    objExcelWorkSheet.Range("E" & nNextEmptyRow) = strColumnE
 
    'Fit the columns from A to E
    objExcelWorkSheet.Columns("A:E").AutoFit
 
    'Save the changes and close the Excel file
    objExcelWorkBook.Close SaveChanges:=True
End Sub

6. Vėliau turėtumėte pasirašyti šį kodą.
7. Vėliau atstart Outlook, kad suaktyvintumėte naują VBA projektą.
8. Galų gale, nuo šiol visi gaunami el. laiškai bus automatiškai eksportuojami į iš anksto nustatytą „Excel“ failą, kai tik pateks į aplanką Gautieji. „Excel“ failas atrodys taip:

Išvenkite skausmingos PST duomenų korupcijos

„Outlook“ pelnė daug šlovės dėl įvairių funkcijų. Tačiau tai nereiškia, kad tai yra patikima. Jis vis tiek gali būti pažeistas bet kuriuo metu. Pavyzdžiui, jei dažnai netinkamai uždarote „Outlook“, labai tikėtina, kad jūsų PST duomenims kils pavojus. Šiuo atveju, jei norite remontas PST duomenis, turite pasinaudoti patyrusiu įrankiu, pvz DataNumen Outlook Repair.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant atkurti mdf ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com