Možná při psaní e-mailů možná budete muset odkázat na konkrétní soubory, které jsou uloženy na místním pevném disku, jako je textový dokument nebo sešit aplikace Excel. Tento článek vás tedy naučí rychle otevírat konkrétní soubory z Outlooku přes VBA.
Často se od vás vyžaduje, abyste při práci s e-maily v Outlooku zkontrolovali nebo odkazovali na konkrétní soubory? Například vaše společnost nastavila mnoho pravidel pro e-maily, které jsou zasílány našim klientům, a pravidla jsou uvedena v konkrétním dokumentu aplikace Word. Proto pokaždé, když vytvoříte takový e-mail zaslaný klientům, budete muset odkazovat na konkrétní dokument. V tomto případě bude docela výhodné, když můžete přímo otevřít konkrétní soubor z aplikace Outlook. Naštěstí toho můžete dosáhnout pomocí aplikace Outlook VBA.
Otevřete konkrétní dokument Word v aplikaci Outlook
- Pro jakotart, staraplikace Outlook.
- Poté stiskněte klávesovou zkratku „Alt + F11“, abyste získali přístup k editoru Outlook VBA,
- Následně v rozbalovacím dialogovém okně otevřete modul, který se nepoužívá, nebo vložte nový nový modul pomocí „Vložit“> „Modul“.
- Poté byste měli zkopírovat následující kódy VBA do nového modulu.
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
- Později můžete zavřít editor VBA a přidat projekt VBA na panel nástrojů Rychlý přístup nebo na pás karet. Zde si vezmeme jako příklad panel nástrojů Rychlý přístup, můžete postupovat podle kroků zobrazených na obrázku níže:
- Nakonec se můžete vrátit do hlavního okna Outlooku. Jakmile kliknete na tlačítko makra na panelu nástrojů Rychlý přístup, otevře se konkrétní dokument aplikace Word, který se zobrazí jako následující snímek obrazovky:
Otevřete konkrétní sešit aplikace Excel v aplikaci Outlook
Pokud doufáte, že v aplikaci Outlook rychle otevřete konkrétní sešit aplikace Excel, můžete použít následující kódy VBA:
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
Dále můžete nové makro přidat na panel nástrojů Rychlý přístup jako obvykle. Když stisknete příslušné tlačítko, zobrazí se konkrétní sešit aplikace Excel.
Nikdy nezdržujte řešení chyb aplikace Outlook
Vzhledem k tomu, že Outlook je náchylný k chybám, musíte v něm narazit na různé problémy. Některé z nich mohou být tak malé a fatální. Proto někdy, i když je trpíte, možná váš Outlook může stále fungovat jako obvykle. Ale měli byste na ně přijít jasně. Jinak bude hromadění nevyřešených problémů s Outlookem mít za následek vážné poškození dat aplikace Outlook. V tom okamžiku, pokud chcete opravit Outlook, musíte se uchýlit ke spolehlivému a renomovanému nástroji, jako DataNumen Outlook Repair.
Úvod autora:
Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně opravit mdf a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com