Dacă doriți să trimiteți o foaie de lucru Excel ca e-mail, în loc să o adăugați la un e-mail ca atașament, puteți utiliza cele două metode introduse în acest articol.
Uneori, spre deosebire de atașarea unui fișier Excel la un e-mail ca atașament, este posibil să doriți să inserați direct o foaie de lucru Excel în corpul e-mailului, cu alte cuvinte, să o trimiteți ca e-mail. Ca răspuns la această cerință, puteți aplica oricare dintre următoarele 2 mijloace, în funcție de dacă doriți să trimiteți în MS Excel sau MS Outlook. Acum citiți mai departe pentru a obține operațiunile detaliate.
Metoda 1: Trimiteți în Excel
- De la bun început, deschideți fișierul Excel sursă.
- Apoi faceți clic pe săgeata în jos din bara de instrumente Acces rapid.
- Din lista derulantă, ar trebui să selectați „Mai multe comenzi”.
- Apoi ar trebui să adăugați „Trimite către destinatarul e-mailului” la bara de instrumente Acces rapid.
- În primul rând, selectați „Toate comenzile” în lista drop-down „Alegeți comenzile din:”.
- Apoi, găsiți și selectați comanda „Trimite către destinatarul e-mailului”.
- Apoi faceți clic pe butonul „Adăugați” din centru.
- După ce l-ați adăugat în partea dreaptă, faceți clic pe „OK” pentru a salva modificările.
- După aceea, reveniți la fereastra principală Excel și faceți clic pe butonul „Trimite către destinatarul e-mailului” din Bara de instrumente Acces rapid.
- În caseta de dialog pop-up, selectați „Trimiteți foaia curentă ca corp de mesaj”.
- Mai târziu, se va afișa o nouă bară de instrumente, ca următoarea captură de ecran. Acum puteți compune detaliile de e-mail în funcție de nevoile dvs.
- În cele din urmă, faceți clic pe butonul „Trimiteți această foaie” pentru a trimite această foaie ca e-mail.
Metoda 2: Trimiteți în Outlook
- În primul rând, lansați programul Outlook.
- Apoi apăsați butoanele tastei „Alt + F11” pentru a deschide editorul Outlook VBA.
- Ulterior, deschideți un nou modul și copiați următoarele coduri VBA în el.
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
- După aceea, puteți face clic pe pictograma „Run” din bara de instrumente.
- Imediat, macro-ul va fi declanșat.
- Apoi vi se va solicita să copiați calea fișierului în fișierul Excel specific în caseta de introducere și să apăsați „OK”.
- În cele din urmă, un nou e-mail care conține foaia de lucru Excel în corp va fi salvat în folderul de e-mail „Ciorne”. Îl puteți găsi ca în următoarea captură de ecran:
Faceți față cu tact problemelor PST deranjante
Datorită faptului că fișierul Outlook PST este predispus la erori, este posibil să fi întâlnit o varietate de probleme în Outlook. Prin urmare, pentru a evita dureros Daune PST, este înțelept să faceți copii de rezervă regulate ale datelor pentru fișierul dvs. PST. În plus, trebuie să păstrați un instrument de reparare puternic în apropiere, cum ar fi DataNumen Outlook Repair.
Introducerea autorului:
Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv deteriorarea sql și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com