Juda uzoq e-pochta xabarining oxiriga matnlarni tezda qo'shishni xohlasangiz, oxirigacha pastga aylantirish uchun sizga biroz vaqt kerak bo'ladi. Ushbu maqola sizga VBA orqali elektron pochtaning oxiri yoki boshiga tezda o'tish imkonini beradigan usulni ochib beradi.
Ba'zan, uzun elektron pochta xabarini ko'rayotganda, xohlagan vaqtda kursorni xabarning oxiri yoki boshiga tezda o'tish yoki siljitish imkoniyatiga ega bo'lishni xohlashingiz mumkin. Masalan, siz jo'natuvchining imzosini tekshirishni xohlaysiz, shuning uchun siz oxiriga o'tishingiz kerak. Umuman olganda, siz oxiriga yetguncha pastga aylantirishingiz kerak. Bu biroz qiyin bo'lishi mumkin. Shuning uchun, bu yerda biz sizga bir marta bosish orqali oxiriga o'tish yoki boshlashga yordam beradigan VBA kodining bir qismini taqdim etamiz.
Xabarning boshiga yoki oxiriga tezda o'ting
- Eng boshidanoq, Outlook dasturingizni ishga tushiring.
- Keyin asosiy Outlook oynasida "Alt + F11" tugmachalarini bosing.
- Keyin siz "Ilovalar uchun Microsoft Visual Basic" oynasiga kirasiz.
- Ushbu nuqtada siz bo'sh modulni ochishingiz yoki to'g'ridan-to'g'ri yangisini kiritishingiz kerak.
- Keyinchalik, bunday modul oynasiga quyidagi VBA kodini nusxalashingiz va joylashtirishingiz kerak.
Dim objCurrentMail As Outlook.MailItem Dim objWordDocument As Word.Document Dim objWordRange As Word.Range Dim VarPosition As Variant Sub JumpToEnd() 'Faqat joriy elektron pochta matn muharriridan foydalanayotgan bo'lsa ishlaydi Set objCurrentMail = Outlook.Application.ActiveInspector.CurrentItem Set objWordDocument = objCurrentMail.GetInspector.WordEditor Agar yo'q bo'lsa (objWordDocument Hech narsa emas) Then VarPosition = objWordDocument.Range.End - 1 Set objWordRange = objWordDocument.Range(VarPosition, VarPosition) objWordRange.Select End If End Sub Sub JumpToStart() Agar yo'q bo'lsa (objWordDocument Hech narsa emas) Then VarPosition = objWordDocument.Range.Start Set objWordRange = objWordDocument.Range(VarPosition, VarPosition) objWordRange.Select End If End Sub
- Shundan so'ng, xabarlar oynasining Tez kirish asboblar paneliga ikkita yangi pastki dasturni qo'shsangiz yaxshi bo'ladi.
- Birinchidan, xabarlar oynasida elektron pochta xabarini oching.
- Keyin Tez kirish asboblar panelidagi pastga o'qni bosing.
- Ochiladigan ro'yxatda siz "Qo'shimcha buyruqlar" ni tanlashingiz kerak.
- Keyingi oynada siz quyidagi skrinshot kabi makroslarni Tez kirish asboblar paneliga qo'shishingiz mumkin:
- Nihoyat, o'zgarishlarni saqlash uchun bir qator "OK" tugmasini bosing.
- Oxir-oqibat, bundan buyon siz quyidagi rasmda ko'rsatilgan Tez kirish asboblar panelidagi tugmani bosish orqali elektron pochtaning boshiga yoki oxiriga o'tishingiz mumkin:
Agar PST fayli buzilgan bo'lsa nima bo'ladi?
PST fayli xatolar va buzilishlarga moyil bo'lganligi sababli, siz PST ma'lumotlaringizni himoya qilishga harakat qilishingiz kerak. Masalan, siz vaqti-vaqti bilan PST faylingizni zaxiralashingiz kerak. Bundan tashqari, qaytib kelish uchun shikastlangan PST ma'lumotlarni o'z vaqtida ishlatsangiz, yaqin joyda kuchli vositani saqlaganingiz ma'qul DataNumen Outlook Repair. U PST muammolarini tuzatish va PST ma'lumotlarini olishga ixtisoslashgan.
Muallif kirish:
Shirli Chjan ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc SQL Server tuzatish va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com