Ինչպե՞ս ավտոմատ կերպով էլ-նամակ ուղարկել Excel- ում բջջային արժեքի հիման վրա:
Ենթադրելով, որ ցանկանում եք Outlook- ի միջոցով նամակ ուղարկել որոշակի ստացողի ՝ Excel- ում նշված բջջային արժեքի հիման վրա: Օրինակ, երբ աշխատանքային թերթում D7 բջիջի արժեքը 200-ից մեծ է, ապա էլ.փոստը ստեղծվում է ավտոմատ կերպով: Այս հոդվածը ներկայացնում է VBA մեթոդ, որպեսզի դուք արագ լուծեք այս հարցը:
Ավտոմատ կերպով նամակ ուղարկեք ՝ հիմնվելով բջջային արժեքի վրա ՝ VBA կոդով
Ավտոմատ կերպով նամակ ուղարկեք ՝ հիմնվելով բջջային արժեքի վրա ՝ VBA կոդով
Excel- ում բջջային արժեքի վրա հիմնված էլ-նամակ ուղարկելու համար արեք հետևյալը.
1. Աշխատանքային թերթում անհրաժեշտ է նամակ ուղարկել ՝ ելնելով դրա բջջային արժեքից (այստեղ ասվում է D7 բջիջը), աջ կտտացրեք թերթիկի էջանիշին և ընտրեք Դիտել կոդը համատեքստային ընտրացանկից: Տեսեք,
2. Պատուհանման մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, խնդրում ենք պատճենել և կպցնել ստորև նշված VBA կոդը թերթիկի ծածկագրի պատուհանում:
VBA կոդ. Excel- ում բջջային արժեքի հիման վրա Outlook- ի միջոցով նամակ ուղարկեք
Dim xRg As Range
'Update by Extendoffice 2018/3/7
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Cells.Count > 1 Then Exit Sub
Set xRg = Intersect(Range("D7"), Target)
If xRg Is Nothing Then Exit Sub
If IsNumeric(Target.Value) And Target.Value > 200 Then
Call Mail_small_Text_Outlook
End If
End Sub
Sub Mail_small_Text_Outlook()
Dim xOutApp As Object
Dim xOutMail As Object
Dim xMailBody As String
Set xOutApp = CreateObject("Outlook.Application")
Set xOutMail = xOutApp.CreateItem(0)
xMailBody = "Hi there" & vbNewLine & vbNewLine & _
"This is line 1" & vbNewLine & _
"This is line 2"
On Error Resume Next
With xOutMail
.To = "Email Address"
.CC = ""
.BCC = ""
.Subject = "send by cell value test"
.Body = xMailBody
.Display 'or use .Send
End With
On Error GoTo 0
Set xOutMail = Nothing
Set xOutApp = Nothing
End Sub
Notes:
3. Սեղմեք ալտ + Q ստեղները միասին փակելու համար Microsoft Visual Basic հավելվածների համար պատուհան.
Այսուհետ, երբ D7 բջիջում մուտքագրած արժեքը 200-ից մեծ է, Outlook- ում ավտոմատ կերպով կստեղծվի որոշակի հասցեատերերով և մարմինով էլ. Կարող եք սեղմել ուղարկել այս էլ-նամակն ուղարկելու կոճակը: Տեսեք,
Notes:
1. VBA կոդը գործում է միայն այն ժամանակ, երբ Outlook- ն օգտագործում եք որպես ձեր էլփոստի ծրագիր:
2. Եթե D7 բջիջում մուտքագրված տվյալները տեքստի արժեք են, ապա էլփոստի պատուհանը նույնպես դուրս կգա:
Outlook- ի միջոցով հեշտությամբ նամակ ուղարկեք Excel- ում ստեղծված փոստային ցուցակի դաշտերի հիման վրա.
The Ուղարկել նամակներ օգտակարությունը Excel- ի համար նախատեսված գործիքներ օգնում է օգտվողներին Excel- ում էլփոստ ուղարկող Outlook- ի միջոցով:
Ներբեռնեք և փորձեք հիմա: (30- օր անվճար երթուղի)
Առնչվող հոդվածներ քանակը:
- Ինչպե՞ս նամակ ուղարկել Outlook- ի միջոցով, երբ աշխատանքային գիրքը պահվում է Excel- ում:
- Ինչպե՞ս նամակ ուղարկել, եթե Excel- ում որոշակի բջիջ է փոփոխվել:
- Ինչպե՞ս նամակ ուղարկել, եթե 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%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:














































