2 kiirmeetodit Exceli töölehe saatmiseks Outlooki meilina

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.

Saatke Exceli tööleht Outlooki meilina

1. meetod: saatke Excelis

  1. Kohe alguses avage Exceli lähtefail.
  2. Seejärel klõpsake kiirpääsu tööriistaribal allanoolt.
  3. Rippmenüüst peaksite valima "Veel käske".Kiirpääsuriba kohandamine
  4. 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".Lisage käsk "Saada kirja saajale".
  1. Pärast seda minge tagasi Exceli põhiaknasse ja klõpsake kiirjuurdepääsu tööriistaribal nuppu "Saada meili adressaadile".
  2. Hüpikdialoogiboksis valige "Saada praegune leht sõnumi sisuks".Saada praegune leht sõnumi kehana
  3. Hiljem kuvatakse uus tööriistariba, nagu järgmine ekraanipilt. Nüüd saate koostada meili üksikasjad vastavalt oma vajadustele.Koostage meili üksikasjad
  4. Lõpuks klõpsake selle lehe meilina saatmiseks nuppu "Saada see leht".

2. meetod: saatke Outlookis

  1. Kõigepealt käivitage Outlooki programm.
  2. Seejärel vajutage Outlooki VBA redaktori avamiseks klahvikombinatsiooni Alt + F11.
  3. 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

VBA koodid – saatke Exceli tööleht Outlooki meilina

  1. Pärast seda saate klõpsata tööriistaribal ikooni "Käivita".
  2. Makro käivitub korraga.
  3. Seejärel peate kopeerima konkreetse Exceli faili failitee sisestuskasti ja vajutama "OK".Määrake Exceli fail
  4. Lõpuks salvestatakse uus meil, mis sisaldab Exceli töölehte kehas, kausta "Mustandid". Leiate selle järgmise ekraanipildina:Saatke Exceli tööleht Outlooki meilina

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

Kommentaarid on suletud.