Бір Excel жұмыс кітабындағы барлық жұмыс парақтарын бөлек Outlook электрондық пошталары ретінде пакеттік жіберу жолы

Outlook шешімдері Қыркүйек 29, 2025
Қазір бөлісу:

Excel жұмыс кітабындағы барлық жұмыс парақтарын бөлек Outlook электрондық пошталары ретінде жібергіңіз келсе, осы мақалада келтірілген әдісті пайдалана аласыз. Ол сізге оны бір-бірлеп жібермей-ақ жаппай жүзеге асыруға нұсқау бере алады.

Алдыңғы жазбамда «2 Excel жұмыс парағын Outlook электрондық поштасы ретінде жіберудің жылдам әдістері«, сіз бір Excel жұмыс парағын электрондық пошта ретінде жіберудің екі жолын үйрене аласыз. Егер сіз бір жұмыс кітабындағы барлық жұмыс парақтарын жеке электрондық пошта ретінде топтап жібергіңіз келсе, сол жазбада аталған екі әдістің кез келгенін пайдалану өте жалықтыратын және қиын болады. Осылайша, біз мұнда «топтап жіберуді» тез арада жүзеге асырудың тағы бір жолын ұсынамыз.

Бір Excel жұмыс кітабындағы барлық жұмыс парақтарын бөлек Outlook электрондық пошталары ретінде пакеттік жіберу

Бір Excel жұмыс кітабындағы барлық жұмыс парақтарын бөлек электрондық пошталар ретінде пакеттік жіберу

  1. Біріншіден, бастапқы Excel жұмыс кітабын ашу керек.
  2. Содан кейін Excel терезесіне кіргеннен кейін «Alt + F11» пернелер тіркесімін басу керек.
  3. Әрі қарай, «Қолданбаларға арналған Microsoft Visual Basic» деп аталатын басқа терезе көрсетіледі.
  4. Онда пайдаланылмаған модульді ашу немесе жаңа модульді енгізу керек.
  5. Кейіннен келесі модульге келесі 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

VBA коды - Бір Excel жұмыс кітабындағы барлық жұмыс парақтарын бөлек Outlook электрондық пошталары ретінде пакеттік жіберу

  1. Осыдан кейін F5 пернесін басу немесе құралдар тақтасындағы «Іске қосу» белгішесін басу арқылы осы макросты іске қосуға болады.
  2. Бірден осы Excel жұмыс кітабындағы барлық жұмыс парақтарына сәйкес келетін электрондық пошталар Outlook бағдарламасында көрсетіледі.
  3. Соңында, сіз барлық электрондық хаттардың мәліметтерін қайта тексере аласыз және соңында электрондық поштаны жіберу үшін «Жіберу» түймесін басыңыз.

Сақтық көшірмелер болмаса, күшті қалпына келтіру құралын қолданыңыз

Көбірек пайдаланушылар деректердің сақтық көшірмесін жасаудың маңыздылығын түсінді. PST файлының сақтық көшірмесін жасағаныңызша, PST қалпына келтіру зақымданудан кейін өте қарапайым болады. Бірақ тиімді және жаңартылған PST сақтық көшірмесі болмаса, сізде PST сияқты сыртқы жөндеу құралының көмегіне жүгінуден басқа амалыңыз жоқ. DataNumen Outlook Repair. Ол бұзылған PST файлдарын жел сияқты жөндей алады.

Автордың кіріспесі:

Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. қалпына келтіру кв және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com

Қазір бөлісу:

Пікірлер жабылды.