Ha egy Excel-munkafüzetben lévő összes munkalapot külön Outlook e-mailként szeretné elküldeni, használhatja az ebben a cikkben bemutatott módszert. Segítségével tömegesen valósíthatja meg, anélkül, hogy egyenként küldené el a problémát.
Az előző bejegyzésemben „2 gyors módszer Excel-munkalap küldésére Outlook e-mailként” című részben kétféleképpen küldhet el egy Excel-munkalapot e-mailben. Ha egy munkafüzetben található összes munkalapot különálló e-mailben szeretné elküldeni, akkor a bejegyzésben említett két módszer bármelyikének használata meglehetősen fárasztó és nehézkes lesz. Ezért itt bemutatunk egy másik módszert, amellyel gyorsan megvalósítható ez a „kötegelt küldés”.
Kötegben küldje el az összes munkalapot egy Excel-munkafüzetben külön e-mailként
- Először is meg kell nyitnia a forrás Excel-munkafüzetet.
- Ezután az Excel ablakba való belépés után meg kell érintenie az „Alt + F11” billentyűparancsokat.
- Ezután egy másik „Microsoft Visual Basic for Applications” nevű ablak jelenik meg.
- Ebben meg kell nyitnia egy nem használt modult, vagy be kell helyeznie egy új modult.
- Ezt követően a következő VBA-kódot másolhatja ebbe a modulba.
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
- Ezt követően elindíthatja ezt a makrót az F5 billentyű megnyomásával vagy az eszköztár „Futtatás” ikonjára kattintva.
- Az Excel-munkafüzet összes munkalapjának megfelelő e-mailek azonnal megjelennek az Outlookban.
- Végül újra ellenőrizheti az e-mailek adatait, és végül kattintson a „Küldés” gombra az e-mailek elküldéséhez.
Ha nincs biztonsági másolat, alkalmazzon egy hatékony helyreállítási eszközt
Egyre több felhasználó érti meg az adatmentések fontosságát. Mindaddig, amíg biztonsági másolatot készített a PST-fájlról, PST helyreállítás kár után egészen egyszerű lesz. De ha nincs hatékony és naprakész PST biztonsági mentés, akkor nincs más választása, mint egy külső PST-javító eszköz, mint pl. DataNumen Outlook Repair. Gyorsan kijavíthatja a sérült PST-fájlokat.
Szerző Bevezetés:
Shirley Zhang adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve SQL helyreállítása és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com