Ինչպե՞ս նամակ ուղարկել, եթե Excel- ում որոշակի բջիջ է փոփոխվել:

Այս հոդվածը խոսում է Outlook-ի միջոցով նամակ ուղարկելու մասին, երբ Excel-ում որոշակի տիրույթի բջիջը փոփոխվում է:

Ուղարկեք էլ. Նամակ, եթե որոշակի տիրույթի բջիջը փոփոխված է VBA կոդով

Ուղարկեք էլ. Նամակ, եթե որոշակի տիրույթի բջիջը փոփոխված է VBA կոդով

Եթե ​​Ձեզ անհրաժեշտ է ավտոմատ կերպով ստեղծել նոր էլ.

1. Աշխատաթերթում, որը դուք պետք է ուղարկեք էլ.փոստ `որոշակի փոփոխականության մեջ գտնվող իր փոփոխված բջիջի հիման վրա, աջով կտտացրեք թերթիկի ներդիրին և այնուհետև Դիտել կոդը համատեքստային ընտրացանկից: Տեսեք,

2. Պատուհանման մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, խնդրում ենք պատճենել և տեղադրեք ներքևում գտնվող VBA կոդի ծածկագիր կոդի պատուհանում:

VBA կոդ. Նամակ ուղարկեք, եթե նշված տիրույթում գտնվող բջիջը փոփոխված է Excel- ում

Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 2017/9/12
    Dim xRgSel As Range
    Dim xOutApp As Object
    Dim xMailItem As Object
    Dim xMailBody As String
    On Error Resume Next
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Set xRg = Range("A2:E11")
    Set xRgSel = Intersect(Target, xRg)
    ActiveWorkbook.Save
    If Not xRgSel Is Nothing Then
        Set xOutApp = CreateObject("Outlook.Application")
        Set xMailItem = xOutApp.CreateItem(0)
        xMailBody = "Cell(s) " & xRgSel.Address(False, False) & _
            " in the worksheet '" & Me.Name & "' were modified on " & _
            Format$(Now, "mm/dd/yyyy") & " at " & Format$(Now, "hh:mm:ss") & _
            " by " & Environ$("username") & "."

        With xMailItem
            .To = "Email Address"
            .Subject = "Worksheet modified in " & ThisWorkbook.FullName
            .Body = xMailBody
            .Attachments.Add (ThisWorkbook.FullName)
            .Display
        End With
        Set xRgSel = Nothing
        Set xOutApp = Nothing
        Set xMailItem = Nothing
    End If
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

Notes:

3. Սեղմեք ալտ + Q ստեղները միաժամանակ փակելու համար Microsoft Visual Basic հավելվածների համար պատուհան.

Այսուհետ, A2: E11 տիրույթում գտնվող ցանկացած բջիջ փոփոխվում է, նոր էլփոստ կստեղծվի թարմացված աշխատանքային գրքի հետ միասին: Եվ բոլոր նշված դաշտերը, ինչպիսիք են առարկան, ստացողը և էլփոստի մարմինը, նշված կլինեն էլ. Փոստում: Խնդրում ենք ուղարկել էլ.

ՆշումVBA կոդը աշխատում է միայն այն դեպքում, եթե դուք օգտագործում եք Outlook-ը որպես ձեր էլփոստի ծրագիր:

Առնչվող հոդվածներ քանակը:

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