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

Ինչպե՞ս նամակ ուղարկել Excel- ում կցված բազմաթիվ կցորդներով:

Այս հոդվածում խոսվում է Outlook- ի միջոցով էլփոստ ուղարկելու մասին ՝ Excel- ում կցված բազմաթիվ կցորդներով:

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


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

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

1. Խնդրում ենք տեղադրել հրամանի կոճակը ՝ կտտացնելով Երեվակիչ > Տեղադրել > Հրամանի կոճակ (ActiveX կառավարման), Տեսեք,

2. Հրամանի կոճակը տեղադրելուց հետո խնդրում ենք սեղմել աջով և ընտրել Դիտել կոդը համատեքստի ընտրացանկից:

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

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

5. Դրանից հետո փոխարինեք բնօրինակը ծածկագիրը օրենսգրքի պատուհանում `ներքևում նշված VBA կոդով:

VBA կոդ. Excel- ում բազմաթիվ կցորդներով կցված էլ

Private Sub CommandButton1_Click()
    Dim xStrFile As String
    Dim xFilePath As String
    Dim xFileDlg As FileDialog
    Dim xFileDlgItem As Variant
    Dim xOutApp As Outlook.Application
    Dim xMailOut As Outlook.MailItem
    Application.ScreenUpdating = False
    Set xOutApp = CreateObject("Outlook.Application")
    Set xMailOut = xOutApp.CreateItem(olMailItem)
    Set xFileDlg = Application.FileDialog(msoFileDialogFilePicker)
    If xFileDlg.Show = -1 Then
        With xMailOut
            .BodyFormat = olFormatRichText
            .To = "happy.xuebi@163.com"
            .Subject = "test"
            .HTMLBody = "test"
            For Each xFileDlgItem In xFileDlg.SelectedItems
                .Attachments.Add xFileDlgItem
            Next xFileDlgItem
            .Display
        End With
    End If
    Set xMailOut = Nothing
    Set xOutApp = Nothing
    Application.ScreenUpdating = True
End Sub

ՆշումԽնդրում ենք նշեք ձեր էլ. փոստի հասցեատիրոջը, առարկային և մարմինը ՝ փոփոխելով փոփոխությունը .Դեպ = happy.xuebi@163.com, .Tubject = "թեստ" և .HTMLBody = "փորձարկում" տողերը ծածկագրում:

6. Սեղմեք ալտ + Q ստեղները միասին դուրս գալու համար Microsoft Visual Basic հավելվածների համար պատուհան.

7: սեղմեք Երեվակիչ > Դիզայնի ռեժիմ անջատել Դիզայնի ռեժիմը: Տեսեք,

8. Կտտացրեք հրամանի կոճակը ՝ կոդն աշխատեցնելու համար: Պատուհանման մեջ Թերթել պատուհանը, ընտրեք այն ֆայլերը, որոնք դուք պետք է կցեք էլ. փոստին, և այնուհետև կտտացրեք այն OK կոճակ Տեսեք,

9. Դրանից հետո ստեղծվում է էլփոստ `նշված դաշտերով և կցորդներով: Խնդրում ենք սեղմել ուղարկել այն ուղարկելու կոճակը: Տեսեք,

ՆշումVBA կոդը գործում է միայն այն ժամանակ, երբ Outlook- ը օգտագործում եք որպես ձեր էլփոստի ծրագիր:


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

The Ուղարկել նամակներ օգտակարությունը Excel- ի համար նախատեսված գործիքներ օգնում է օգտվողներին Excel- ում էլփոստ ուղարկող Outlook- ի միջոցով:
Ներբեռնեք և փորձեք հիմա: (30- օր անվճար երթուղի)



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


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

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 ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (14)
Գնահատված 5- ը 5- ից դուրս է · 1 վարկանիշ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես ի վիճակի եմ «Արագ ուղարկել նամակներ Excel-ում կցված մի քանի հավելվածներով Kutools-ի համար Excel-ի հետ»՝ օգտագործելով վերը նշված քայլերը, բայց կցանկանայի գնալ այն մեկ քայլ առաջ և անհատականացնել յուրաքանչյուր էլ. էլփոստի մարմնում: Էլփոստի տեքստում գտնվելու ընթացքում ես փորձում եմ ընտրել դաշտը և սեղմել «Տեղադրել տեղապահը», բայց ոչինչ չի ստացվում: Կա՞ պատկերացում, թե ինչու կամ ինչպես կարող եմ դա շտկել: Շնորհակալություն!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Իսկ եթե վերը նշված ֆայլերը գտնվում են ենթաթղթապանակներում: Ինչպե՞ս փնտրել ֆայլ թղթապանակում և ենթաթղթապանակներում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Իսկ եթե մի քանի տարբեր օգտվողներ և տարբեր հավելվածներ ուղարկվեն տարբեր թեմայի տողով:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
վերը նշված կոդը հիանալի է աշխատում, շնորհակալություն!! բայց իմ էլփոստի ավտոմատ ստորագրությունը կարծես անհետանում է այս կոդով: որեւէ գաղափար, թե ինչու?
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
HI Team .... ես չեմ կարող տեսնել հավելվածը փոստով, այնպես որ, եթե ես հետևեմ ձեր քայլին ... կարող եք օգնել
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հոյակապ...... Անթերի է աշխատում։
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինձ դուր եկավ այս լուծման միջոցով աշխատելը Excel VBA-ից էլփոստին մի քանի հավելվածներ ավելացնելու համար: Շնորհակալություն. Ես գիտեմ, որ մեզանից շատերը օգուտ են քաղում, իսկ հետո ցանկանում են ինչ-որ ասպեկտ հարմարեցված լինել հենց այն բանի համար, ինչ մենք փորձում ենք անել: Ես ոչնչով չեմ տարբերվում, բայց 8-րդ քայլի համար: Կարո՞ղ ենք սահմանել այն ուղին, որով Թերթել պատուհանը կբացվի՞ Ես կարող եմ թերթել մեկ այլ թղթապանակ մեկ այլ վայրում, բայց եթե կարողանամ սահմանել ուղին, դա ժամանակ կխնայեր:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Hello,
Me gustaría saber como quedaría la macro si quisiera enviar en un mismo correo a varias personas o más y con varios ficheros o más.
Շատ շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Արդյոք het ook mogelijk om een ​​filter te zetten op de selectie van de bijlagen, zodat er alleen pdf-bestanden aan de mail kunnen worden toegevoegd?
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Ալեքս դե Գրաֆ,
Կոդն ուղղակիորեն կանչում է Microsoft-ի ֆայլերի ընտրության պատուհանը: Սա հեշտացնում է VBA օգտվողների համար անհրաժեշտ ֆայլերի ընտրությունը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Կրիստալ,

Այո, ես դա հասկանում եմ։ Այնուամենայնիվ, ես ուզում եմ, որ օգտվողները կարողանան ընտրել միայն pdf-ֆայլեր:
Հնարավո՞ր է սա:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Ալեքս դե Գրաֆ,
Հետևյալ VBA կոդը թվարկում է միայն «Փնտրել» պատուհանի PDF ֆայլերը: Խնդրում եմ, փորձեք:

Private Sub CommandButton1_Click()
'Updated by Extendoffice 20220714
    Dim xStrFile As String
    Dim xFilePath As String
    Dim xFileDlg As FileDialog
    Dim xFileDlgItem As Variant
    Dim xOutApp As Outlook.Application
    Dim xMailOut As Outlook.MailItem
    Application.ScreenUpdating = False
    Set xOutApp = CreateObject("Outlook.Application")
    Set xMailOut = xOutApp.CreateItem(olMailItem)
    Set xFileDlg = Application.FileDialog(msoFileDialogFilePicker)
    xFileDlg.Filters.Add "PDF", "*.pdf", 1
xFileDlg.FilterIndex = 1
    If xFileDlg.Show = -1 Then
        With xMailOut
            .BodyFormat = olFormatRichText
            .To = "happy.xuebi@163.com"
            .Subject = "test"
            .HTMLBody = "test"
            For Each xFileDlgItem In xFileDlg.SelectedItems
                .Attachments.Add xFileDlgItem
            Next xFileDlgItem
            .Display
        End With
    End If
    Set xMailOut = Nothing
    Set xOutApp = Nothing
    Application.ScreenUpdating = True
End Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Կրիստալ,
Այո, ես դա հասկանում եմ: Այնուամենայնիվ, հնարավո՞ր է սահմանափակել օգտվողներին ընտրել միայն pdf-ֆայլեր:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
أريد إرسال بريد إلكتروني مع البريد أو hotmail مع CDO ولكن كل ما لدي فقط مع معرف واحد ولكن أريد أن أرسل مع العديد من المرفقات يرجى إرسال لي عن طريق بريدي الإلكتروني الرمز أو Malfho Excel naims.
Գնահատված 5- ը 5- ից դուրս է
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

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