Novo
 Skupnosti

Kako kodirati Excelov list za pošiljanje e-pošte, ko so v stolpcu izpolnjeni določeni pogoji

  Excel
clazor.itec
  clazor.itec
  Torek, 20 september 2022
  1 odgovori
  4.8 tisoč obiskov
0
Glasov
Razveljavi
Pozdravljeni, Excel sem nov in me zanima, ali je mogoče nastaviti kodo excel na način, ki bi poslal e-pošto določeni osebi, ko je vrednost v stolpcu označena kot dokončana. Na primer, če je JobX v A2 in so v isti vrstici začetnice vodij projekta v tej vrstici, B2, se to opravilo označi kot dokončano v C2, ko je stolpec C označen kot dokončan, je treba e-poštno sporočilo poslati PM, katerega začetnice so v tej vrsti. Našel sem kodo, ki lahko pošlje e-pošto, ko je celica stolpca označena kot dokončana, vendar sem se spraševal, ali sem lahko bolj natančen, kot je pošiljanje e-pošte določeni osebi, ko so izpolnjeni določeni pogoji. hvala,
chris
0
Najprej najstarejše Najprej  
Amanda Lee
Amanda Lee
1 letom
·
#3076
0
Glasov
Razveljavi
Zdravo,

Poskusite spodnjo kodo :) 
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

Omenili ste, da želite poslati e-poštno sporočilo PM, katerega začetnice so v isti vrstici, ki je označena kot dokončana. Ali je njegov/njen e-poštni naslov v isti vrstici? Koda v 6. vrstici pomaga najti začetnice vodij projekta, lahko jo spremenite, da bo našla e-poštni naslov.

Spremenite niz »končano« v 5. vrstici v dejanski niz, ki ga uporabljate za označevanje dokončanega opravila.

Upoštevajte, da lahko spodnji delček spremenite glede na svoje potrebe.
xMailBody = "Živjo" & vbNewLine & vbNewLine & _
"To je vrstica 1" & vbNewLine & _
"To je vrstica 2"
On Error Resume Next
Z xOutMail
.To = xTo
.CC = ""
.BCC = ""
.Subject = "pošlji s preskusom vrednosti celice"
.Telo = xMailBody
.Prikaži ali uporabi
' .Pošlji
Končaj s

Če imate kakršna koli vprašanja, me ne oklevajte vprašati.

Amanda
  • Stran:
  • 1
Za to objavo še ni odgovorov.