Ինչպես կոդավորել excel թերթը նամակ ուղարկելու համար, երբ որոշակի պայմանները բավարարված են սյունակում

Hi այնտեղ,

Խնդրում ենք փորձել ստորև նշված կոդը

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim xRg As Range

    If Target.Cells.Count > 1 Then Exit Sub

    If Intersect(Range("c:c"), Target) Is Nothing Then Exit Sub

    If Target.Value = "done" Then

        Set xRg = Target.Offset(0, -1) 'Find email address

        Call Mail_small_Text_Outlook(xRg.Value)

    End If

    

End Sub



Sub Mail_small_Text_Outlook(ByVal xTo As String)

    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 = xTo

        .CC = ""

        .BCC = ""

        .Subject = "send by cell value test"

        .Body = xMailBody

        .Display   'or use

'        .Send

    End With

    Set xOutMail = Nothing

    Set xOutApp = Nothing

End Sub

Դուք նշեցիք, որ ցանկանում եք նամակ ուղարկել վարչապետին, որի սկզբնատառերը նույն շարքում են, որը նշված է որպես ավարտված: Արդյո՞ք նրա էլփոստի հասցեն նույն շարքում է: 6-րդ շարքի կոդը օգնում է գտնել նախագծի մենեջերի սկզբնատառերը, կարող եք փոխել այն, որպեսզի այն գտնի էլփոստի հասցեն:

Խնդրում ենք փոխել 5-րդ շարքի «կատարված» տողը իրական տողի հետ, որն օգտագործում եք աշխատանքը ավարտված նշելու համար:

Նկատի ունեցեք, որ ստորև բերված հատվածը կարող եք փոխել ըստ ձեր կարիքների:
xMailBody = «Բարև ձեզ» & vbNewLine & vbNewLine & _
«Սա տող 1 է» և vbNewLine & _
«Սա տող 2 է»
Ս.թ. սխալի Ռեզյումե Next
xOutMail-ի հետ
.To = xTo
.CC = ""
.BCC = ""
.Tubject = "ուղարկել բջջային արժեքի թեստով"
.Body = xMailBody
.Ցուցադրել կամ օգտագործել
.Ուղարկեք
Վերջ

Եթե ​​ունեք հարցեր, խնդրում եմ մի հապաղեք ինձ հարցնել:

Amanda