Agar siz Excel ish varag'ini elektron pochta sifatida yubormoqchi bo'lsangiz, uni elektron pochtaga ilova sifatida qo'shish o'rniga, ushbu maqolada keltirilgan ikkita usuldan foydalanishingiz mumkin.
Ba'zan, Excel faylini elektron pochtaga ilova sifatida biriktirishdan farqli o'laroq, siz Excel ish varag'ini to'g'ridan-to'g'ri elektron pochta manziliga kiritishni xohlashingiz mumkin, boshqacha qilib aytganda, uni elektron pochta sifatida yuborishingiz mumkin. Ushbu talabga javoban, siz MS Excel yoki MS Outlook-da yuborishni xohlayotganingizga qarab, quyidagi ikkita vositadan birini qo'llashingiz mumkin. Endi batafsil operatsiyalarni olish uchun o'qing.
1-usul: Excelda yuborish
- Eng boshida, manba Excel faylini oching.
- Keyin Tez kirish asboblar panelidagi pastga o'qni bosing.
- Ochiladigan ro'yxatda siz "Qo'shimcha buyruqlar" ni tanlashingiz kerak.
- Keyin Tez kirish asboblar paneliga "Pochtani qabul qiluvchiga yuborish" ni qo'shishingiz kerak.
- Birinchidan, "Buyruqlarni tanlang:" ochiladigan ro'yxatida "Barcha buyruqlar" ni tanlang.
- Keyin, "Pochtani qabul qiluvchiga yuborish" buyrug'ini toping va tanlang.
- Keyin markazdagi "Qo'shish" tugmasini bosing.
- Uni o'ng tomonga qo'shgandan so'ng, o'zgarishlarni saqlash uchun "OK" tugmasini bosing.
- Shundan so'ng, asosiy Excel oynasiga qayting va Tez kirish asboblar panelidagi "Pochtani qabul qiluvchiga yuborish" tugmasini bosing.
- Qalqib chiquvchi dialog oynasida "Joriy varaqni xabarning asosiy qismi sifatida yuborish" -ni tanlang.
- Keyinchalik, quyidagi skrinshot kabi yangi asboblar paneli ko'rsatiladi. Endi siz o'zingizning ehtiyojlaringiz bo'yicha elektron pochta ma'lumotlarini yaratishingiz mumkin.
- Nihoyat, ushbu varaqni elektron pochta orqali yuborish uchun "Ushbu varaqni yuborish" tugmasini bosing.
2-usul: Outlook-da yuborish
- Birinchidan, Outlook dasturini ishga tushiring.
- Keyin Outlook VBA muharririni ochish uchun "Alt + F11" tugmachalarini bosing.
- Keyinchalik, yangi modulni oching va unga quyidagi VBA kodlarini nusxalang.
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
- Shundan so'ng, asboblar panelidagi "Ishga tushirish" belgisini bosishingiz mumkin.
- Birdaniga makro ishga tushadi.
- Keyin sizdan ma'lum bir Excel fayliga fayl yo'lini kiritish maydoniga nusxalashingiz va "OK" tugmasini bosishingiz kerak bo'ladi.
- Nihoyat, tanadagi Excel ish varag'ini o'z ichiga olgan yangi elektron pochta "Qoralamalar" pochta papkasida saqlanadi. Siz uni quyidagi skrinshot kabi topishingiz mumkin:
Muammoli PST muammolarini xushmuomalalik bilan enging
Outlook PST fayli xatolikka moyil bo'lganligi sababli, Outlook-da turli muammolarga duch kelgan bo'lishingiz mumkin. Shuning uchun, og'riqli bo'lmaslik uchun PST shikastlanishi, PST faylingiz uchun muntazam ma'lumotlarning zaxira nusxalarini yaratish oqilona. Bundan tashqari, siz yaqin joyda kuchli tuzatish vositasini saqlashingiz kerak, masalan DataNumen Outlook Repair.
Muallif kirish:
Shirli Chjan ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc sql zarari va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com