Ny
 Community

Sådan koder du et excel-ark til at sende en e-mail, når visse betingelser er opfyldt i en kolonne

  Excel
clazor.itec
  clazor.itec
  Tirsdag 20 September 2022
  1 Svar
  4.9K besøg
0
Stemmer
Fortryd
Hej, jeg er meget ny inden for excel og tænkte på, om det er muligt at sætte en excel-kode op på en måde, der sender en e-mail til en bestemt person, når en værdi i en kolonne er markeret som afsluttet. For eksempel, hvis JobX er i A2, og i samme række er projektlederens initialer i den række, B2, bliver dette job markeret som afsluttet i C2, når kolonne C markeres som afsluttet, skal der sendes en e-mail til den PM, hvis initialer er i den række. Jeg fandt en kode, der kan sende en e-mail, når en kolonnes celle bliver markeret som afsluttet, men tænkte på, om jeg kan være mere specifik som at sende en e-mail til en bestemt person, når visse betingelser er opfyldt. Tak,
Chris
0
Ældste først  
Amanda Lee
Amanda Lee
1 år siden
·
#3076
0
Stemmer
Fortryd
Hej der,

Prøv venligst koden nedenfor :) 
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

Du nævnte, at du vil sende en e-mail til den PM, hvis initialer som i samme række, der er markeret som afsluttet. Er hans/hendes e-mailadresse på samme række? Koden i 6. række hjælper med at finde projektlederens initialer, du kan ændre den for at få den til at finde e-mailadressen.

Skift venligst strengen "udført" i 5. række til den faktiske streng, du bruger til at markere jobbet udført.

Bemærk, at du kan ændre uddraget nedenfor til dine behov.
xMailBody = "Hej" & vbNewLine & vbNewLine & _
"Dette er linje 1" & vbNewLine & _
"Dette er linje 2"
On Error Resume Next
Med xOutMail
.To = xTo
.CC = ""
.BCC = ""
.Subject = "send med celleværditest"
.Body = xMailBody
.Vis 'eller brug
' .Send
Slut med

Hvis du har spørgsmål, så tøv ikke med at spørge mig.

Amanda
  • Side:
  • 1
Der er endnu ingen svar på dette indlæg.