Hvordan sendes e-mail til flere modtagere på en liste fra Excel via Outlook?
Hvis du har flere e-mail-adresser i en kolonne i regnearket, og nu vil du sende en e-mail til denne liste over modtagere fra Excel direkte uden at åbne Outlook. Denne artikel vil jeg tale om, hvordan man sender e-mail til flere modtagere fra Excel på samme tid.
Send e-mail til flere modtagere fra Excel med VBA-kode
Send e-mail til flere modtagere fra Excel med VBA-kode
Du kan bruge en VBA-kode til at sende besked til flere modtagere på én gang. Gør som følger:
1. Hold nede i ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
2. Klik indsatte > Moduler, og indsæt følgende kode i Modul vindue.
VBA-kode: Send e-mail til flere modtagere
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. Og tryk derefter på F5 nøgle til at udføre denne kode, vises et promptfelt for at minde dig om at vælge adresselisten, se skærmbillede:
4. Klik derefter på OKog en Outlook Besked vises, kan du se, at alle de valgte e-mail-adresser er blevet føjet til Til felt, og derefter kan du indtaste emnet og komponere din besked, se skærmbillede:
5. Når du er færdig med beskeden, skal du klikke Send knappen, og denne besked vil blive sendt til disse modtagere på din regnearkliste.
Send e-mail til flere modtagere med den aktuelle projektmappe som vedhæftet fil ved hjælp af VBA-kode
Hvis du har brug for at sende en besked til flere modtagere med den aktuelle projektmappe som vedhæftet fil, kan du anvende følgende VBA-kode.
1. Hold nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
2. Klik indsatte > Moduler, og indsæt følgende kode i Modul vindue.
VBA-kode: Send e-mail til flere modtagere med den aktuelle projektmappe som vedhæftet fil
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. Når du har indsat koden, skal du trykke på F5 nøgle til at køre denne kode, og der vises en hurtigboks for at minde dig om at vælge de adresser, du vil sende besked til, se skærmbillede:
4. Klik derefter på OK knap og en Outlook Besked vindue vises, er alle e-mail-adresser blevet føjet til Til felt, og din nuværende projektmappe er også indsat som vedhæftet fil, og så kan du indtaste emnet og komponere din besked, se skærmbillede:
5. Klik derefter på Send knap for at sende denne besked til listen over modtagere med den aktuelle projektmappe som vedhæftet fil.
Send personlige e-mails til flere modtagere med forskellige vedhæftede filer:
Med Kutools til Excel's Send emails funktion, kan du hurtigt sende personaliserede e-mails til flere modtagere med forskellige vedhæftede filer fra Excel via Outlook, som du har brug for. På samme tid kan du også CC eller Bcc beskederne til en bestemt person. Klik for at downloade Kutools til Excel! |
Relateret artikel:
Hvordan sendes personaliserede masse-e-mails til en liste fra Excel via Outlook?
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!