Ինչպե՞ս էլեկտրոնային նամակ ուղարկել 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- ի միջոցով:

---

Գրասենյակի արտադրողականության լավագույն գործիքները

Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

• Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
• Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
• Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
• Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
• Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
• Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
• Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
• Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
• Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:

Կարդալ ավելին... Անվճար ներբեռնում... Գնեք ... 

---

Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

• Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
• Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
• Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:

Կարդալ ավելին... Անվճար ներբեռնում... Գնեք ...