Kui soovite saata Exceli töölehe meilina, selle asemel, et lisada see meilile manusena, võite kasutada kahte selles artiklis tutvustatud meetodit.
Mõnikord, erinevalt Exceli faili lisamisest meilile manusena, võite soovida Exceli töölehe otse meili sisusse sisestada, teisisõnu saata see meilina. Vastuseks sellele nõudele saate rakendada ühte kahest järgmisest vahendist olenevalt sellest, kas soovite saata MS Excelis või MS Outlookis. Nüüd lugege edasi, et saada üksikasjalikke toiminguid.

1. meetod: saatke Excelis
- Kohe alguses avage Exceli lähtefail.
- Seejärel klõpsake kiirpääsu tööriistaribal allanoolt.
- Rippmenüüst peaksite valima "Veel käske".
- Järgmisena peaksite kiirpääsu tööriistaribale lisama "Saada meili adressaadile".
- Esiteks valige ripploendist "Vali käsud:" valik "Kõik käsud".
- Seejärel leidke ja valige käsk "Saada meili adressaadile".
- Järgmisena klõpsake keskel asuvat nuppu "Lisa".
- Pärast selle lisamist paremale, klõpsake muudatuste salvestamiseks nuppu "OK".
- Pärast seda minge tagasi Exceli põhiaknasse ja klõpsake kiirjuurdepääsu tööriistaribal nuppu "Saada meili adressaadile".
- Hüpikdialoogiboksis valige "Saada praegune leht sõnumi sisuks".
- Hiljem kuvatakse uus tööriistariba, nagu järgmine ekraanipilt. Nüüd saate koostada meili üksikasjad vastavalt oma vajadustele.
- Lõpuks klõpsake selle lehe meilina saatmiseks nuppu "Saada see leht".
2. meetod: saatke Outlookis
- Kõigepealt käivitage Outlooki programm.
- Seejärel vajutage Outlooki VBA redaktori avamiseks klahvikombinatsiooni Alt + F11.
- Seejärel avage uus moodul ja kopeerige sellesse järgmised VBA koodid.
Sub SendanExcelWorksheetAsEmail()
Dim strExcelFile As String
Dim objExcelApp As Excel.Application
Dim objExcelWorkBook As Excel.Workbook
Dim objExcelWorkSheet As Excel.Worksheet
Dim objMail As Outlook.MailItem
strExcelFile = InputBox("Copy the file path to the specific excel file here:", "Specify Excel file", "E:\Contacts.xlsx")
On Error Resume Next
Set objExcelApp = CreateObject("Excel.Application")
Set objExcelWorkBook = objExcelApp.Workbooks.Open(strExcelFile)
Set objExcelWorkSheet = objExcelWorkBook.Sheets("Sheet1")
'Change to your own desired email body
objExcelWorkSheet.MailEnvelope.Introduction = "Message Body"
Set objMail = objExcelWorkSheet.MailEnvelope.Item
With objMail
'Change the recipient and subject as per your needs
.To = "frank@datanumen.com"
.Subject = objExcelWorkSheet.Name
'Use .Send to send it out directly
.Save
End With
objExcelApp.Quit
End Sub
- Pärast seda saate klõpsata tööriistaribal ikooni "Käivita".
- Makro käivitub korraga.
- Seejärel peate kopeerima konkreetse Exceli faili failitee sisestuskasti ja vajutama "OK".
- Lõpuks salvestatakse uus meil, mis sisaldab Exceli töölehte kehas, kausta "Mustandid". Leiate selle järgmise ekraanipildina:
Tutvuge tülikate PST-probleemidega taktitundeliselt
Kuna Outlooki PST-fail on vigane, võisite oma Outlookis esineda mitmesuguseid probleeme. Seetõttu, et vältida valulikkust PST kahjustus, on mõistlik oma PST-faili andmeid regulaarselt varukoopiaid teha. Lisaks peate läheduses hoidma tugevat parandustööriista, näiteks DataNumen Outlook Repair.
Autori sissejuhatus:
Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas sql kahjustus ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom






