Ak chcete odoslať všetky pracovné hárky v zošite programu Excel ako samostatné e-maily programu Outlook, môžete použiť metódu uvedenú v tomto článku. Môže vás naviesť na to, aby ste si to uvedomili hromadne bez toho, aby ste ich nepríjemne poslali jeden po druhom.
V mojom predchádzajúcom príspevku „2 rýchle spôsoby odoslania tabuľky programu Excel ako e-mailu programu Outlook„, môžete sa naučiť dva spôsoby, ako odoslať jeden pracovný hárok programu Excel ako e-mail. Ak chcete hromadne odoslať všetky pracovné hárky v jednom zošite ako jednotlivé e-maily, použitie ktoréhokoľvek z dvoch spôsobov uvedených v tomto príspevku bude dosť zdĺhavé a problematické. Preto si tu predstavíme ďalší spôsob, ktorým môžete takéto „hromadné odoslanie“ realizovať rýchlo.
Dávkové odoslanie všetkých pracovných hárkov v jednom zošite programu Excel ako samostatných e-mailov
- V prvom rade by ste mali otvoriť zdrojový zošit programu Excel.
- Po vstupe do okna programu Excel by ste mali klepnúť na klávesové skratky „Alt + F11“.
- Ďalej sa zobrazí ďalšie okno s názvom „Microsoft Visual Basic for Applications“.
- V ňom musíte otvoriť nepoužívaný modul alebo vložiť nový modul.
- Následne môžete do tohto modulu skopírovať nasledujúci kód VBA.
Sub SendEachWorksheet_inOutlookEmail()
Dim objWorksheet As Excel.Worksheet
Dim objRange As Excel.Range
Dim objTempWorkbook As Excel.Workbook
Dim objTempWorksheet As Excel.Worksheet
Dim strTempFolder As String
Dim strHTMLFile As String
Dim objHTMLFile As Object
Dim objFileSystem As Object
Dim objTextStream As Object
Dim objOutlookApp As Outlook.Application
Dim objMail As Outlook.MailItem
For Each objWorksheet In ActiveWorkbook.Sheets
Set objRange = objWorksheet.UsedRange
objRange.Copy
Set objTempWorkbook = Excel.Application.Workbooks.Add(1)
Set objTempWorksheet = objTempWorkbook.Sheets(1)
With objTempWorksheet.Cells(1)
.PasteSpecial xlPasteValues
.PasteSpecial xlPasteColumnWidths
.PasteSpecial xlPasteFormats
End With
strTempFolder = CStr(Environ("USERPROFILE")) & "\AppData\Local\Temp"
strHTMLFile = strTempFolder & "\Temp" & Format(Now, "yyyymmddhhmmss") & ".htm"
Set objHTMLFile = objTempWorkbook.PublishObjects.Add(xlSourceRange, strHTMLFile, objTempWorksheet.Name, objTempWorksheet.UsedRange.Address)
objHTMLFile.Publish (True)
Set objOutlookApp = CreateObject("Outlook.Application")
Set objMail = objOutlookApp.CreateItem(olMailItem)
Set objFileSystem = CreateObject("Scripting.FileSystemObject")
Set objTextStream = objFileSystem.OpenTextFile(strHTMLFile)
objMail.HTMLBody = objTextStream.ReadAll
'Change the email details as per your needs
With objMail
.To = "test@datanumen.com"
.Subject = objWorksheet.Name
.Display
End With
objTextStream.Close
objTempWorkbook.Close False
Kill strHTMLFile
Next
End Sub
- Potom môžete toto makro spustiť stlačením klávesu F5 alebo kliknutím na ikonu „Spustiť“ na paneli nástrojov.
- E-maily, ktoré zodpovedajú všetkým pracovným hárkom v tomto zošite programu Excel, sa naraz zobrazia v Outlooku.
- Na záver môžete znova skontrolovať všetky podrobnosti e-mailov a nakoniec kliknutím na tlačidlo „Odoslať“ e-maily odoslať.
Ak neexistujú žiadne zálohy, použite nástroj na silné zotavenie
Čoraz viac používateľov pochopilo dôležitosť zálohovania údajov. Pokiaľ ste zálohovali svoj súbor PST, Obnova PST po poškodení bude dosť jednoduché. Ak ale neexistuje efektívne a aktuálne zálohovanie PST, nezostáva vám nič iné, ako využiť externý nástroj na opravu PST, napríklad DataNumen Outlook Repair. Môže opraviť narušené súbory PST ako vánok.
Ú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 obnoviť sql a výhľadové softvérové produkty na opravu. Pre viac informácií navštívte www.datanumen. S