Jak wysłać wiadomość e-mail z kopiowaniem i wklejaniem określonego zakresu do treści wiadomości e-mail w programie Excel?
W wielu przypadkach określony zakres treści w arkuszu programu Excel może być przydatny w komunikacji e-mailowej. W tym artykule przedstawimy metodę wysyłania wiadomości e-mail z wklejaniem określonego zakresu do treści wiadomości bezpośrednio w programie Excel.
Wyślij wiadomość e-mail z określonym zakresem wklejonym do treści wiadomości e-mail w programie Excel
Wyślij wiadomość e-mail z określonym zakresem wklejonym do treści wiadomości e-mail za pomocą niesamowitego narzędzia
Więcej samouczków dotyczących wysyłania wiadomości w programie Excel ...
Wyślij wiadomość e-mail z określonym zakresem wklejonym do treści wiadomości e-mail w programie Excel
Poniższy kod VBA może pomóc w skopiowaniu zakresu i wklejeniu go do treści wiadomości e-mail programu Outlook bezpośrednio w programie Excel. Wykonaj następujące czynności.
1. W arkuszu zawierającym zakres, który chcesz skopiować, naciśnij inny + F11 klawisze jednocześnie, aby otworzyć Microsoft Visual Basic for Applications okno.
2. W otwarciu Microsoft Visual Basic for Applications kliknij Tools > Referencje jak pokazano na poniższym zrzucie ekranu.
3. w Referencje - VBAProject w oknie dialogowym, znajdź i zaznacz plik Biblioteka obiektów programu Microsoft Outlook opcję, a następnie kliknij OK przycisk.
4. kliknij wstawka > Moduł, a następnie skopiuj i wklej poniższy kod VBA do okna modułu.
Kod VBA: wyślij wiadomość e-mail z określonym zakresem wklejonym do treści wiadomości e-mail w programie Excel
Sub Send_Email()
'Updated by Extendoffice 20200119
Dim xRg As Range
Dim I, J As Long
Dim xAddress As String
Dim xEmailBody As String
Dim xMailOut As Outlook.MailItem
Dim xOutApp As Outlook.Application
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select range you need to paste into email body", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Set xOutApp = CreateObject("Outlook.Application")
Set xMailOut = xOutApp.CreateItem(olMailItem)
For I = 1 To xRg.Rows.Count
For J = 1 To xRg.Columns.Count
xEmailBody = xEmailBody & " " & xRg.Cells(I, J).value
Next
xEmailBody = xEmailBody & vbNewLine
Next
xEmailBody = "Hi" & vbLf & vbLf & " body of message you want to add" & vbLf & vbLf & xEmailBody & vbNewLine
With xMailOut
.Subject = "Test"
.To = ""
.Body = xEmailBody
.Display
'.Send
End With
Set xMailOut = Nothing
Set xOutApp = Nothing
Application.ScreenUpdating = True
End Sub
Uwagi:
- 1). Zmień treść wiadomości e-mail xEmailBody = "Cześć" & vbLf & vbLf & "treść wiadomości, którą chcesz dodać" & vbLf & vbLf & xEmailBody & vbNewLine tak jak potrzebujesz.
- 2). Podaj odbiorcę wiadomości e-mail i temat (.Do = i .Subject = "test") wiersze w kodzie.
5. wciśnij F5 klucz do uruchomienia kodu. W wyskakującym okienku Kutools dla programu Excel W oknie dialogowym wybierz zakres, który chcesz wkleić w treści wiadomości e-mail, a następnie kliknij OK przycisk. Zobacz zrzut ekranu:
6. Teraz e-mail jest tworzony z określonym odbiorcą, tematem, treścią i wybranym zakresem Excela, kliknij Wyślij przycisk, aby wysłać tę wiadomość e-mail. Zobacz pokazany zrzut ekranu.
Note: Kod VBA działa tylko wtedy, gdy używasz Outlooka jako programu pocztowego.
Wyślij wiadomość e-mail z określonym zakresem wklejonym do treści wiadomości e-mail za pomocą niesamowitego narzędzia
Jeśli nie używasz Outlooka i nadal chcesz wysyłać e-maile bezpośrednio w Excelu z wklejonymi danymi zakresu, bardzo polecam Wysyłać emaile użyteczność Kutools dla programu Excel dla Was. Dzięki tej funkcji wystarczy skonfigurować serwer poczty wychodzącej z adresem e-mail, a następnie w przyszłości wysyłać wiadomości e-mail bezpośrednio w programie Excel za pośrednictwem tego adresu e-mail.
Przed złożeniem wniosku Kutools dla programu ExcelProszę pobierz i zainstaluj najpierw.
1. Najpierw musisz przygotować listę mailingową zawierającą potrzebne pola.
- Tips: Lista mailingowa musi zawierać co najmniej 2 wiersze, a pierwszy wiersz musi być nagłówkami (Przypuśćmy, że chcesz wysłać e-maile na dwa adresy e-mail w programie Excel, wpisz te dwa adresy e-mail z nagłówkiem „E-mail”, jak pokazano na zrzucie ekranu ).
- Alternatywnie możesz łatwo utworzyć listę mailingową z rozszerzeniem Utwórz listę mailingową cecha.
2. Wybierz zakres, w którym chcesz dodać dane do treści wiadomości e-mail i naciśnij Ctrl + C klucze do kopiowania.
3. Zaznacz całą listę wysyłkową (wraz z nagłówkami), kliknij Kutools Plus > Wysyłać emaile. Zobacz zrzut ekranu:
4. Następnie Wysyłać emaile pojawi się okno dialogowe.
- 4.1) Pozycje wybranej listy wysyłkowej są wypełniane w odpowiednich polach (w razie potrzeby możesz dodać więcej pól do listy mailingowej);
- 4.2) Kliknij pole treści wiadomości e-mail, naciśnij Ctrl + V klucze do wklejenia do niego wybranych danych zakresu. Następnie dodaj inną zawartość, jeśli potrzebujesz;
- 4.3 Usuń zaznaczenie Wysyłaj e-maile przez Outlooka pudełko;
- 2.4) Kliknij Ustawienia serwera poczty wychodzącej przycisk. Zobacz zrzut ekranu:
5. Następnie Ustawienia serwera poczty wychodzącej (SMTP) - nowy schemat pojawi się okno dialogowe. Podaj adres e-mail wraz z ustawieniami serwera, określ folder, w którym będą zapisywane wszystkie wysłane wiadomości po zaznaczeniu Zapisz wysłane e-maile do a następnie kliknij OK przycisk, aby zapisać ustawienia.
6. Kiedy wraca do Wysyłać emaile okno dialogowe, kliknij przycisk Wyślij przycisk, aby wysłać wiadomość e-mail.
Od teraz możesz wysyłać e-maile za pomocą tej funkcji bezpośrednio w programie Excel.
Jeśli chcesz mieć bezpłatną wersję próbną (30 dni) tego narzędzia, kliknij, aby go pobrać, a następnie przejdź do wykonania operacji zgodnie z powyższymi krokami.
Podobne artykuły:
Wyślij wiadomość e-mail na adresy e-mail określone w komórkach w programie Excel
Przypuśćmy, że masz listę adresów e-mail i chcesz wysłać zbiorczo wiadomość e-mail na te adresy e-mail bezpośrednio w programie Excel. Jak to osiągnąć? W tym artykule pokażemy metody wysyłania wiadomości e-mail na wiele adresów e-mail określonych w komórkach w programie Excel.
Wstaw podpis programu Outlook podczas wysyłania wiadomości e-mail w programie Excel
Przypuśćmy, że chcesz wysłać wiadomość e-mail bezpośrednio w programie Excel, w jaki sposób możesz dodać domyślny podpis programu Outlook do wiadomości e-mail? W tym artykule przedstawiono dwie metody ułatwiające dodawanie podpisu programu Outlook podczas wysyłania wiadomości e-mail w programie Excel.
Wyślij wiadomość e-mail z wieloma załącznikami w programie Excel
W tym artykule mowa o wysyłaniu wiadomości e-mail za pośrednictwem programu Outlook z wieloma załącznikami w programie Excel.
Wyślij e-mail, jeśli termin został osiągnięty w programie Excel
Na przykład, jeśli termin w kolumnie C jest mniejszy lub równy 7 dni (aktualna data to 2017/9/13), wyślij e-mail z przypomnieniem do określonego odbiorcy w kolumnie A z określoną zawartością w kolumnie B. Jak Osiągnij to? W tym artykule szczegółowo omówimy metodę VBA.
Automatycznie wysyłaj wiadomości e-mail na podstawie wartości komórki w programie Excel
Przypuśćmy, że chcesz wysłać wiadomość e-mail za pośrednictwem programu Outlook do określonego odbiorcy na podstawie określonej wartości komórki w programie Excel. Na przykład, jeśli wartość komórki D7 w arkuszu jest większa niż 200, wiadomość e-mail jest tworzona automatycznie. W tym artykule przedstawiono metodę VBA umożliwiającą szybkie rozwiązanie tego problemu.
Więcej samouczków dotyczących wysyłania wiadomości w programie Excel ...
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!