Hur skickar jag e-post till flera mottagare i en lista från Excel via Outlook?
Om du har flera e-postadresser i en kolumn i kalkylbladet och nu vill du skicka ett e-postmeddelande till den här listan över mottagare från Excel direkt utan att öppna Outlook. Den här artikeln kommer jag att prata om hur man skickar e-post till flera mottagare från Excel samtidigt.
Skicka e-post till flera mottagare från Excel med VBA-kod
Skicka e-post till flera mottagare med aktuell arbetsbok som bilaga med hjälp av VBA-kod
Skicka e-post till flera mottagare från Excel med VBA-kod
Du kan använda en VBA-kod för att skicka meddelande till flera mottagare samtidigt, gör så här:
1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.
2. Klicka Insert > Modulernaoch klistra in följande kod i Modulfönster.
VBA-kod: Skicka e-post till flera mottagare
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. Och tryck sedan på F5 nyckel för att köra den här koden, kommer en snabbruta att dyka upp för att påminna dig om att välja adresslistan, se skärmdump:
4. Klicka sedan OKoch en Outlook Meddelande fönstret visas kan du se alla valda e-postadresser har lagts till i Till fält, och sedan kan du ange ämnet och komponera ditt meddelande, se skärmdump:
5. När du har avslutat meddelandet klickar du på Skicka knappen, och detta meddelande skickas till dessa mottagare i din kalkylbladslista.
Skicka e-post till flera mottagare med aktuell arbetsbok som bilaga med hjälp av VBA-kod
Om du behöver skicka ett meddelande till flera mottagare med aktuell arbetsbok som bilaga kan du tillämpa följande VBA-kod.
1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.
2. Klicka Insert > Modulernaoch klistra in följande kod i Modulfönster.
VBA-kod: Skicka e-post till flera mottagare med aktuell arbetsbok som bilaga
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 klistrat in koden trycker du på F5 nyckel för att köra den här koden, och en snabbruta visas för att påminna dig om att du väljer adresserna du vill skicka meddelande till, se skärmdump:
4. Klicka sedan på OK och en Outlook Meddelande fönstret visas har alla e-postadresser lagts till i Till fält, och din nuvarande arbetsbok har också infogats som en bilaga, och sedan kan du skriva in ämnet och skriva ditt meddelande, se skärmdump:
5. Klicka sedan Skicka knappen för att skicka detta meddelande till mottagarlistan med den aktuella arbetsboken som bilaga.
Skicka personliga e-postmeddelanden till flera mottagare med olika bilagor:
Med Kutools för Excel's Skicka e-mail funktionen kan du snabbt skicka personliga e-postmeddelanden till flera mottagare med olika bilagor från Excel som du behöver. Samtidigt kan du CC eller Bcc meddelandena till en viss person också. Klicka för att ladda ner Kutools för Excel! |
Relaterad artikel:
Hur skickar jag personliga massmeddelanden till en lista från Excel via Outlook?
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!