Niektorí používatelia by chceli automaticky zaznamenávať informácie o prílohách do každého prichádzajúceho e-mailu. Tento článok bude zdieľať rýchly čas na jeho ľahké uskutočnenie.
Ak ste zvyknutí exportovať informácie o prílohách každého prichádzajúceho e-mailu v Outlooku do súboru Excel, možno budete túžiť po niektorých prístupoch, vďaka ktorým bude môcť Outlook túto prácu vykonávať automaticky. Vďaka tomu sa budete môcť ručne zbaviť sledovacích príloh. Našťastie, aj keď Outlook neposkytuje takúto priamu funkciu, stále ho môžete dosiahnuť trochou skriptovania. Teraz vás naučíme krok za krokom.
Automaticky exportovať informácie o prílohách prichádzajúcich e-mailov do programu Excel
- Najskôr spustite aplikáciu Outlook.
- Potom pomocou „Alt + F11“ prejdite do editora VBA.
- Ďalej skopírujte nasledujúci kód VBA do modulu.
Sub AutoExportAttachmentInfo(objMail As Outlook.MailItem)
Dim objExcelApp As Excel.Application
Dim objExcelWorkbook As Excel.Workbook
Dim objExcelWorksheet As Excel.Worksheet
Dim nLastRow As Integer
Dim objAttachment As Outlook.Attachment
If objMail.Attachments.Count > 0 Then
'Change the path to the specific Excel file
strExcelFile = "E:\Attachment Info.xlsx"
Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.Visible = True
Set objExcelWorkbook = objExcelApp.Workbooks.Open(strExcelFile)
Set objExcelWorksheet = objExcelWorkbook.Sheets("Sheet1")
'Export Attachment info to Excel
For Each objAttachment In objMail.Attachments
nLastRow = objExcelWorksheet.Range("A" & objExcelWorksheet.Rows.Count).End(xlUp).Row + 1
With objExcelWorksheet
.Cells(nLastRow, 1) = objMail.Subject
.Cells(nLastRow, 2) = objMail.SenderEmailAddress
.Cells(nLastRow, 3) = objAttachment.FileName
.Cells(nLastRow, 4) = objMail.ReceivedTime
End With
Next
objExcelWorksheet.Columns("A:C").AutoFit
objExcelWorkbook.Close True
objExcelApp.Quit
End If
End Sub
- Potom ukončite editor VBA.
- Následne vytvorte pravidlo na automatické spustenie tohto makra pri každom prichádzajúcom e-maile.
- Najskôr choďte do ponuky „Súbor“.
- Potom kliknite na tlačidlo „Spravovať pravidlá a upozornenia“.
- V dialógovom okne „Pravidlá a upozornenia“ kliknite na „Nové pravidlo“.
- V dialógovom okne „Sprievodca pravidlami“ vyberte „Použiť pravidlo na správy, ktoré dostávam“ a kliknite na „Ďalej“.
- Ďalej nastavte pravidlá podľa svojich potrieb a stlačte „Ďalej“.
- V kroku „Vybrať akcie“ vyberte možnosť „Spustiť skript“ a vyberte skript „AutoExportAttachmentInfo“.
- Nakoniec dokončite nastavenie pravidla podľa sprievodcov na obrazovke.
- Odteraz bude program Outlook automaticky exportovať informácie o prílohách do vopred určeného súboru programu Excel, keď bude mať v schránke nový e-mail, ak obsahuje nejaké prílohy.
Nikdy nesťahujte podozrivé prílohy
Dostali ste niekedy e-maily, ktoré sú od neznámych odosielateľov a obsahujú prílohy? Zvyčajne sa odporúča nedôverovať takýmto prílohám, pretože môžu obsahovať vírusy. Ak si ich stiahnete, môžu byť infikované vaše údaje z Outlooku. V tom okamihu budete musieť opraviť Outlook spis. Je to nepochybne uzlové, pokiaľ sa nerozhodnete pre zdatný nástroj na opravu, ako napr DataNumen Outlook Repair.
Úvod autora:
Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane zotaviť sa Sql Server a výhľadové softvérové produkty na opravu. Pre viac informácií navštívte www.datanumen. S