Přejít k hlavnímu obsahu
 

Jak použít tlačítko pro odeslání e-mailu s připojeným aktuálním souborem Word? 

Autor: Xiaoyang Naposledy změněno: 2024-08-08

Pokud potřebujete odeslat e-mailovou zprávu z dokumentu aplikace Word prostřednictvím aplikace Outlook a připojit také aktuální soubor aplikace Word, můžete vytvořit příkazové tlačítko a poté zprávu odeslat kliknutím na toto tlačítko bez otevření aplikace Outlook. V tomto článku vám představím, jak se s tím rychle a snadno vypořádat.

Pomocí tlačítka odešlete e-mail s připojeným aktuálním souborem Word


Pomocí tlačítka odešlete e-mail s připojeným aktuálním souborem Word

Při řešení této úlohy v souboru Word proveďte následující kroky:

1. Nejprve byste měli vytvořit příkazové tlačítko, klikněte prosím Vývojka > Starší nástroje > Příkazové tlačítko (ovládání ActiveX), viz screenshot:

Karta Vývojář s vybranou skupinou Ovládací prvky, kliknutím na starší nástroje a zvýrazněným příkazovým tlačítkem

2. Vyberte tlačítko a klikněte na Nemovitosti pod Vývojka v záložce Nemovitosti v podokně zadejte požadovaný text titulku do Titulek pole, viz screenshot:

Tlačítko Vlastnosti na pásu karet a vyskočilo dialogové okno Vlastnosti

3. Poté zavřete Nemovitosti v podokně nyní klikněte pravým tlačítkem na tlačítko a vyberte Zobrazit kód, viz screenshot:

Možnost Zobrazit kód v kontextové nabídce

4. A pak, na displeji Microsoft Visual Basic pro aplikace okno, zkopírujte a vložte níže uvedený kód mezi původní skripty, viz screenshot:

Dim xOutlookObj As Object
    Dim xEmail As Object
    Dim xDoc As Document
    Application.ScreenUpdating = False
    Set xOutlookObj = CreateObject("Outlook.Application")
    Set xEmail = xOutlookObj.CreateItem(olMailItem)
    Set xDoc = ActiveDocument
    xDoc.Save
    With xEmail
        .Subject = "Fax-data"
        .Body = "This is a test email."
        .To = "yy@addin99.com"
        .Importance = olImportanceNormal
        .Attachments.Add xDoc.FullName
        .Display
    End With
    Set xDoc = Nothing
    Set xEmail = Nothing
    Set xOutlookObj = Nothing
    Application.ScreenUpdating = True

Okno VBA s vloženým výše uvedeným kódem

Pozor: Ve výše uvedeném kódu byste měli podle potřeby změnit předmět, hlavní text nebo zaslanou adresu.

5. Poté tento kód uložte a zavřete, klikněte na Režim návrhu vypnete režim návrhu. Nyní, když kliknete na příkazové tlačítko, které jste vytvořili, bude vytvořen e-mail s aktuálním dokumentem Word jako přílohou, viz screenshot:

Vytvoří se e-mail s aktuálním dokumentem aplikace Word jako přílohou

6. Nakonec stačí kliknout Odeslat tlačítko pro odeslání této zprávy.

Nejlepší nástroje pro produktivitu v kanceláři

Kutools pro Word - Zvyšte své zkušenosti se slovem Over 100 Pozoruhodné vlastnosti!

🤖 Funkce AI Kutools: Generovat obsah / Přepsat text / Dokument Q&A / Získejte rychlé odpovědi / Překládat dokumenty / Polský dokument (zachovat formát)...

📘 Mistrovství dokumentů: Rozdělit stránky / Sloučit dokumenty / Exportovat výběr v různých formátech (PDF/TXT/DOC/HTML...) / Dávkový převod do PDF...

Úprava obsahu: Dávkové hledání a nahrazování ve více souborech / Změnit velikost všech obrázků / Transponujte řádky a sloupce tabulky / Převést tabulku na text...

🧹 Čištění bez námahy: Smést pryč Extra prostory / Sekce přestávky / Textová pole / Odkazy / Další nástroje pro odstraňování naleznete na Odstranit skupina...

Kreativní vložky: Vložit Tisíc separátorů / Zaškrtávací políčka / Tlačítka rádia / QR kód / čárový kód / Více obrázků / Objevte více v Vložit skupina...

???? Přesné výběry: Přesně Konkrétní stránky / Tabulky / Tvary / Nadpis odstavce / Vylepšete navigaci pomocí vice vybrat funkce...

Vylepšení hvězd: Přejděte na libovolné místo / Automatické vkládání opakujícího se textu / Přepínání mezi okny dokumentu / 11 Konverze Tools...

Karty Kutools a Kutools Plus na pásu karet aplikace Word
???? Chcete si tyto funkce vyzkoušet? Stáhněte si Kutools pro Word nyní! ????
 

Nejlepší nástroje pro produktivitu v kanceláři

Kutools pro Word - 100+ nástrojů pro Word