Как да изпратите имейл до множество получатели в списък от Excel чрез Outlook?
Ако имате няколко имейл адреса в колона на работен лист и сега искате да изпратите имейл до този списък с получатели от Excel директно, без да отваряте Outlook. В тази статия ще говоря за това как да изпращате имейл до множество получатели от Excel едновременно.
Изпратете имейл до множество получатели от Excel с VBA код
Изпратете имейл до множество получатели от Excel с VBA код
Можете да използвате VBA код, за да изпратите съобщение до множество получатели наведнъж, моля, направете следното:
1. Задръжте надолу ALT + F11 за да отворите Microsoft Visual Basic за приложения прозорец.
2. Кликнете Поставете > Модулии поставете следния код в Прозорец на модула.
VBA код: Изпратете имейл до множество получатели
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. И след това натиснете F5 за да изпълните този код, ще се появи поле за подкана, за да ви напомни да изберете списъка с адреси, вижте екранната снимка:
4, След това кликнете OKи Outlook Събщение се показва прозорец, можете да видите, че всички избрани имейл адреси са добавени в Да се и след това можете да въведете темата и да съставите съобщението си, вижте екранната снимка:
5. След като приключите със съобщението, моля щракнете Изпрати и това съобщение ще бъде изпратено до тези получатели във вашия списък с работни листове.
Изпратете имейл до множество получатели с текуща работна книга като прикачен файл, като използвате VBA код
Ако трябва да изпратите съобщение до множество получатели с текуща работна книга като прикачен файл, можете да приложите следния VBA код.
1. Задръжте натиснат ALT + F11 за да отворите Microsoft Visual Basic за приложения прозорец.
2. Щракнете Поставете > Модулии поставете следния код в Прозорец на модула.
VBA код: Изпратете имейл до множество получатели с текуща работна книга като прикачен файл
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. След като поставите кода, натиснете F5 клавиш, за да изпълните този код, и се появява поле за подкана, за да ви напомни да изберете адресите, на които искате да изпратите съобщение, вижте екранна снимка:
4. След това кликнете OK бутон и Outlook Събщение се показва прозорец, всички имейл адреси са добавени в Да се и текущата ви работна книга също е вмъкната като прикачен файл и след това можете да въведете темата и да съставите съобщението си, вижте екранната снимка:
5, След това кликнете Изпрати бутон, за да изпратите това съобщение до списъка с получатели с текущата работна книга като прикачен файл.
|
Изпращайте персонализирани имейли до множество получатели с различни прикачени файлове:
с Kutools за Excel's Изпращане на имейли можете бързо да изпращате персонализирани имейли до множество получатели с различни прикачени файлове от Excel чрез Outlook, както ви е необходимо. В същото време можете да изпратите CC или Bcc съобщенията и на конкретно лице. Щракнете, за да изтеглите Kutools за Excel!
|
Свързана статия:
Как да изпращате персонализирани масови имейли до списък от Excel чрез Outlook?
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!
