Егер сіз Excel жұмыс парағын электрондық поштаға тіркеме ретінде қосудың орнына электрондық пошта ретінде жібергіңіз келсе, осы мақалада енгізілген екі әдісті қолдануға болады.
Кейде, Excel файлын электрондық поштаға тіркеме ретінде тіркеуден айырмашылығы, сіз электрондық пошта корпусына Excel жұмыс парағын тікелей кірістіруді, басқаша айтқанда, оны электрондық пошта ретінде жіберуді қалауыңыз мүмкін. Осы талапқа жауап ретінде сіз MS Excel немесе MS Outlook бағдарламаларына жіберуге байланысты келесі екі құралдың кез-келгенін қолдана аласыз. Енді егжей-тегжейлі операцияларды алу үшін оқыңыз.
1-әдіс: Excel бағдарламасында жіберу
- Ең басында бастапқы Excel файлын ашыңыз.
- Содан кейін жылдам қол жеткізу құралдар тақтасындағы төмен көрсеткіні басыңыз.
- Ашылмалы тізімнен «Қосымша командалар» тармағын таңдау керек.
- Әрі қарай жылдам қол жетімділік құралдар тақтасына «Жіберу алушысына жіберуді» қосу керек.
- Біріншіден, «Пәрмендерді таңдаңыз:» ашылмалы тізімінен «Барлық командалар» тармағын таңдаңыз.
- Содан кейін «Пошта алушысына жіберу» пәрменін таңдап, таңдаңыз.
- Содан кейін ортасында «Қосу» батырмасын басыңыз.
- Оны оң жаққа қосқаннан кейін, өзгертулерді сақтау үшін «ОК» батырмасын басыңыз.
- Осыдан кейін 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
- Осыдан кейін құралдар тақтасындағы «Іске қосу» белгішесін басуға болады.
- Бірден макрос іске қосылады.
- Содан кейін сіз файл жолын кірістегі өріске нақты Excel файлына көшіріп, «OK» батырмасын басыңыз.
- Сонымен, Excel жұмыс парағы бар жаңа электрондық пошта «Жобалар» пошта қалтасында сақталады. Сіз оны келесі скриншот сияқты таба аласыз:
PST проблемаларын әдептілікпен жеңе біліңіз
Outlook PST файлы қатеге бейім болғандықтан, Outlook бағдарламасында әртүрлі мәселелер туындаған болуы мүмкін. Сондықтан, ауыртпалықты болдырмау үшін PST зақымдануы, сіздің PST файлыңыз үшін жүйелі түрде деректердің сақтық көшірмелерін жасап отырған дұрыс. Сонымен қатар, сіз жақын жерде күшті түзету құралын ұстауыңыз керек DataNumen Outlook Repair.
Автордың кіріспесі:
Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. кв. залал және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com