Ինչպե՞ս ավտոմատ կերպով էլ-նամակ ուղարկել 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- ում:
• Ինչպե՞ս նամակ ուղարկել, եթե Excel- ում որոշակի բջիջ է փոփոխվել:
• Ինչպե՞ս նամակ ուղարկել, եթե Excel- ում կտտացնում են կոճակը:
• Ինչպե՞ս էլեկտրոնային նամակ ուղարկել, եթե Excel- ում լրացել է ժամկետը:
• Ինչպե՞ս ուղարկել էլփոստի հիշեցում կամ ծանուցում, եթե աշխատանքային գիրքը թարմացվում է Excel- ում: