Ենթադրելով, որ ցանկանում եք Outlook- ի միջոցով նամակ ուղարկել որոշակի ստացողի ՝ Excel- ում նշված բջջային արժեքի հիման վրա: Օրինակ, երբ աշխատանքային թերթում D7 բջիջի արժեքը 200-ից մեծ է, ապա էլ.փոստը ստեղծվում է ավտոմատ կերպով: Այս հոդվածը ներկայացնում է 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:
1. VBA կոդում D7 և արժեք> 200 այն բջջի և բջջի արժեքն է, որի հիման վրա էլփոստ կուղարկեք:
2. Խնդրում ենք փոխել էլփոստի մարմինը, ինչպես ձեզ հարկավոր է xMailBody տող ծածկագրում:
3. Փոխարինեք էլ. Փոստի հասցեն ստացողի էլ. Փոստի տողում . To = "Էլ. Փոստի հասցե".
4. Եվ նշեք Cc և Bcc ստացողներին, քանի որ ձեզ հարկավոր է .CC = «» և CՇՇ = «» բաժիններում
5. Վերջապես փոխեք էլփոստի թեման տողում .Tubject = "ուղարկել բջջային արժեքի թեստով".
3. Սեղմեք ալտ + Q ստեղները միասին փակելու համար Microsoft Visual Basic հավելվածների համար պատուհան.
Այսուհետ, երբ D7 բջիջում մուտքագրած արժեքը 200-ից մեծ է, Outlook- ում ավտոմատ կերպով կստեղծվի որոշակի հասցեատերերով և մարմինով էլ. Կարող եք սեղմել ուղարկել այս էլ-նամակն ուղարկելու կոճակը: Տեսեք,
Notes:
1. VBA կոդը գործում է միայն այն ժամանակ, երբ Outlook- ն օգտագործում եք որպես ձեր էլփոստի ծրագիր:
2. Եթե D7 բջիջում մուտքագրված տվյալները տեքստի արժեք են, ապա էլփոստի պատուհանը նույնպես դուրս կգա:
Outlook- ի միջոցով հեշտությամբ նամակ ուղարկեք Excel- ում ստեղծված փոստային ցուցակի դաշտերի հիման վրա.
The Ուղարկել նամակներ օգտակարությունը Excel- ի համար նախատեսված գործիքներ օգնում է օգտվողներին Excel- ում էլփոստ ուղարկող Outlook- ի միջոցով:
Ներբեռնեք և փորձեք այն հիմա: (30-օրյա անվճար արահետ)
