Jak wysłać wiadomość e-mail do wielu odbiorców na liście z programu Excel za pośrednictwem programu Outlook?
Jeśli masz wiele adresów e-mail w kolumnie arkusza, a teraz chcesz wysłać wiadomość e-mail do tej listy adresatów bezpośrednio z programu Excel bez otwierania programu Outlook. W tym artykule omówię, jak wysyłać wiadomości e-mail do wielu odbiorców z programu Excel w tym samym czasie.
Wysyłaj wiadomości e-mail do wielu odbiorców z programu Excel za pomocą kodu VBA
Wysyłaj wiadomości e-mail do wielu odbiorców z programu Excel za pomocą kodu VBA
Możesz użyć kodu VBA, aby wysłać wiadomość do wielu odbiorców jednocześnie, wykonaj następujące czynności:
1. Przytrzymaj przycisk ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.
2. Kliknij wstawka > Modułi wklej następujący kod w Okno modułu.
Kod VBA: wyślij wiadomość e-mail do wielu odbiorców
Sub sendmultiple()
'updateby Extendoffice
Dim xOTApp As Object
Dim xMItem As Object
Dim xCell As Range
Dim xRg As Range
Dim xEmailAddr As String
Dim xTxt As String
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the addresses list:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
Set xOTApp = CreateObject("Outlook.Application")
For Each xCell In xRg
If xCell.Value Like "*@*" Then
If xEmailAddr = "" Then
xEmailAddr = xCell.Value
Else
xEmailAddr = xEmailAddr & ";" & xCell.Value
End If
End If
Next
Set xMItem = xOTApp.CreateItem(0)
With xMItem
.To = xEmailAddr
.Display
End With
End Sub
3. A następnie naciśnij F5 Aby wykonać ten kod, pojawi się okienko zachęty przypominające o wyborze listy adresów, patrz zrzut ekranu:
4. Następnie kliknij OKi Outlook Wiadomość zostanie wyświetlone okno, możesz zobaczyć, że wszystkie wybrane adresy e-mail zostały dodane do Do pole, a następnie możesz wpisać temat i zredagować wiadomość, patrz zrzut ekranu:
5. Po zakończeniu wiadomości proszę kliknąć Wyślij przycisk, a ta wiadomość zostanie wysłana do tych odbiorców na liście arkuszy.
Wysyłaj wiadomości e-mail do wielu odbiorców z bieżącym skoroszytem jako załącznikiem za pomocą kodu VBA
Jeśli chcesz wysłać wiadomość do wielu odbiorców z bieżącym skoroszytem jako załącznikiem, możesz zastosować następujący kod VBA.
1. Przytrzymaj ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.
2. Kliknij wstawka > Modułi wklej następujący kod w Okno modułu.
Kod VBA: wyślij wiadomość e-mail do wielu odbiorców z aktualnym skoroszytem jako załącznikiem
Sub EmailAttachmentRecipients()
'updateby Extendoffice
Dim xOutlook As Object
Dim xMailItem As Object
Dim xRg As Range
Dim xCell As Range
Dim xEmailAddr As String
Dim xTxt As String
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the arresses list:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
Set xOutlook = CreateObject("Outlook.Application")
Set xMailItem = xOutlook.CreateItem(0)
For Each xCell In xRg
If xCell.Value Like "*@*" Then
If xEmailAddr = "" Then
xEmailAddr = xCell.Value
Else
xEmailAddr = xEmailAddr & ";" & xCell.Value
End If
End If
Next
With xMailItem
.To = xEmailAddr
.CC = ""
.Subject = ""
.Body = ""
.Attachments.Add ActiveWorkbook.FullName
.Display
End With
Set xOutlook = Nothing
Set xMailItem = Nothing
End Sub
3. Po wklejeniu kodu naciśnij F5 klucz do uruchomienia tego kodu i pojawia się okienko zachęty przypominające o wybraniu adresów, na które chcesz wysłać wiadomość, patrz zrzut ekranu:
4. Następnie kliknij OK przycisk i Outlook Wiadomość zostanie wyświetlone okno, wszystkie adresy e-mail zostały dodane do Do pole, a twój bieżący skoroszyt został również wstawiony jako załącznik, a następnie możesz wprowadzić temat i zredagować wiadomość, patrz zrzut ekranu:
5. Następnie kliknij Wyślij aby wysłać tę wiadomość do listy adresatów z bieżącym skoroszytem jako załącznikiem.
Wysyłaj spersonalizowane wiadomości e-mail do wielu odbiorców z różnymi załącznikami:
Z Kutools dla programu Excel's Wysyłać emaile możesz szybko wysyłać spersonalizowane wiadomości e-mail do wielu odbiorców z różnymi załącznikami z programu Excel za pośrednictwem programu Outlook, zgodnie z potrzebami. W tym samym czasie możesz również przesłać wiadomości do określonej osoby jako DW lub UDW. Kliknij, aby pobrać Kutools dla programu Excel! |
Podobne artykuły:
Jak wysyłać spersonalizowane masowe e-maile do listy z Excela przez Outlooka?
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!