Excel iş kitabındakı bütün iş vərəqlərini ayrıca Outlook e-poçtları kimi göndərmək istəyirsinizsə, bu məqalədə təqdim olunan üsuldan istifadə edə bilərsiniz. Bu, bir-bir göndərmədən toplu şəkildə həyata keçirməyə kömək edə bilər.
Əvvəlki paylaşımımda “Excel İş Vərəqini Outlook E-poçtu kimi Göndərməyin 2 Sürətli Metodları", bir Excel iş vərəqini e-poçt kimi göndərməyin iki yolunu öyrənə bilərsiniz. Bir iş dəftərindəki bütün iş vərəqlərini fərdi e-poçtlar kimi toplu şəkildə göndərmək istəyirsinizsə, həmin yazıda qeyd olunan iki vasitədən hər hansı birini istifadə etmək olduqca yorucu və əziyyətli olacaq. Beləliklə, burada belə bir "Toplu Göndərmə"ni tez bir zamanda həyata keçirə biləcək başqa bir yolu təqdim edəcəyik.
Toplu Bütün İş Vərəqlərini Bir Excel İş Kitabında Ayrı E-poçt kimi Göndərin
- İlk növbədə, mənbə Excel iş kitabını açmalısınız.
- Sonra, Excel pəncərəsinə daxil olduqdan sonra "Alt + F11" düymələrinin qısa yollarına toxunmalısınız.
- Sonra "Proqramlar üçün Microsoft Visual Basic" adlı başqa bir pəncərə görünəcək.
- Orada istifadə olunmamış modulu açmalı və ya yeni modul daxil etməlisiniz.
- Sonradan aşağıdakı VBA kodunu bu modula köçürə bilərsiniz.
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
- Bundan sonra, F5 düyməsi düyməsini basaraq və ya alətlər panelindəki "Çalışdır" işarəsini vuraraq bu makrosunu işə sala bilərsiniz.
- Bu Excel iş kitabındakı bütün iş vərəqlərinə uyğun gələn e-poçtlar dərhal Outlook-da görünəcək.
- Nəhayət, siz bütün e-poçtların təfərrüatlarını yenidən yoxlaya və nəhayət e-poçtları göndərmək üçün “Göndər” düyməsini klikləyə bilərsiniz.
Yedəkləmə yoxdursa, Güclü Bərpa Alətini tətbiq edin
Getdikcə daha çox istifadəçi məlumatların ehtiyat nüsxələrinin çıxarılmasının vacibliyini başa düşdü. PST faylınızın ehtiyat nüsxəsini çıxardığınız müddətcə, PST bərpası zərər sonra olduqca sadə olacaq. Ancaq effektiv və müasir PST ehtiyat nüsxəsi yoxdursa, xarici PST təmir alətindən kömək almaqdan başqa seçiminiz yoxdur, məsələn DataNumen Outlook Repair. Təhlükəli PST fayllarını bir meh kimi təmir edə bilər.
Müəllif Giriş:
Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc sql bərpa edin və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com