Jeśli chcesz skopiować wszystkie obrazy z dokumentu programu Word do wiadomości e-mail programu Outlook, możesz skorzystać z 3 podejść przedstawionych w tym artykule.
Na przykład, kończysz dokument programu Word, który zawiera wiele obrazów. Później chcesz ponownie użyć tych obrazów w dokumencie, aby utworzyć wiadomość e-mail programu Outlook. W tej sytuacji będziesz tęsknić za szybkim rozwiązaniem, aby szybko skopiować obrazy z dokumentu Word do wiadomości e-mail w Outlooku. Patrząc na to wymaganie, nauczymy Cię 3 sposobów, aby go osiągnąć.
Metoda 1: Kopiuj pojedynczo
- Po pierwsze, w Outlooku utwórz nową wiadomość e-mail.
- Następnie otwórz źródłowy dokument Word.
- Następnie wybierz obraz w dokumencie programu Word.
- Naciśnij „Ctrl + C”, aby go skopiować.
- Następnie uzyskaj dostęp do wiadomości e-mail programu Outlook.
- Na koniec naciśnij „Ctrl + V” w treści wiadomości, aby wkleić skopiowany obraz.
- Teraz użyj tego sposobu, aby skopiować inne obrazy z dokumentu do tego e-maila jeden po drugim.
Metoda 2: Zapisz obrazy i wstaw wsadowo do wiadomości e-mail
- Najpierw w otwartym dokumencie programu Word przejdź do „Plik”> „Zapisz jako”.
- Następnie w wyskakującym oknie dialogowym wybierz folder docelowy i wybierz „Strona internetowa” w polu „Zapisz jako typ”.
- Następnie kliknij przycisk „Zapisz”.
- Następnie zamknij aplikację Word w zwykły sposób.
- Następnie utwórz nową wiadomość e-mail programu Outlook.
- W oknie wiadomości przejdź do zakładki „Wstaw” i kliknij przycisk „Obraz”.
- Później w nowym oknie dialogowym przejdź do lokalizacji, w której chcesz zapisać dokument programu Word jako stronę internetową.
- Następnie otwórz folder o nazwie „xxx_files”.
- Następnie wybierz obrazy, które chcesz wstawić.
- Na koniec kliknij przycisk „Wstaw”.
- Możesz zobaczyć, że wybrane obrazy zostały wstawione do wiadomości e-mail.
Metoda 3: Kopiowanie wsadowe za pośrednictwem VBA
- Najpierw otwórz dokument Word.
- Następnie naciśnij „Alt + F11”, aby uzyskać dostęp do edytora Word VBA.
- Następnie skopiuj poniższy kod VBA do modułu.
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
- Następnie naciśnij klawisz „F5”, aby uruchomić to makro.
- Po zakończeniu działania makra otrzymasz nowy e-mail programu Outlook zawierający wszystkie obrazy dokumentu programu Word, jak na poniższym zrzucie ekranu:
Dbaj o swoje perspektywy z rozwagą
Każdy zwykły użytkownik mógł mieć różne problemy w programie Outlook. Szczerze mówiąc, jeśli dbasz o Outlooka, możesz skutecznie uniknąć strasznych problemów. Na przykład musisz zawsze prawdopodobnie zamykać program Outlook i nie ufać łatwo nieznanym wiadomościom e-mail. Rozsądnie jest również zaopatrzyć się w kwalifikowane narzędzie do naprawy plików PST, takie jak DataNumen Outlook Repair. Może naprawić uszkodzony plik PST problemy jak korek.
Wprowadzenie autora:
Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym odzyskiwanie mdf i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com