Ինչպե՞ս նամակ ուղարկել 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 = ""
.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
ՆշումԽնդրում ենք նշեք ձեր էլ. փոստի հասցեատիրոջը, առարկային և մարմինը ՝ փոփոխելով փոփոխությունը .Դեպի = , .Tubject = "թեստ" և .HTMLBody = "փորձարկում" տողերը ծածկագրում:
6. Սեղմեք ալտ + Q ստեղները միասին դուրս գալու համար Microsoft Visual Basic հավելվածների համար պատուհան.
7: սեղմեք Երեվակիչ > Դիզայնի ռեժիմ անջատել Դիզայնի ռեժիմը: Տեսեք,
8. Կտտացրեք հրամանի կոճակը ՝ կոդն աշխատեցնելու համար: Պատուհանման մեջ Թերթել պատուհանը, ընտրեք այն ֆայլերը, որոնք դուք պետք է կցեք էլ. փոստին, և այնուհետև կտտացրեք այն OK կոճակ Տեսեք,
9. Դրանից հետո ստեղծվում է էլփոստ `նշված դաշտերով և կցորդներով: Խնդրում ենք սեղմել ուղարկել այն ուղարկելու կոճակը: Տեսեք,
ՆշումVBA կոդը գործում է միայն այն ժամանակ, երբ Outlook- ը օգտագործում եք որպես ձեր էլփոստի ծրագիր:
Outlook- ի միջոցով հեշտությամբ նամակ ուղարկեք Excel- ում ստեղծված փոստային ցուցակի դաշտերի հիման վրա.
The Ուղարկել նամակներ օգտակարությունը Kutools for Excel օգնում է օգտվողներին Excel- ում էլփոստ ուղարկող Outlook- ի միջոցով:
Ներբեռնեք և փորձեք հիմա: (30- օր անվճար երթուղի)
Առնչվող հոդվածներ քանակը:
- Ինչպե՞ս էլեկտրոնային նամակ ուղարկել Excel- ի բջիջներում նշված էլ. Փոստի հասցեներին:
- Ինչպե՞ս ուղարկել էլփոստով Excel- ում նշված տիրույթը պատճենելու և տեղադրելու էլփոստի մարմինը:
- Ինչպե՞ս ստորագրություն տեղադրել Outlook էլփոստի մեջ, երբ vba- ն ուղարկում եք Excel- ում:
- Ինչպե՞ս էլեկտրոնային նամակ ուղարկել, եթե Excel- ում լրացել է ժամկետը:
- Ինչպե՞ս ավտոմատ կերպով էլ-նամակ ուղարկել Excel- ում բջջային արժեքի հիման վրա:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel հմտությունները Kutools for Excel, և փորձիր արդյունավետություն, ինչպես երբեք: Kutools for Excel Առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab Ներդիրներով ինտերֆեյսը Office է բերում և ձեր աշխատանքը շատ ավելի հեշտացնում
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:














