3 nopeaa tapaa kopioida kaikki kuvat Word-asiakirjasta Outlook-sähköpostiin

Jos haluat kopioida kaikki kuvat Word-asiakirjasta Outlook-sähköpostiin, voit käyttää kolmea tässä artikkelissa esiteltyä lähestymistapaa.

Voit esimerkiksi viimeistellä Word-asiakirjan, joka sisältää useita kuvia. Myöhemmin haluat käyttää näitä kuvia asiakirjassa uudelleen Outlook-sähköpostin kirjoittamiseen. Tässä tilanteessa kaipaat nopeaa ratkaisua, jolla voit kopioida kuvat nopeasti Word-asiakirjasta sähköpostiin Outlookissa. Tarkasteltaessa tätä vaatimusta, opetamme sinulle 3 tapaa saavuttaa se.

Tapa 1: Kopioi yksitellen

1. Luo ensin Outlookissa uusi sähköposti.
2. Avaa sitten Word-lähdedokumentti.
3. Valitse seuraavaksi kuva Word-asiakirjasta.
4. Kopioi se painamalla "Ctrl + C".
5. Tämän jälkeen pääset Outlook-sähköpostiin.
6. Paina lopuksi "Ctrl + V" viestin tekstiosassa liittääksesi kopioitu kuva.
7. Käytä nyt tätä tapaa kopioidaksesi muut kuvat asiakirjasta tähän sähköpostiin yksitellen.

Tapa 2: Tallenna kuvat ja erälisäys sähköpostiin

1. Siirry ensin avatussa Word-asiakirjassa kohtaan "Tiedosto" > "Tallenna nimellä".
2. Valitse sitten ponnahdusikkunassa kohdekansio ja valitse "Web-sivu" "Tallenna nimellä" -kentässä.
3. Napsauta seuraavaksi “Tallenna” -painiketta.
4. Sulje sen jälkeen Word-sovellus normaalisti.
5. Luo sen jälkeen uusi Outlook-sähköposti.
6. Siirry viestiikkunassa "Lisää"-välilehdelle ja napsauta "Kuva" -painiketta.
7. Siirry myöhemmin uudessa valintaikkunassa kohtaan, jossa Word-asiakirja tallennetaan verkkosivuksi.
8. Avaa sitten kansio nimeltä "xxx_files".
9. Valitse seuraavaksi kuvat, jotka haluat lisätä.
10. Napsauta lopuksi "Lisää" -painiketta.
11. Voit nähdä, että valitut kuvat on lisätty sähköpostiin.

Tapa 3: Eräkopiointi VBA:n kautta

1. Avaa ensin Word-asiakirja.
2. Paina sitten "Alt + F11" päästäksesi Word VBA -editoriin.
3. Kopioi seuraavaksi alla oleva VBA-koodi moduuliin.

Sub CopyImagesToMail()
    Dim objTempDocument As Word.Document
    Dim objInlineShape As Word.InlineShape
    Dim objShape As Word.Shape
    Dim objOutlookApp As Object
    Dim objMail As Object
    Dim objMailDocument As Word.Document
    Dim objDocSelection As Word.Selection
 
    'Copy the whole document to a new Temp document
    Selection.WholeStory
    Selection.Copy
 
    Set objTempDocument = Word.Documents.Add
    objTempDocument.Application.Selection.PasteAndFormat (wdUseDestinationStylesRecovery)

    For Each objInlineShape In objTempDocument.InlineShapes
        objInlineShape.ConvertToShape
    Next
 
    'Clear text in the Temp document
    With objTempDocument.Content.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = "[^2-^255]{1,}"
        .Replacement.Text = ""
        .MatchWildcards = True
        .Execute Replace:=wdReplaceAll
    End With
 
    Do While objTempDocument.Shapes.Count > 0
       For Each objShape In objTempDocument.Shapes
           objShape.ConvertToInlineShape
       Next
    Loop
 
    'Copy the images in Temp Document
    objTempDocument.Application.Selection.WholeStory
    objTempDocument.Application.Selection.Copy
 
    On Error Resume Next
    Set objOutlookApp = GetObject(, "Outlook.Application")
    If objOutlookApp Is Nothing Then
       Set objOutlookApp = CreateObject("Outlook.Application")
    End If
 
    'Create a new Outlook email
    Set objMail = objOutlookApp.CreateItem(olMailItem)
    objMail.Display
    Set objMailDocument = objMail.GetInspector.WordEditor
    Set objDocSelection = objMailDocument.Application.Selection
 
    'Paste the copied images into email
    objDocSelection.Collapse Direction:=wdCollapseStart
    objDocSelection.PasteAndFormat (wdUseDestinationStylesRecovery)
 
    objTempDocument.Close False
End Sub

4. Tämän jälkeen paina “F5”-näppäintä suorittaaksesi tämän makron.
5. Kun makro on valmis, saat uuden Outlook-sähköpostin, joka sisältää kaikki Word-asiakirjan kuvat, kuten seuraavan kuvakaappauksen:

Huolehdi Outlookistasi huolellisesti

Jokainen tavallinen käyttäjä on voinut joutua erilaisiin Outlookin ongelmiin. Ollakseni rehellinen, jos pidät huolta Outlookistasi, voit välttää kauheita ongelmia tehokkaasti. Sinun on esimerkiksi aina suljettava Outlook luultavasti etkä luota helposti tuntemattomiin sähköposteihin. Lisäksi on järkevää hankkia pätevä PST-korjaustyökalu, kuten DataNumen Outlook Repair. Se voi korjata korruptoitunut PST asioita kuten korkki.

Tekijän esittely:

Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien mdf-palautus ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com