Outlook-da, barcha jadvallarni bitta elektron pochtadan boshqasiga olib tashlash va nusxalash kerak bo'lganda, buni qo'lda qilish shubhasiz zerikarli va mashaqqatli. Ushbu maqola siz bilan ancha aqlli yo'lni baham ko'radi.
Ba'zida siz boshqa elektron pochta jadvallarini o'z ichiga olgan yangi elektron pochta yaratishni xohlashingiz mumkin. Elektron pochtada faqat bitta jadval bo'lsa, bu juda oson. Biroq, agar manba elektron pochtasida bir nechta jadval mavjud bo'lsa, qo'lda nusxa ko'chirish juda zerikarli. Shunday qilib, quyida biz yanada samaraliroq va aqlliroq bo'lgan boshqa usulni taqdim etamiz.
Barcha jadvallarni bitta elektron pochtadan boshqasiga nusxalash
- Boshlash uchun siz Outlook-ga odatdagidek kirishingiz kerak.
- Keyin, asosiy Outlook oynasida siz "Alt + F11" yorliqlarini bosishingiz mumkin.
- Keyinchalik, qalqib chiquvchi "Microsoft Visual Basic for Applications" oynasida foydalanilmagan modulni ochishingiz yoki shunchaki yangisini kiritishingiz kerak.
- Keyinchalik, ushbu modulga quyidagi VBA kodini nusxalashingiz mumkin.
Sub CopyAllTablesFromOneEmailToAnother()
Dim objSourceMail As Outlook.MailItem
Dim objSourceMailDocument As Word.Document
Dim objNewMail As Outlook.MailItem
Dim objNewMailDocument As Word.Document
Dim objTable As Word.Table
'Get the source email
Select Case TypeName(Application.ActiveWindow)
Case "Explorer"
Set objSourceMail = ActiveExplorer.Selection.Item(1)
objSourceMail.Display
Case "Inspector"
Set objSourceMail = ActiveInspector.CurrentItem
End Select
Set objSourceMailDocument = objSourceMail.GetInspector.WordEditor
If objSourceMailDocument.Tables.count > 0 Then
'Create a new email
Set objNewMail = Application.CreateItem(olMailItem)
For Each objTable In objSourceMailDocument.Tables
Set objNewMailDocument = objNewMail.GetInspector.WordEditor
'Copy all tables from source email to the new email
With objNewMailDocument.Range
.Collapse wdCollapseEnd
.FormattedText = objTable.Range.FormattedText
.Collapse wdCollapseEnd
.Text = vbCrLf
End With
Next
'Close the source email
objSourceMail.Close olSave
'Display the new email
objNewMail.Display
End If
End Sub
- Shundan so'ng, joriy VBA muharriri oynasidan chiqishingiz mumkin.
- Keyinchalik, barcha makroslarni yoqish uchun Outlook makro sozlamalarini o'zgartirishingiz kerak.
- Bundan tashqari, ushbu makrosni "Outlook Options" da bajarilishi mumkin bo'lgan Tez kirish asboblar paneliga qo'shsangiz yaxshi bo'ladi.
- Nihoyat, siz sinab ko'rishingiz mumkin:
- Eng boshida, jadvallari nusxalanadigan elektron pochta manzilini oching yoki tanlang.
- Keyin, Tez kirish asboblar panelidagi yangi qo'shilgan makros tugmasini bosing.
- Makros ishga tushirilgandan so'ng, manba elektron pochta jadvallari joylashtirilgan yangi elektron pochta xabari paydo bo'ladi.
Outlook faylini korruptsiyadan himoya qiling
Outlook mustaqil elektron pochta mijozi yoki shaxsiy jadval menejeri bo'lishidan qat'i nazar, yaxshi rol o'ynashi mumkin bo'lsa-da, u hali ham xatolar va buzilishlardan himoyalana olmaydi. Shuning uchun, shubhasiz, Outlook ma'lumotlaringizni himoya qilish mashaqqatli va zerikarli vazifadir. Shubhali havolalarni bosmaslik, xavfli qo'shimchalarni yuklab olish yoki Outlookni noto'g'ri yopmaslik va hokazolar kabi Outlook-dagi kundalik xatti-harakatlaringizni kuzatib borishingiz kerak. Albatta, siz yulduzlarni ta'mirlash vositasini yaqin joyda saqlashingiz kerak, masalan DataNumen Outlook Repair bu mumkin Outlook-ni ta'mirlash shamol kabi muammolar.
Muallif kirish:
Shirli Chjan ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc mdf ta'mirlash va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com