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

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

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

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

Amazարմանալի! Օգտագործելով արդյունավետ ներդիրներ Excel- ում, ինչպիսիք են Chrome- ը, Firefox- ը և Safari- ն:

Խնայեք ձեր ժամանակի 50% -ը և ամեն օր կրճատեք մկնիկի հազարավոր կտտոցներ ձեզ համար:

---

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- ը օգտագործում եք որպես ձեր էլփոստի ծրագիր:

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

• Ինչպե՞ս էլեկտրոնային նամակ ուղարկել Excel- ի բջիջներում նշված էլ. Փոստի հասցեներին:
• Ինչպե՞ս ուղարկել էլփոստով Excel- ում նշված տիրույթը պատճենելու և տեղադրելու էլփոստի մարմինը:
• Ինչպե՞ս ստորագրություն տեղադրել Outlook էլփոստի մեջ, երբ vba- ն ուղարկում եք Excel- ում:
• Ինչպե՞ս էլեկտրոնային նամակ ուղարկել, եթե Excel- ում լրացել է ժամկետը:
• Ինչպե՞ս ավտոմատ կերպով էլ-նամակ ուղարկել Excel- ում բջջային արժեքի հիման վրա:

---

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

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%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:

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