Note: The other languages of the website are Google-translated. Back to English

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

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

doc ուղարկել անհատականացված էլ

Excel- ից ցուցակ ուղարկեք անհատականացված զանգվածային էլ. Փոստեր `Mail Merge գործառույթով

Excel- ից VBA կոդով անհատականացված զանգվածային էլ-նամակներ ուղարկեք ցուցակին

Անհատականացված զանգվածային էլ-նամակներ ուղարկեք տարբեր կցորդներով ցուցակ `օգտագործելով Kutools Excel- ի համար


նետ կապույտ աջ պղպջակ Excel- ից ցուցակ ուղարկեք անհատականացված զանգվածային էլ. Փոստեր `Mail Merge գործառույթով

Բառի հետ Mail Merge գործառույթ, դուք կարող եք արագ և հեշտությամբ ավարտել այս գործը, քայլ առ քայլ կատարեք հետևյալը.

1. Գործարկեք Word- ի նոր դատարկ փաստաթուղթ և այնուհետև կտտացրեք Փոստեր > Ընտրեք Recipients- ը > Օգտագործեք գոյություն ունեցող ցուցակ, տես նկարի նկարը.

doc ուղարկել անհատականացված էլ

2, Մեջ Ընտրեք Տվյալների աղբյուրը պատուհանը, ընտրեք աշխատանքային գիրքը, որն ընդգրկում է տվյալների տիրույթը, որը ցանկանում եք օգտագործել, և կտտացրեք բաց կոճակը, տես նկարի նկարը.

doc ուղարկել անհատականացված էլ

3, Առաջիկայում Ընտրեք աղյուսակը երկխոսության տուփ, խնդրում ենք ընտրել աշխատանքային թերթը `ձեզ համար անհրաժեշտ տվյալների տիրույթով, ապա կտտացրեք OK կոճակը, տես նկարի նկարը.

doc ուղարկել անհատականացված էլ

4, Եվ էլփոստի հաղորդագրության հիմնական փաստաթուղթը և ձեր հասցեների ցուցակը միացված են իրար, այժմ դուք կարող եք խմբագրել տեքստային հաղորդագրությունը և ավելացնել տեղապահներ, որոնք նշում են, թե որտեղ են հայտնվելու յուրահատուկ տեղեկությունները յուրաքանչյուր հաղորդագրության մեջ:

(1.) Նրանց անհատական ​​ողջույնի անունը տեղադրելու համար կտտացրեք Փոստեր > Տեղադրեք միաձուլման դաշտը > անուն, ազգանուն, անհատականացված անունը տեղադրվել է հաղորդագրության մեջ, և դաշտի անվանումը շրջապատված է «».

doc ուղարկել անհատականացված էլ

(2.) Շարունակեք մուտքագրել ձեր հաղորդագրությունը և տեղադրել այն Գրանցման կոդ այն տեղը, որտեղ ձեզ հարկավոր է, տես նկարի նկարը.

doc ուղարկել անհատականացված էլ

5, Հաղորդագրությունը կազմելուց հետո կարող եք սեղմել Նախադիտման արդյունքները տակ Mailing ներդիր ՝ էլփոստով հաղորդագրությունները նախադիտելու և փոփոխությունները կատարելու համար, նախքան իրականացնելով միաձուլումը:

6, Համոզվելուց հետո, որ խնդիր չկա, կարող եք էլ-նամակները ուղարկել առանձին հասցեատերերին, սեղմեք Փոստեր > Ավարտել և միաձուլել > Ուղարկել էլ. Փոստով հաղորդագրություն, տես նկարի նկարը.

doc ուղարկել անհատականացված էլ

7, Հետո դուրս եկավ Միաձուլել էլ երկխոսության տուփ, կատարեք հետևյալ գործողությունները.

(1.) - ից Դեպի բացվող ցուցակ, ընտրեք Էլեկտրոնային հասցե սյունակ;

(2.) Դուք կարող եք վերնագիրը մուտքագրել մեջի Առարկա տողի տեքստային տուփ;

(3.) - ից Ուղարկել գրառումները բաժին ընտրեք բոլորը.

doc ուղարկել անհատականացված էլ

8. Եվ այնուհետեւ կտտացրեք OK, էլ. փոստերը միանգամից ուղարկվում են առանձին ստացողներին ՝ իրենց սեփական գրանցման կոդով, էլ. նամակները ուղարկելուց հետո կարող եք գնալ ձեր Outlook ՝ համոզվելու, որ էլ.փոստերը հաջողությամբ ուղարկվել են:


Անհատականացված էլ-նամակներ ուղարկեք տարբեր կցորդներով բազմաթիվ ստացողների.

հետ Excel- ի համար նախատեսված գործիքներ's Ուղարկել նամակներ առանձնահատկությունը, դուք կարող եք արագ ուղարկել Excel- ից տարբեր կցորդներով բազմաթիվ հասցեատերերի անհատականացված էլ-նամակներ Outlook- ի միջոցով, որքան ձեզ հարկավոր է: Միևնույն ժամանակ, Դուք կարող եք CC կամ Bcc հաղորդագրությունները ուղարկել նաև որոշակի անձի:       Ներբեռնեք և անվճար փորձեք Kutools- ը Excel- ի համար:

doc ուղարկել անհատականացված էլ. նամակներ 18 1


նետ կապույտ աջ պղպջակ Excel- ից VBA կոդով անհատականացված զանգվածային էլ-նամակներ ուղարկեք ցուցակին

Բացառությամբ Փոստի միաձուլման գործառույթը, հետևյալ VBA կոդը նույնպես կարող է ձեզ լավություն բերել, արեք հետևյալ կերպ.

1, Պահեք պահեք ALT + F11 ստեղները, և այն բացում է Microsoft Visual Basic հավելվածների համար պատուհան.

2: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլներ Պատուհանը:

VBA կոդ. Անհատականացված զանգվածային էլ.փոստեր ուղարկեք ցուցակից Excel- ից.

#If VBA7 And Win64 Then
    Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
                         ByVal hwnd As LongPtr, ByVal lpOperation As String, _
                         ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
                         ByVal nShowCmd As Long) As LongPtr
#Else
    Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
                         ByVal hwnd As Long, ByVal lpOperation As String, _
                         ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
                         ByVal nShowCmd As Long) As Long
#End If
Sub SendEMail()
'update by Extendoffice 20160506
    Dim xEmail As String
    Dim xSubj As String
    Dim xMsg As String
    Dim xURL As String
    Dim i As Integer
    Dim k As Double
    Dim xCell As Range
    Dim xRg As Range
    Dim xTxt As String
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Columns.Count <> 3 Then
        MsgBox " Regional format error, please check", , "Kutools for Excel"
        Exit Sub
    End If
    For i = 1 To xRg.Rows.Count
'       Get the email address
        xEmail = xRg.Cells(i, 2)
'       Message subject
        xSubj = "Your Registration Code"
'       Compose the message
        xMsg = ""
        xMsg = xMsg & "Dear " & xRg.Cells(i, 1) & "," & vbCrLf & vbCrLf
        xMsg = xMsg & " This is your Registration Code "
        xMsg = xMsg & xRg.Cells(i, 3).Text & "." & vbCrLf & vbCrLf
        xMsg = xMsg & " please try it, and glad to get your feedback! " & vbCrLf
        xMsg = xMsg & "Skyyang"
'       Replace spaces with %20 (hex)
        xSubj = Application.WorksheetFunction.Substitute(xSubj, " ", "%20")
        xMsg = Application.WorksheetFunction.Substitute(xMsg, " ", "%20")
'       Replace carriage returns with %0D%0A (hex)
        xMsg = Application.WorksheetFunction.Substitute(xMsg, vbCrLf, "%0D%0A")
'       Create the URL
        xURL = "mailto:" & xEmail & "?subject=" & xSubj & "&body=" & xMsg
'       Execute the URL (start the email client)
        ShellExecute 0&, vbNullString, xURL, vbNullString, vbNullString, vbNormalFocus
'       Wait two seconds before sending keystrokes
        Application.Wait (Now + TimeValue("0:00:02"))
        Application.SendKeys "%s"
    Next
End Sub

3. Այնուհետեւ սեղմեք F5 այս կոդն աշխատեցնելու բանալին, և կհայտնվի հուշման տուփ ՝ հիշեցնելու համար, որ ընտրեք տվյալների տիրույթը, որը ցանկանում եք օգտագործել: Տեսեք,

doc ուղարկել անհատականացված էլ

4. Եվ այնուհետեւ կտտացրեք OK կոճակը, էլ.փոստերը մեկ առ մեկ կուղարկվեն առանձին հասցեների `իրենց անհատական ​​գրանցման ծածկագրով, նամակները ուղարկելուց հետո կարող եք գնալ ձեր Outlook` համոզվելու, որ էլ.փոստերը հաջողությամբ ուղարկվել են:

ՆշումՎերոհիշյալ ծածկագրում դուք կարող եք փոխել թեմայի կամ մարմնի հաղորդագրությունը ձեր կարիքի համաձայն:


նետ կապույտ աջ պղպջակ Անհատականացված զանգվածային էլ-նամակներ ուղարկեք տարբեր կցորդներով ցուցակ `օգտագործելով Kutools Excel- ի համար

Եթե ​​դուք ունեք Excel- ի համար նախատեսված գործիքներԻր Ուղարկել նամակներ առանձնահատկությունը, դուք կարող եք արագ ուղարկել անհատականացված էլ.փոստեր տարբեր ստացված կցորդներով բազմաթիվ հասցեատերերի ՝ ըստ ձեզ անհրաժեշտության:

Excel- ի համար նախատեսված գործիքներ : ավելի քան 300 հարմար Excel հավելվածներով, 30 օրվա ընթացքում առանց սահմանափակումների փորձեք անվճար. 

Տեղադրելուց հետո Excel- ի համար նախատեսված գործիքներԽնդրում եմ արեք հետևյալ կերպ

1: Սեղմեք Kutools Plus > Ուղարկել նամակներ, տես նկարի նկարը.

2, Մեջ Ուղարկել Emials երկխոսության տուփ, խնդրում ենք ընտրել տվյալների տիրույթը, որը ցանկանում եք օգտագործել, և այնուհետև նշեք ստացողի հասցեները, հավելվածները և թեման, որքան ձեզ հարկավոր է, տես նկարի նկարը.

doc ուղարկել անհատականացված էլ

3, Խմբագրման վանդակում տեղադրեք անհատական ​​ողջույնի անունները, ընտրեք անուն, ազգանուն բացվող ցուցակից, ապա կտտացրեք Տեղադրեք Տեղապահը անունները հաղորդագրության մեջ տեղադրելու համար տես նկարի նկարը.

doc ուղարկել անհատականացված էլ

4, Դրանից հետո մուտքագրեք ձեր հաղորդագրության մարմինը տուփի մեջ, որքան ձեզ հարկավոր է, տես նկարի նկարը.

doc ուղարկել անհատականացված էլ

5, Էլ.փոստի մարմինն ավարտելուց հետո ընտրեք ուղարկելու ռեժիմը, ինչպես ցանկանում եք, կարող եք ուղարկել ՝ օգտագործելով Outlook- ը կամ ձեր նշված սերվերը, տես screesnhot:

doc ուղարկել անհատականացված էլ

ՆշումԵթե ​​ցանկանում եք օգտագործել այլ սերվեր, կտտացրեք Արտագնա սերվերի կարգավորումները ուղարկելու ռեժիմը ձեր սեփականը դնելու համար տե՛ս screesnhot:

doc ուղարկել անհատականացված էլ

6, Վերջապես կտտացրեք ուղարկել նամակները ուղարկելու կոճակը լրացնելուց հետո կհայտնվի հուշման տուփ ՝ հիշեցնելու ուղարկման կարգավիճակը: տե՛ս screesnhot:

doc ուղարկել անհատականացված էլ

Կտտացրեք ներբեռնման և անվճար փորձարկման Kutools- ի համար Excel- ը հիմա:


Դեմո. Excel- ից ցուցակ ուղարկեք անհատականացված զանգվածային էլ-նամակներ Outlook- ի միջոցով

Excel- ի համար նախատեսված գործիքներ. Excel- ի ավելի քան 300 հարմարավետ հավելումներով, 30 օրվա ընթացքում անվճար փորձեք առանց սահմանափակումների: Ներբեռնեք և անվճար փորձեք հիմա:

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

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


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

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

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

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

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
officetab ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (47)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Այս կոդը շատ լավ աշխատեց, դրա համար շատ շնորհակալություն: Բայց ես պարզապես մի փոքր խնդիր ունեմ, ես փորձում եմ փոխել կոդը, որպեսզի նախապես որոշեմ այն ​​բջիջները, որոնք ուզում եմ վերցնել նամակները և ուղարկել այն, քանի որ այնպես, ինչպես ես ստեղծել եմ իմ excel ֆայլը: Ես կցանկանայի փոխել ընտրության տուփը բջիջների որոշված ​​զանգվածի համար: Օրինակ. շտկել իմ բոլոր տվյալները կլինեն A2:C6-ի միջև, այնպես որ, երբ ես գործարկում եմ մակրո, ես կարիք չունեմ այն ​​նորից ընտրել: Շատ շնորհակալ եմ այն ​​ամենի համար, ինչ վերը բացատրեցիք
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կարո՞ղ եք փոփոխել կոդը՝ մի քանի ֆայլ էլփոստով կցելու համար: Դա մեծ օգնություն կլինի։ Նախապես շնորհակալություն.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
հնարավո՞ր է կոդ ավելացնել, որպեսզի այն նաև իմ սովորական էլփոստի ստորագրությունը քաշի: նաև, երբ ընտրում եմ իմ միջակայքը էլ.փոստի համար, ես իմ excel աղյուսակը զտված եմ, բայց երբ ես գործարկում եմ մակրո, այն դեռևս ձգում է նաև թաքնված տողերը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես նույնպես կցանկանայի իմանալ այս մասին:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
ինչպես ավելացնել cc վերը նշված կոդը
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հիանալի միջոց

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

Խնդրում եմ փորձեք այն, հուսով եմ, որ այն կարող է օգնել ձեզ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Սքայանգ,

Ես փորձում էի և փորձում էի հասնել իմ էլփոստի ստորագրությանը, բայց կարծես թե դա ճիշտ չէ: Ունե՞ք մի փոքր կոդ, որը կարող եմ ավելացնել, որպեսզի դա տեղի ունենա:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Խենթության գրառումը սա է, սա կեղծ է և մի հավատացեք այս բովանդակությանը
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարեւ ընկեր,
սա ֆանտաստիկ է, մեկ օգնության կարիք ունեմ, ես պետք է ամեն անգամ տարբեր pdf ֆայլ կցեմ տարբեր էլ.փոստի:
կարող է որեւէ մեկը օգնել ինձ խնդրեմ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
բարև Սկայանգ,
Ես պետք է կցեմ տարբեր pdf ֆայլ յուրաքանչյուր փոստի համար: կարող եք օգնել խնդրում եմ??
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, Արվինդ,
Kutools-ը կարող է օգնել ձեզ ավելացնել մի քանի տարբեր հավելվածներ էլ. նամակներ ուղարկելիս:
Նախ պետք է տեղադրեք հավելվածների ուղին բջիջների մեջ, այնուհետև կիրառեք Kutools-ը, խնդրում ենք դիտել հետևյալ սքրինշոթը.
Հուսով եմ, որ դա կարող է օգնել ձեզ, շնորհակալություն:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
բարև Սկայանգ,
Ես օգտագործել եմ ձեր ստորև բերված կոդը՝ նամակ ուղարկելու համար և կատարյալ է աշխատում, կա՞ որևէ բան, որը կարող եք օգնել ինձ փոփոխել կոդը՝ pdf հավելվածներ ուղարկելու համար:
Ես պետք է ուղարկեմ ավելի քան 100 նամակ, այնպես որ ամեն անգամ դժվար է կցել ֆայլը: Արդյո՞ք Kutools-ը աշխատում է ըստ տրված ճանապարհի և ինքնաբերաբար փոստ է ուղարկում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
հեյ
կարո՞ղ եք ինձ օգնել attachment.add ֆունկցիայի հարցում: Ձեր վերը նշված VBA կոդով ես պետք է ուղարկեմ հավելված:
Ես չեմ կարող օգտագործել Kutools :(
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
ինչպես cc մարդկանց այս?
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ի՞նչ կլինի, եթե ես ունեմ շատ հաճախորդների տվյալներ, իսկ որոշ հաճախորդներ ունեն 1-ից ավելի տվյալներ... և ես չեմ ուզում առանձին նամակներ ուղարկել հաճախորդներին, բայց միգուցե դրանք աղյուսակային ձևաչափով էլփոստով ուղարկեմ: Ինչպե՞ս կարող եմ հաճախորդին ուղարկել ընդամենը 1 նամակ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն Սթիվեն, դուք ճանապարհ գտա՞ք դա անելու համար: Մենք կարող ենք օգնել ձեզ պարզ առցանց վեբ պորտալի հետ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Ձեզ լուծել եք
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես ուզում եմ իմանալ, թե ինչպես դա անել: Կարող ես ինձ ասել?
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Thanks !!

Բայց ես փորձում եմ անել թեստը և ոչինչ չի ուղարկում emai-ին: Նաև սխալի հաղորդագրություն չկա: Կարո՞ղ եմ իմանալ, թե ինչ է տեղի ունեցել:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես excel-ում էլփոստի հասցեների ցուցակ ունեմ, որոնց պետք է նամակներ ուղարկեմ: Թեման և հիմնական մասը բջիջներում են, բացի էլփոստի հասցեից, և ես ունեմ ստորև նշված սցենարը, բայց ես պետք է ուղարկեմ 100 էլ.

Sub SendEm()
Dim i Որպես ամբողջ թիվ, Mail_Object, Email_Subject, o As Variant, lr As Long
lr = Բջիջներ (Rows.Count, "A").End(xlUp).Տող
Սահմանել Mail_Object = CreateObject («Outlook.Application»)
For i = 2 To lr
Mail_Object.CreateItem(o) հետ
.Subject = Range("B" & i) Value
.To = Range("A" & i) Value

.Body = Range("C" & i) Value
.attachments.Add (Sheets("Sheet1").Range("H" & i).Text)
.attachments.Add (Sheets("Sheet1").Range("I" & i).Text)
.attachments.Add (Sheets("Sheet1").Range("J" & i).Text)
.attachments.Add (Sheets("Sheet1").Range("K" & i).Text)
.Ուղարկել

'.ցուցադրել' անջատել ցուցադրումը և միացնել ուղարկել ինքնաբերաբար ուղարկելու համար
Վերջ
Հաջորդ i
MsgBox «Էլեկտրոնային փոստը հաջողությամբ ուղարկվեց», 64
Application.DisplayAlerts = Սխալ
Սահմանել Mail_Object = Ոչինչ
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, հիբա,
Մեր Kutools-ը Excel-ի համար ուղարկել նամակներ կարող է օգնել ձեզ լուծել ձեր խնդիրը: Խնդրում ենք սահմանել պայմանները, ինչպես ցույց է տրված հետևյալ սքրինշոթը.
Այս հատկությամբ դուք կարող եք նաև կիրառել CC, BCC ֆունկցիան, ինչպես նաև կարող եք տեղադրել բազմաթիվ հավելվածներ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
HIi ադմին


apakah metode ini bisa di lakukan pada word 2007 soalnya saya coba lakukan di file pdf nya tdk terkirim .. terimakasih
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինչ-ինչ պատճառներով այս կոդը ունի այն, որտեղ այն ուղարկում է ցանկի բոլոր մյուս նամակները: Պատճառ կա՞, որ յուրաքանչյուրը չի ուղարկի: Ես ուղղակիորեն պատճենեցի վերևում գտնվող կոդը և ոչինչ չփոխեցի
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
VBA կոդը լավ է աշխատում, շնորհակալություն, բայց ինչպե՞ս ավելացնել Cc: Փորձեցի ու չստացվեց...
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
VBA կոդը լավ է աշխատում, շնորհակալություն, բայց ինչպե՞ս ավելացնել Cc: Ես փորձեցի հետևյալով.


Dim xCc որպես տող
ապա
xCc = xRg.Cells(i, 9) (հասցեն 9-րդ սյունակում է)


ու ձախողվեց...
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, Ժան,

Ձեր խնդիրը լուծելու համար խնդրում ենք կիրառել ստորև բերված կոդը. (Նշում. C սյունակում դուք պետք է ավելացնեք CC սյունակ)

#Եթե VBA7 և Win64 Ապա
Մասնավոր Հայտարարել PtrSafe ֆունկցիան ShellExecute Lib «shell32.dll» կեղծանունով «ShellExecuteA» ( _
ByVal hwnd As LongPtr, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As LongPtr
#Ուրիշ
Մասնավոր հայտարարագրման գործառույթը ShellExecute Lib «shell32.dll» կեղծանունով «ShellExecuteA» ( _
ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
#Վերջ Եթե
Sub SendEmail ()
Dim xEmail As String
Dim xSubj Որպես լար
Dim xMsg որպես տող
Dim xURL-ը որպես տող
Dim i As Integer- ը
Dim k As Double
Dim xCell-ը որպես տիրույթ
Dim xRg որպես տիրույթ
Dim xTxt որպես տող
Dim xCC որպես տող
Ս.թ. սխալի Ռեզյումե Next
xTxt = ActiveWindow.RangeSelection.Address
Սահմանել xRg = Application.InputBox («Խնդրում ենք ընտրել տվյալների տիրույթը.», «Excel-ի համար նախատեսված գործիքներ», xTxt, , , , , 8)
Եթե ​​xRg-ը ոչինչ է, ապա դուրս եկեք Sub
Եթե ​​xRg.Columns.Count <> 4 Ապա
MsgBox " Տարածաշրջանային ձևաչափի սխալ, խնդրում ենք ստուգել", , "Kutools for Excel"
Ելք ենթ
Վերջ: Եթե
i = 1-ի համար դեպի xRg.Rows.Count
xEmail = xRg.Cells(i, 2)
xCC = xRg.Cells (i, 3)
xSubj = «Ձեր գրանցման կոդը»
xMsg = ""
xMsg = xMsg & «Հարգելի» & xRg.Cells(i, 1) & «," & vbCrLf & vbCrLf
xMsg = xMsg & «Սա ձեր գրանցման կոդը»
xMsg = xMsg & xRg.Cells(i, 4).Text & "." & vbCrLf & vbCrLf
xMsg = xMsg & «խնդրում եմ փորձեք այն, և ուրախ կլինենք ստանալ ձեր կարծիքը:» & vbCrLf
xMsg = xMsg & «Skyyang»
xSubj = Application.WorksheetFunction.Substitute(xSubj, " ", "%20")
xMsg = Application.WorksheetFunction.Substitute(xMsg, " ", "%20")
xMsg = Application.WorksheetFunction.Substitute(xMsg, vbCrLf, «%0D%0A»)
xURL = "mailto:" & xEmail & "?cc=" & xCC & "&subject=" & xSubj & "&body=" & xMsg
ShellExecute 0&, vbNullString, xURL, vbNullString, vbNullString, vbNormalFocus
Դիմում. Սպասեք (Հիմա + TimeValue («0:00:02»))
Application.SendKeys «%s»
հաջորդ
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես օգտագործել եմ վերոհիշյալ VBA կոդը «Ուղարկել անհատականացված զանգվածային նամակներ դեպի ցուցակ Excel-ից VBA կոդով»: Ես ուզում էի իմանալ՝ կարո՞ղ եմ նամակ ուղարկել որոշակի անձանց, ովքեր պետք է ծանուցեն excel-ի հիման վրա՝ ասելով, որ հիշեցումներ ուղարկեմ նրանց, ովքեր ունեն առաջիկա ժամկետանց պայմանագրեր: Ես չեմ կարող ստանալ Excel նամակները ուղարկելու համար, և ես գիտեմ, որ դա հենց կոդի պատճառով է: Խնդրում եմ, ինչ-որ մեկը կարող է օգնել ինձ լուծել այս խնդիրը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես ուզում եմ նամակները ուղարկել յուրահատուկ թեմայի տողով, ինչպե՞ս կարող եմ դա անել այս VBA-ի հետ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարեւ բոլորին!

Ես ունեմ նամակների ցանկ մի թերթիկում և էլփոստի նախագիծը մեկ այլ թերթում:
Ինձ կոդ է պետք՝ 2-րդ թերթից էլփոստի նախագիծը 5-ին թերթում ներկայացված ցանկի յուրաքանչյուր 1 անդամին ավտոմատ ուղարկելու համար:
Երբ առաջին 5-ն ուղարկվեն, կոդը պետք է նշի դրանք որպես «Ուղարկված» նոր հատուկ սյունակում, այնուհետև սպասի 60 վայրկյան՝ նախքան 5 նամակների հաջորդ փաթեթը ուղարկելը:
Կոդը պետք է աշխատի մինչև ամբողջ ցուցակի ավարտը:

Կոդը կարող է օգտագործել Outlook-ը՝ Outlook-ի լռելյայն պրոֆիլից նամակներն ուղարկելու համար:

Please help.

Այլ պարզաբանումների կարիք ունենալու դեպքում տեղեկացրեք ինձ
Առայժմ ոչ մի մեկնաբանություն չկա
Բեռնել More

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից