Բաց թողնել հիմնական բովանդակությունը

Ինչպե՞ս էլեկտրոնային նամակ ուղարկել Excel- ի բջիջներում նշված էլ. Փոստի հասցեներին:

Հեղինակ՝ Սիլյուվիա Վերջին փոփոխությունը՝ 2020-07-23

Ենթադրելով, որ դուք ունեք էլ.փոստի հասցեների ցուցակ, և այժմ դուք ցանկանում եք էլեկտրոնային հաղորդագրություն ուղարկել այս էլ.փոստի հասցեներին ՝ հիմնականում Excel- ում: Ինչպե՞ս հասնել դրան: Այս հոդվածը ձեզ ցույց կտա Excel- ի բջիջներում նշված էլփոստի մի քանի հասցեներին էլ.

Excel- ում VBA- ի բջիջներում նշված էլ-փոստի հասցեներին նամակ ուղարկեք
Հեշտությամբ նամակ ուղարկեք Excel- ի համար Kutools- ով բջիջներում նշված էլ-փոստի հասցեներին


Excel- ում VBA- ի բջիջներում նշված էլ-փոստի հասցեներին նամակ ուղարկեք

Հետևյալ VBA կոդը կարող է օգնել ձեզ նամակներ ուղարկել Excel- ում նշված էլ. Հասցեներին: Խնդրում եմ, արեք հետևյալը:

1. Աշխատաթերթում պարունակում է էլ. Փոստի հասցեներ, որոնց դուք պետք է նամակներ ուղարկեք, սեղմեք ալտ + F11 ստեղները միաժամանակ բացելու համար Microsoft Visual Basic հավելվածների համար պատուհան.

2. Բացման մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, սեղմեք Գործիքներ > Սայլակ ինչպես ցույց է տրված նկարում

3. Մեջ Հղումներ - VBAP նախագիծ երկխոսության տուփ, խնդրում ենք գտնել և ստուգել Microsoft Outlook օբյեկտի գրադարան տարբերակը, ապա կտտացրեք OK կոճակը:

4. Այնուհետեւ կտտացրեք Տեղադրել > Մոդուլներ, Դրանից հետո պատճենեք և տեղադրեք ներքևի VBA կոդը Մոդուլի պատուհանում:

VBA կոդ. Excel- ում բջիջներում նշված էլ-փոստի հասցեներին նամակ ուղարկեք

Sub SendEmailToAddressInCells()
    Dim xRg As Range
    Dim xRgEach As Range
    Dim xRgVal As String
    Dim xAddress As String
    Dim xOutApp As Outlook.Application
    Dim xMailOut As Outlook.MailItem
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select email address range", "KuTools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Set xOutApp = CreateObject("Outlook.Application")
    Set xRg = xRg.SpecialCells(xlCellTypeConstants, xlTextValues)
    For Each xRgEach In xRg
        xRgVal = xRgEach.Value
        If xRgVal Like "?*@?*.?*" Then
            Set xMailOut = xOutApp.CreateItem(olMailItem)
            With xMailOut
                .To = xRgVal
                .Subject = "Test"
                .Body = "Dear " _
                      & vbNewLine & vbNewLine & _
                        "This is a test email " & _
                        "sending in Excel"
                .Display
                '.Send
            End With
        End If
    Next
    Set xMailOut = Nothing
    Set xOutApp = Nothing
    Application.ScreenUpdating = True
End Sub

ՆշումԽնդրում եմ, երկուսում էլ նշեք ձեր էլ. Փոստի թեման և մարմինը .Tubject = "թեստ" և .Body = "Հարգելի" _ & vbNewLine & vbNewLine & _ "Սա փորձնական էլ. Փոստ է" & _ "Excel- ով ուղարկվող" տողերը ծածկագրում:

5. Սեղմեք F5 ծածկագիրը գործելու համար: Բացման մեջ Excel- ի համար նախատեսված գործիքներ երկխոսության տուփ, խնդրում ենք ընտրել այն տիրույթը, որը պարունակում է էլփոստի հասցեներ, որոնց դուք նամակներ կուղարկեք, ապա կտտացրեք այն OK կոճակ Տեսեք,

Այնուհետև ընտրված էլփոստի հասցեների հիման վրա ստեղծվում են էլ. Խնդրում ենք սեղմել ուղարկել այս էլ-նամակները ուղարկելու կոճակները:

Notes:

1. Եթե ընտրված բջիջներում կան երեք էլ. Փոստի հասցեներ, կստեղծվեն երեք էլ.
2. VBA կոդը գործում է միայն այն ժամանակ, երբ Outlook- ն օգտագործում եք որպես ձեր էլփոստի ծրագիր:

Kutools- ի հետ Excel- ի համար բջիջներում նշված էլ-փոստի հասցեներին նամակ ուղարկեք

Այս բաժինը ձեզ խորհուրդ կտա Ուղարկել նամակներ օգտակարությունը Excel- ի համար նախատեսված գործիքներ, Այս օգտակար ծառայության միջոցով դուք կարող եք հեշտությամբ նամակներ ուղարկել էլփոստի հասցեներին, որոնք նշված են Excel- ի բջիջներում: Խնդրում եմ, արեք հետևյալ կերպ.

Նախքան դիմելը Excel- ի համար նախատեսված գործիքներ, խնդրում եմ նախ ներբեռնեք և տեղադրեք այն.

1. Ընտրեք էլփոստի հասցեները ձեր աշխատանքային թերթի վերնագրի բջիջով, ապա կտտացրեք Kutools Plus > Ուղարկել նամակներ.

2. Պատուհանման մեջ Ուղարկել նամակներ երկխոսության տուփ, խնդրում ենք կատարել հետևյալ կազմաձևերը.

2.1) Ընտրեք էլ. Փոստի հասցեի ցուցակի վերնագիր Դեպի բացվող ցուցակ;
2.2) Մուտքագրեք էլ. Փոստի թեման Առարկա տուփ;
2.3) Ձեր էլ. Փոստի մարմնի կազմը.
2.4) Ստուգեք Նամակներ ուղարկել Outlook- ի միջոցով տուփ;
2.5) Կտտացրեք այն ուղարկել կոճակ Տեսեք,

3. Հետո ա Excel- ի համար նախատեսված գործիքներ երկխոսության պատուհանը բացվում է ՝ ձեզ ասելու համար, թե քանի նամակ է ուղարկվել: Խնդրում ենք սեղմել OK կոճակը և փակել այն Ուղարկել նամակներ երկխոսության տուփ: Տեսեք,

Notes:

1. Կարող եք գնալ Outlook- ի Ուղարկված նյութեր թղթապանակ ՝ նամակները ուղարկելու համար ստուգելու համար:
2. Կարող եք նաև մեկ այլ սերվեր օգտագործել ՝ կտտացնելով Արտագնա սերվերի կարգավորումները ուղարկելու ռեժիմը ձեր սեփականը դնելու համար:

  Եթե ​​ցանկանում եք ունենալ այս օգտակար ծառայության անվճար փորձարկում (30-օրյա), խնդրում ենք կտտացնել այն ներբեռնելու համար, և այնուհետև անցեք գործողությունը կիրառելու վերը նշված քայլերին համապատասխան:


Դեմո. Excel- ի համար Kutools- ով բջիջներում նշված էլ-փոստի հասցեներին նամակ ուղարկեք


Առնչվող հոդվածներ քանակը:

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

🤖 Kutools AI օգնականՀեղափոխություն կատարել տվյալների վերլուծության հիման վրա՝ Խելացի կատարում   |  Ստեղծեք ծածկագիր  |  Ստեղծեք հատուկ բանաձևեր  |  Վերլուծել տվյալները և ստեղծել գծապատկերներ  |  Invoke Kutools-ի գործառույթները...
Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները   |  Deleteնջել դատարկ շարքերը   |  Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի   |   Կլոր առանց բանաձևի ...
Super Փնտրել: Բազմաթիվ չափանիշների VLookup    Բազմակի արժեք VLookup  |   VLookup բազմաթիվ թերթերում   |   Fuzzy Փնտրել ....
Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը   |  Կախված բացվող ցուցակ   |  Բազմակի ընտրություն Drop Down ցուցակ ....
Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ  |  Տեղափոխել սյունակները  |  Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը  |  Համեմատեք միջակայքերը և սյունակները ...
Առանձնահատկություններ: Ցանցի կենտրոնացում   |  Դիզայնի տեսք   |   Մեծ Formula Bar    Աշխատանքային գրքույկի և թերթիկների կառավարիչ   |  Ռեսուրսների գրադարան (Ավտոմատ տեքստ)   |  Ամսաթիվ ընտրող   |  Միավորել աշխատանքային թերթերը   |  Գաղտնագրել/գաղտնազերծել բջիջները    Ուղարկեք նամակներ ըստ ցանկի   |  Սուպեր զտիչ   |   Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
Լավագույն 15 գործիքների հավաքածու12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...)   |   50+ Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...)   |   40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...)   |   19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...)   |   12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...)   |   7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...)   |   ... եւ ավելին

Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար:  Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

Նկարագրություն


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

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hogyan választhatom ki a CC-ket ugyanúgy, mint a címzetteket? Lee ezt kérdezte :D
This comment was minimized by the moderator on the site
Hi KK,
If you want to add CC recipients with the email addresses in specified cells, you need to manually add an email address to the To line in the code, and then add a Cc line.
The two lines are as follows.
.To = ""
.Cc = xRgVal
This comment was minimized by the moderator on the site
수신인과 마찬가지의 방법으로 참조인을 선택하려면 어떻게 하나요?
This comment was minimized by the moderator on the site
Hi lee,
Sorry I don't understand your question. You may need to attach a screenshot to describe the problem more clearly.
There are no comments posted here yet
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations