Hogyan küldhetünk e-mailt egy listában szereplő több címzettnek az Excelből az Outlook segítségével?
Ha több e-mail címe van a munkalap oszlopában, és most e-mailt szeretne küldeni a címzettek ezen listájáról az Excelből közvetlenül az Outlook megnyitása nélkül. Ebben a cikkben arról fogok beszélni, hogyan küldhetünk e-mailt több címzettnek egyszerre az Excelből.
E-mail küldése több címzettnek az Excelből VBA kóddal
E-mail küldése több címzettnek a jelenlegi munkafüzet mellékleteként a VBA kód használatával
E-mail küldése több címzettnek az Excelből VBA kóddal
VBA kód használatával egyszerre több címzettnek küldhet üzenetet, kérjük, tegye a következőket:
1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.
2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modul ablak.
VBA kód: E-mail küldése több címzettnek
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. Ezután nyomja meg a gombot F5 kulcs a kód végrehajtásához, megjelenik egy prompt doboz, amely emlékezteti Önt a címlista kiválasztására, lásd a képernyőképet:
4. Ezután kattintson OKés egy Outlook Üzenet ablak jelenik meg, láthatja, hogy az összes kiválasztott e-mail címet hozzáadta a Nak nek mezőbe, majd megadhatja a tárgyat és megírhatja az üzenetét, lásd a képernyőképet:
5. Az üzenet befejezése után kattintson a gombra Küldés gombra, és ezt az üzenetet elküldjük ezeknek a címzetteknek a munkalaplistában.
E-mail küldése több címzettnek a jelenlegi munkafüzet mellékleteként a VBA kód használatával
Ha több címzettnek kell üzenetet elküldenie az aktuális munkafüzet mellékleteként, alkalmazhatja a következő VBA kódot.
1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.
2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modul ablak.
VBA-kód: E-mail küldése több címzettnek az aktuális munkafüzettel mellékletként
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. A kód beillesztése után nyomja meg a gombot F5 kulcs a kód futtatásához, és megjelenik egy felszólító mező, amely emlékezteti Önt arra a címre, amelyre üzenetet szeretne küldeni, lásd a képernyőképet:
4. Ezután kattintson OK gomb és egy Outlook Üzenet ablak jelenik meg, az összes e-mail címet hozzáadta a Nak nek mezőbe, és az aktuális munkafüzetet is mellékletként illesztette be, majd megadhatja a tárgyat és elkészítheti az üzenetét, lásd a képernyőképet:
5. Ezután kattintson Küldés gombra kattintva küldheti el ezt az üzenetet a címzettek listájához, mellékletként az aktuális munkafüzetet.
Személyre szabott e-maileket küldhet több címzettnek, különböző mellékletekkel:
A Kutools az Excel számára's Emaileket küld funkció segítségével gyorsan küldhet személyre szabott e-maileket több címzettnek, különféle mellékletekkel az Excelből az Outlook segítségével, amire szüksége van. Ezzel egyidejűleg CC-t vagy Titkos másolatot is küldhet egy adott személynek. Kattintson a Kutools for Excel letöltéséhez! |
Kapcsolódó cikk:
Hogyan küldhet személyre szabott tömeges e-maileket egy listára az Excelből az Outlook segítségével?
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!