Možda kada sastavljate e-poruke, možda ćete često morati da se pozivate na određene datoteke koje su pohranjene na vašem lokalnom tvrdom disku, kao što je Word dokument ili Excel radna knjiga. Dakle, ovaj članak će vas naučiti da brzo otvorite određene datoteke iz Outlooka putem VBA.
Da li se od vas često traži da provjeravate ili upućujete na određene datoteke kada radite s e-poštom u Outlooku? Na primjer, vaša kompanija je postavila mnoga pravila za e-poruke koje se šalju našim klijentima i pravila su navedena u posebnom Word dokumentu. Stoga, svaki put kada sastavite takvu e-poštu poslanu klijentima, morat ćete se pozvati na određeni dokument. U ovom slučaju, bit će prilično zgodno ako možete direktno otvoriti određenu datoteku iz Outlooka. Na sreću, to možete postići pomoću Outlook VBA.
Otvorite određeni Word dokument u Outlooku
- Za astart, start vašu Outlook aplikaciju.
- Zatim pritisnite tasterske prečice “Alt + F11” da biste dobili pristup Outlook VBA uređivaču,
- Nakon toga, u iskačućem dijaloškom okviru, otvorite modul koji nije u upotrebi ili umetnite novi novi modul pomoću “Insert” > “Module”.
- Nakon toga, trebali biste kopirati sljedeće VBA kodove u novi modul.
Public Sub OpenSpecificWordDocument()
Dim strFile As String
Dim objWordApp As Word.Application
Dim objWordDocument As Word.Document
Dim objWordTable As Word.Table
Dim objWordRange As Word.Range
'Change the following line to point to your own Word document on your local disk
strFile = "E:\Email\Email Rules.docx"
Set objWordApp = CreateObject("Word.Application")
Set objWordDocument = objWordApp.Documents.Open(strFile)
objWordDocument.Activate
Set objWordRange = objWordDocument.Range(0, 0)
objWordApp.Visible = True
objWordDocument.ActiveWindow.Visible = True
End Sub
- Kasnije možete zatvoriti VBA editor i dodati VBA projekat na traku sa alatkama za brzi pristup ili traku. Ovdje uzimamo Quick Access Toolbar kao primjer, možete pratiti korake prikazane na slici ispod:
- Konačno, možete se vratiti u glavni Outlook prozor. Čim kliknete na dugme makro na traci sa alatkama za brzi pristup, otvoriće se određeni word dokument, prikazan na sledećem snimku ekrana:
Otvorite određenu Excel radnu svesku u Outlooku
Ako se nadate da ćete brzo otvoriti određenu Excel radnu knjigu iz Outlooka, možete koristiti sljedeće VBA kodove:
Public Sub OpenSpecificExcelWorkbook()
Dim strFile As String
Dim objExcelApp As Excel.Application
Dim objExcelWorkBook As Excel.Workbook
Dim objExcelWorkSheet As Excel.Worksheet
Dim objExcelRange As Excel.Range
'Change the following line to point to your own Word document on your local disk
strFile = "E:\Email\Email Statistics.xlsx"
Set objExcelApp = CreateObject("Excel.Application")
Set objExcelWorkBook = objExcelApp.Workbooks.Open(strFile)
Set objExcelWorkSheet = objExcelWorkBook.Sheets(1)
objExcelWorkSheet.Activate
Set objExcelRange = objExcelWorkSheet.Range("A1")
objExcelRange.Activate
objExcelApp.Visible = True
End Sub
Zatim možete dodati novi makro na alatnu traku za brzi pristup kao i obično. Kada pritisnete odgovarajuće dugme, prikazaće se određena Excel radna sveska.
Nikada ne odgađajte rješavanje Outlook grešaka
Budući da je Outlook podložan greškama, sigurno ste naišli na razne probleme u njemu. Neki od njih mogu biti tako mali i fatalni. Stoga, ponekad, iako ih patite, vaš Outlook možda i dalje može raditi kao i obično. Ali bolje je da ih jasno shvatite. U suprotnom, nagomilavanje neriješenih problema sa Outlookom će dovesti do ozbiljnog oštećenja vaših Outlook podataka. U tom trenutku, ako želite popravi Outlook, morate pribjeći pouzdanom i renomiranom alatu, npr DataNumen Outlook Repair.
Uvod za autora:
Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući popraviti mdf i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com