Ինչպե՞ս նամակ ուղարկել, եթե Excel- ում կտտացնում են կոճակը:
Ենթադրելով, որ դուք պետք է նամակ ուղարկեք Outlook- ի միջոցով, սեղմելով Excel- ի աշխատանքային թերթիկի կոճակը, ինչպե՞ս կարող եք դա անել: Այս հոդվածը կներկայացնի VBA մեթոդ ՝ դրան մանրամասնորեն հասնելու համար:
Ուղարկեք էլ. Փոստ, եթե կոճակը կտտացնում են VBA կոդով
Ուղարկեք էլ. Փոստ, եթե կոճակը կտտացնում են VBA կոդով
Outlook- ի միջոցով էլ-նամակ ուղարկելու համար կատարեք հետևյալը ՝ եթե Excel աշխատանքային գրքում կտտացվում է հրամանի կոճակը:
1. Տեղադրեք հրամանի կոճակ ձեր աշխատանքային էջում ՝ կտտացնելով Երեվակիչ > Տեղադրել > Հրամանի կոճակ (ActiveX կառավարման), Տեսեք,
2. Աջ կտտացրեք տեղադրված հրամանի կոճակին, ապա կտտացրեք Դիտել կոդը աջ կտտացնելու ցանկից, ինչպես ցույց է տրված ստորև նշված էկրանի նկարը:
3. Բացման մեջ Microsoft Visual Basic հավելվածների համար պատուհան, խնդրում ենք փոխարինել սկզբնական կոդը Code պատուհանում հետևյալ VBA գրով:
VBA կոդ. Ուղարկեք էլ. Փոստ, եթե Excel- ում կտտացնում են կոճակը
Private Sub CommandButton1_Click()
'Updated by Extendoffice 2017/9/14
Dim xOutApp As Object
Dim xOutMail As Object
Dim xMailBody As String
On Error Resume Next
Set xOutApp = CreateObject("Outlook.Application")
Set xOutMail = xOutApp.CreateItem(0)
xMailBody = "Body content" & vbNewLine & vbNewLine & _
"This is line 1" & vbNewLine & _
"This is line 2"
On Error Resume Next
With xOutMail
.To = "Email Address"
.CC = ""
.BCC = ""
.Subject = "Test email send by button clicking"
.Body = xMailBody
.Display 'or use .Send
End With
On Error GoTo 0
Set xOutMail = Nothing
Set xOutApp = Nothing
End Sub
Notes:
1) Խնդրում ենք փոխել էլ. Փոստի մարմինը, ինչպես ձեզ հարկավոր է xMailBody տող ծածկագրում:
2) Փոխարինեք Էլեկտրոնային հասցե ստացողի էլ. փոստի հասցեին համապատասխան . To = "Էլ. Փոստի հասցե".
3) Նշեք Cc և Bcc ստացողների համար, որքան ձեզ հարկավոր է .CC = «» և .Bcc = «» բաժիններում
4) Փոխեք էլփոստի թեման տողում .Subject = "Փորձեք նամակն ուղարկել կոճակի կտտոցով".
4. Սեղմեք ալտ + Q ստեղները միաժամանակ փակելու համար Microsoft Visual Basic հավելվածների համար պատուհան.
5. Անջատեք Դիզայնի ռեժիմը ՝ կտտացնելով Երեվակիչ > Դիզայնի ռեժիմ, Տեսեք,
Այսուհետ, ամեն անգամ, երբ կտտացնում եք Հրամանի կոճակը, էլփոստը կստեղծվի ինքնաբերաբար ՝ նշված հասցեատերերի, առարկայի և մարմնի հետ: Խնդրում ենք ուղարկել էլ-նամակը `կտտացնելով ուղարկել կոճակը:
ՆշումVBA կոդը գործում է միայն այն ժամանակ, երբ Outlook- ը օգտագործում եք որպես ձեր էլփոստի ծրագիր:
Outlook- ի միջոցով հեշտությամբ նամակ ուղարկեք ՝ հիմնված Excel- ում ստեղծված փոստային ցուցակի դաշտերի վրա.
The Ուղարկել նամակներ օգտակարությունը Excel- ի համար նախատեսված գործիքներ օգնում է էլփոստ ուղարկել Outlook- ի միջոցով ՝ հիմնված Excel- ում ստեղծված փոստային ցուցակի դաշտերի վրա:
Ներբեռնեք և փորձեք հիմա: (30 օր անվճար երթուղի)
Առնչվող հոդվածներ քանակը:
- Ինչպե՞ս ավտոմատ կերպով էլ-նամակ ուղարկել Excel- ում բջջային արժեքի հիման վրա:
- Ինչպե՞ս նամակ ուղարկել Outlook- ի միջոցով, երբ աշխատանքային գիրքը պահվում է Excel- ում:
- Ինչպե՞ս նամակ ուղարկել, եթե Excel- ում որոշակի բջիջ է փոփոխվել:
- Ինչպե՞ս էլեկտրոնային նամակ ուղարկել, եթե Excel- ում լրացել է ժամկետը:
- Ինչպե՞ս ուղարկել էլփոստի հիշեցում կամ ծանուցում, եթե աշխատանքային գիրքը թարմացվում է Excel- ում:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: