Pääsisältö

Kuinka käyttää painiketta sähköpostin lähettämiseen nykyisen Word-tiedoston liitteenä?

Kirjailija: Xiaoyang Viimeksi muokattu: 2025-04-18

Jos sinun on lähetettävä sähköposti Word-asiakirjasta Outlookin avulla ja liitettävä nykyinen Word-tiedosto, voit lisätä komentopainikkeen, joka lähettää sähköpostin yhdellä napsautuksella - Outlookia ei tarvitse avata manuaalisesti. Tämä opas näyttää, kuinka se määritetään nopeasti ja helposti.

Käytä painiketta lähettääksesi sähköpostin nykyisen Word-tiedoston liitteenä


Käytä painiketta lähettääksesi sähköpostin nykyisen Word-tiedoston liitteenä

Suorita tehtävä Word-asiakirjassasi seuraavasti:

  1. Lisää ensin komentopainike. Siirry kohtaan "Kehittäjä" > "Vanhat työkalut" > "Komentopainike (ActiveX-hallinta)".

    Huomautus: Jos et näe Kehittäjä-välilehteä nauhassa, käy osoitteessa: Kehittäjä-välilehden näyttäminen Word-nauhassa.

    Kehittäjä-välilehti, jossa on Controls-ryhmä valittuna, Vanhat työkalut on napsautettu ja komentopainike korostettuna
  2. Valitse painike ja napsauta sitten "Ominaisuudet" "Kehittäjä"-välilehdellä. Kirjoita Ominaisuudet-ruudun Tekstitys-kenttään teksti, jonka haluat näyttää painikkeessa.
    Ominaisuudet-painike nauhassa ja Ominaisuudet-valintaikkuna avautui
  3. Sulje Ominaisuudet-ruutu. Napsauta sitten painiketta hiiren kakkospainikkeella ja valitse "Näytä koodi".
    Näytä koodi -vaihtoehto pikavalikosta
  4. Liitä "Microsoft Visual Basic for Applications" -ikkunassa seuraava koodi olemassa olevien aliohjelman tunnisteiden väliin:
    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
    VBA-ikkuna, jossa yllä oleva koodi on liitetty

    Huomautus: Voit muuttaa aihetta, tekstin sisältöä ja vastaanottajan sähköpostiosoitetta koodissa vastaamaan todellisia viestisi tietoja.

  5. Tallenna ja sulje VBA-editori. Napsauta "Design Mode" Developer-välilehdellä poistaaksesi sen käytöstä. Nyt kun napsautat komentopainiketta, Outlookissa luodaan automaattisesti sähköposti, johon on liitetty nykyinen Word-asiakirja.
    Sähköposti luodaan ja nykyinen Word-asiakirja on liitteenä
  6. Napsauta lopuksi "Lähetä" -painiketta Outlookissa lähettääksesi viestin.

Parhaat toimiston tuottavuustyökalut

Kutools for Word - Paranna sanakokemustasi Overilla 100 Merkittäviä ominaisuuksia!

🤖 Kutools AI -ominaisuudet: AI-avustaja / Reaaliaikainen avustaja / Super Polish (säilytettävä muoto) / Super Translate (säilytä muoto) / AI editointi / AI Proofread...

📘 Asiakirjan hallinta: Jaa sivut / Yhdistä asiakirjat / Vie valikoima eri muodoissa (PDF/TXT/DOC/HTML...) / Erämuunnos PDF-muotoon...

Sisältö Editointi: Eräetsi ja korvaa useita tiedostoja / Muuta kaikkien kuvien kokoa / Transponoi taulukon rivit ja sarakkeet / Muunna taulukko tekstiksi...

🧹 Vaivaton puhdistus: Pyyhkäise pois Ylimääräiset tilat / Leikkaukset / Tekstilaatikot / Hyperlinkit / Jos haluat lisää irrotustyökaluja, siirry kohtaan poista ryhmä...

Luovat lisäosat: Aseta Tuhat erottimet / Valintaruudut / Radiopainikkeet / QR koodi / Viivakoodi / Useita kuvia / Tutustu lisää osoitteessa liite ryhmä...

🔍 Tarkkuusvalinnat: Tarkka kohta Tietyt sivut / taulukot / Muodot / Otsikko Kappaleet / Paranna navigointia lisää valita piirteet...

Tähtien parannukset: Siirry mihin tahansa sijaintiin / Lisää toistuvaa tekstiä automaattisesti / Vaihda asiakirjaikkunoiden välillä / 11 Muuntaminen Työkalut...

Kutools- ja Kutools Plus -välilehdet Word Ribbonissa
???? Haluatko kokeilla näitä ominaisuuksia? Lataa Kutools for Word nyt! 🚀
 

Parhaat toimiston tuottavuustyökalut

Kutools for Word - Yli 100 Wordin työkalua