თუ გსურთ გააგზავნოთ Excel-ის სამუშაო ფურცელი ელფოსტით, ნაცვლად იმისა, რომ დაამატოთ იგი ელფოსტაში, როგორც დანართი, შეგიძლიათ გამოიყენოთ ამ სტატიაში წარმოდგენილი ორი მეთოდი.
ზოგჯერ, Excel-ის ფაილის ელფოსტაზე დანართის სახით მიმაგრებისგან განსხვავებით, შეიძლება გინდოდეთ პირდაპირ ჩასვათ Excel-ის სამუშაო ფურცელი ელფოსტის სხეულში, სხვა სიტყვებით რომ ვთქვათ, გაგზავნოთ იგი ელფოსტის სახით. ამ მოთხოვნის საპასუხოდ, შეგიძლიათ გამოიყენოთ შემდეგი 2 საშუალებებიდან რომელიმე, იმისდა მიხედვით, გსურთ გაგზავნოთ MS Excel ან MS Outlook. ახლა წაიკითხეთ დეტალური ოპერაციების მისაღებად.

მეთოდი 1: გაგზავნა Excel-ში
- თავიდანვე გახსენით Excel ფაილი.
- შემდეგ დააწკაპუნეთ ქვევით ისარზე სწრაფი წვდომის ხელსაწყოთა ზოლში.
- ჩამოსაშლელი სიიდან უნდა აირჩიოთ "მეტი ბრძანებები".
- შემდეგ თქვენ უნდა დაამატოთ „ფოსტის მიმღების გაგზავნა“ სწრაფი წვდომის ხელსაწყოთა ზოლში.
- პირველ რიგში აირჩიეთ „ყველა ბრძანება“ ჩამოსაშლელ სიაში „აირჩიე ბრძანებები:“-დან.
- შემდეგ, იპოვნეთ და აირჩიეთ ბრძანება "ფოსტის მიმღებისთვის გაგზავნა".
- შემდეგ დააჭირეთ ღილაკს "დამატება" ცენტრში.
- მარჯვენა მხარეს დამატების შემდეგ დააჭირეთ ღილაკს "OK" ცვლილებების შესანახად.
- ამის შემდეგ, დაუბრუნდით Excel-ის მთავარ ფანჯარას და დააწკაპუნეთ ღილაკზე „ფოსტის მიმღებისთვის გაგზავნა“ სწრაფი წვდომის ხელსაწყოთა ზოლში.
- ამომხტარ დიალოგურ ფანჯარაში აირჩიეთ „მიმდინარე ფურცლის გაგზავნა შეტყობინების ტექსტად“.
- მოგვიანებით გამოჩნდება ახალი ინსტრუმენტთა პანელი, როგორც შემდეგი ეკრანის სურათი. ახლა თქვენ შეგიძლიათ შეადგინოთ ელ.ფოსტის დეტალები თქვენი საჭიროების მიხედვით.
- ბოლოს დააწკაპუნეთ ღილაკზე „ამ ფურცლის გაგზავნა“ ამ ფურცლის ელფოსტის სახით გასაგზავნად.
მეთოდი 2: გაგზავნა Outlook-ში
- პირველ რიგში, გაუშვით თქვენი Outlook პროგრამა.
- შემდეგ დააჭირეთ "Alt + F11" ღილაკებს Outlook VBA რედაქტორის გასახსნელად.
- შემდეგ გახსენით ახალი მოდული და დააკოპირეთ მასში შემდეგი VBA კოდები.
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
- ამის შემდეგ, შეგიძლიათ დააჭიროთ "Run" ხატულას ხელსაწყოთა ზოლში.
- ერთბაშად ამოქმედდება მაკრო.
- შემდეგ თქვენ მოგიწევთ დააკოპიროთ ფაილის ბილიკი კონკრეტულ Excel ფაილში შეყვანის ველში და დააჭირეთ ღილაკს "OK".
- და ბოლოს, ახალი ელფოსტა, რომელიც შეიცავს Excel-ის სამუშაო ფურცელს სხეულში, შეინახება ფოსტის საქაღალდეში „Drafts“. თქვენ შეგიძლიათ იპოვოთ ის, როგორც შემდეგი ეკრანის სურათი:
გაუმკლავდეთ პრობლემურ PST საკითხებს ტაქტიანად
გამომდინარე იქიდან, რომ Outlook PST ფაილი არის შეცდომის მიდრეკილება, თქვენ შეიძლება შეგხვედროთ სხვადასხვა პრობლემა თქვენს Outlook-ში. ამიტომ, რათა თავიდან ავიცილოთ მტკივნეული PST დაზიანება, გონივრული იქნება თქვენი PST ფაილის რეგულარული მონაცემთა სარეზერვო ასლების გაკეთება. გარდა ამისა, თქვენ უნდა შეინახოთ ძლიერი დამაგრების ინსტრუმენტი სიახლოვეს, მაგალითად DataNumen Outlook Repair.
ავტორი შესავალი:
შირლი ჟანგი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის sql დაზიანება და Outlook სარემონტო პროგრამული პროდუქტები. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად






