Ինչպե՞ս էլեկտրոնային նամակ ուղարկել Outlook- ի միջոցով Excel- ի ցուցակից մի քանի հասցեատերերի:

Եթե ​​աշխատանքային թերթիկի սյունակում ունեք մի քանի էլփոստի հասցեներ, և այժմ, դուք ցանկանում եք էլ-նամակ ուղարկել ուղղակիորեն Excel- ից ստացողների այս ցուցակին `առանց Outlook- ի բացման: Այս հոդվածում ես կխոսեմ այն ​​մասին, թե ինչպես միաժամանակ նամակ ուղարկել Excel- ից բազմաթիվ ստացողների:

VBA կոդով Excel- ից բազմաթիվ ստացողներին էլ-նամակ ուղարկեք

Ուղարկեք էլեկտրոնային նամակ բազմաթիվ ստացողներին `ներկայիս աշխատանքային գրքով, որպես կցորդ` օգտագործելով VBA կոդ

VBA կոդով Excel- ից բազմաթիվ ստացողներին էլ-նամակ ուղարկեք

Միանգամից մի քանի հասցեատերերին հաղորդագրություն ուղարկելու համար կարող եք օգտագործել 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. Այնուհետեւ կտտացրեք ուղարկել կոճակը `այս հաղորդագրությունն ընթացիկ աշխատանքային գրքով որպես կցորդ ստացողների ցուցակին ուղարկելու համար:

Առնչվող հոդված:

Ինչպե՞ս անհատականացված զանգվածային էլ-նամակներ Excel- ից ցուցակ ուղարկել Outlook- ի միջոցով: