Nëse dëshironi të dërgoni një fletë pune në Excel si email, në vend që ta shtoni në një email si bashkëngjitje, mund të përdorni dy metodat e prezantuara në këtë artikull.
Ndonjëherë, ndryshe nga bashkëngjitja e një skedari Excel në një email si bashkëngjitje, mund të dëshironi të futni drejtpërdrejt një fletë pune Excel në trupin e postës elektronike, me fjalë të tjera, ta dërgoni atë si një email. Në përgjigje të kësaj kërkese, mund të aplikoni një nga 2 mjetet e mëposhtme në varësi të faktit nëse dëshironi të dërgoni në MS Excel ose MS Outlook. Tani lexoni për të marrë operacionet e detajuara.

Metoda 1: Dërgo në Excel
- Që në fillim, hapni skedarin burim Excel.
- Pastaj klikoni në shigjetën poshtë në shiritin e veglave të aksesit të shpejtë.
- Nga lista rënëse, duhet të zgjidhni "Më shumë komanda".
- Më pas duhet të shtoni "Dërgo Marrësin e Mailit" në Shiritin e Veglave të Qasjes së Shpejtë.
- Së pari, zgjidhni "Të gjitha komandat" në listën rënëse "Zgjidhni komandat nga:".
- Më pas, gjeni dhe zgjidhni komandën "Dërgo te marrësi i postës".
- Pastaj klikoni në butonin "Shto" në qendër.
- Pasi ta shtoni në anën e djathtë, klikoni "OK" për të ruajtur ndryshimet.
- Pas kësaj, kthehuni në dritaren kryesore të Excel dhe klikoni butonin "Dërgo te marrësi i postës" në shiritin e veglave të aksesit të shpejtë.
- Në kutinë e dialogut që shfaqet, zgjidhni "Dërgo fletën aktuale si trupin e mesazhit".
- Më vonë do të shfaqet një shirit i ri veglash, si pamja e mëposhtme e ekranit. Tani mund të hartoni detajet e emailit sipas nevojave tuaja.
- Së fundi, klikoni në butonin "Dërgo këtë fletë" për ta dërguar këtë fletë si email.
Metoda 2: Dërgo në Outlook
- Në radhë të parë, nisni programin tuaj Outlook.
- Më pas shtypni butonat "Alt + F11" për të hapur redaktorin VBA të Outlook.
- Më pas, hapni një modul të ri dhe kopjoni kodet e mëposhtme VBA në të.
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
- Pas kësaj, mund të klikoni ikonën "Run" në shiritin e veglave.
- Menjëherë, makro do të aktivizohet.
- Pastaj do t'ju kërkohet të kopjoni shtegun e skedarit në skedarin specifik Excel në kutinë e hyrjes dhe shtypni "OK".
- Më në fund, një email i ri që përmban fletën e punës Excel në trup do të ruhet në dosjen e postës "Drafts". Mund ta gjeni si pamja e mëposhtme e ekranit:
Përballoni me takt çështjet problematike të PST-së
Për shkak të faktit se skedari PST i Outlook është i prirur për gabime, mund të keni hasur në një sërë çështjesh në Outlook-un tuaj. Prandaj, për të shmangur dhimbjen Dëmtimi i PST, është e mençur të bëni kopje rezervë të rregullt të të dhënave për skedarin tuaj PST. Për më tepër, duhet të mbani një mjet të fuqishëm rregullues në afërsi, si p.sh DataNumen Outlook Repair.
Hyrje e autorit:
Shirley Zhang është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë dëmtimi sql dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datanumen.com






