Cum să trimiteți e-mail la mai mulți destinatari dintr-o listă din Excel prin Outlook?
Dacă aveți mai multe adrese de e-mail într-o coloană a foii de lucru și acum, doriți să trimiteți un e-mail către această listă de destinatari din Excel direct fără a deschide Outlook. În acest articol, voi vorbi despre cum să trimiteți e-mail către mai mulți destinatari din Excel în același timp.
Trimiteți e-mail către mai mulți destinatari din Excel cu cod VBA
Trimiteți e-mail către mai mulți destinatari din Excel cu cod VBA
Puteți utiliza un cod VBA pentru a trimite mesaje către mai mulți destinatari simultan, faceți următoarele:
1. Țineți apăsată tasta ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.
2. Clic Insera > Moduleși lipiți următorul cod în Fereastra modulului.
Cod VBA: trimiteți e-mail către mai mulți destinatari
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. Și apoi apăsați F5 pentru a executa acest cod, va apărea o casetă de prompt pentru a vă reaminti să selectați lista de adrese, a se vedea captura de ecran:
4. Apoi apasa OKși un Outlook Mesaj este afișată fereastra, puteți vedea că toate adresele de e-mail selectate au fost adăugate în La , apoi puteți introduce subiectul și compune mesajul, vedeți captura de ecran:
5. După terminarea mesajului, faceți clic pe Trimiteți și acest mesaj va fi trimis către acești destinatari în lista de foi de lucru.
Trimiteți e-mail către mai mulți destinatari cu registrul de lucru curent ca atașament utilizând codul VBA
Dacă trebuie să trimiteți un mesaj către mai mulți destinatari cu registrul de lucru curent ca atașament, puteți aplica următorul cod VBA.
1. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.
2. Clic Insera > Moduleși lipiți următorul cod în Fereastra modulului.
Cod VBA: trimiteți e-mail către mai mulți destinatari cu registrul de lucru curent ca atașament
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. După lipirea codului, apăsați F5 pentru a rula acest cod și apare o casetă de prompt pentru a vă reaminti să selectați adresele la care doriți să trimiteți mesajul, vedeți captura de ecran:
4. Apoi faceți clic pe OK și un Outlook Mesaj este afișată fereastra, toate adresele de e-mail au fost adăugate în La , iar registrul dvs. de lucru curent a fost inserat și ca atașament, iar apoi puteți introduce subiectul și compune mesajul, vedeți captura de ecran:
5. Apoi apasa Trimiteți butonul pentru a trimite acest mesaj la lista de destinatari cu registrul de lucru curent ca atașament.
Trimiteți e-mailuri personalizate către mai mulți destinatari cu atașamente diferite:
cu Kutools pentru Excel's Trimite emailuri caracteristică, puteți trimite rapid e-mailuri personalizate către mai mulți destinatari cu atașamente diferite din Excel prin Outlook, după cum aveți nevoie. În același timp, puteți CC sau Bcc mesajele către o anumită persoană. Faceți clic pentru a descărca Kutools pentru Excel! |
Articol asociat:
Cum să trimiteți mesaje de e-mail personalizate către o listă din Excel prin Outlook?
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!