Νέα
 Κοινότητα

Πώς να κωδικοποιήσετε ένα φύλλο excel για να στείλετε ένα email όταν πληρούνται ορισμένες προϋποθέσεις σε μια στήλη

  Excel
clazor.itec
  clazor.itec
  Τρίτη, 20 2022 Σεπτέμβριο
  1 Απαντήσεις
  4.8K Επισκέψεις
0
Ψηφοφορίες
Αναίρεση
Γεια, είμαι πολύ νέος στο excel και αναρωτιόμουν αν είναι δυνατό να ρυθμίσετε έναν κωδικό excel με τρόπο που θα στέλνει ένα μήνυμα ηλεκτρονικού ταχυδρομείου σε ένα συγκεκριμένο άτομο όταν μια τιμή σε μια στήλη επισημαίνεται ως ολοκληρωμένη. Για παράδειγμα, εάν το JobX είναι στο A2 και στην ίδια σειρά τα αρχικά του project managers βρίσκονται σε αυτήν τη σειρά, B2, αυτή η εργασία επισημαίνεται ως ολοκληρωμένη στο C2, όταν η στήλη C επισημαίνεται ως ολοκληρωμένη, θα πρέπει να σταλεί ένα email στο PM του οποίου τα αρχικά βρίσκονται σε αυτή τη σειρά. Βρήκα έναν κωδικό που μπορεί να στείλει ένα μήνυμα ηλεκτρονικού ταχυδρομείου όταν το κελί μιας στήλης επισημανθεί ως ολοκληρωμένο, αλλά αναρωτιόμουν αν μπορώ να είμαι πιο συγκεκριμένος όπως να στείλω ένα μήνυμα ηλεκτρονικού ταχυδρομείου σε ένα συγκεκριμένο άτομο όταν πληρούνται ορισμένες προϋποθέσεις. Ευχαριστώ,
chris
0
παλαιότερα Πρώτα  
Amanda Lee
Amanda Lee
πριν 1 χρόνο
·
#3076
0
Ψηφοφορίες
Αναίρεση
Γεια σου,

Δοκιμάστε τον παρακάτω κώδικα :) 
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

Αναφέρατε ότι θέλετε να στείλετε ένα μήνυμα ηλεκτρονικού ταχυδρομείου στο PM του οποίου τα αρχικά είναι στην ίδια σειρά που επισημάνθηκαν ως ολοκληρωμένα. Είναι η διεύθυνση email του/της στην ίδια σειρά; Ο κωδικός στην 6η σειρά βοηθά να βρείτε τα αρχικά των διαχειριστών έργου, μπορείτε να τον αλλάξετε για να βρείτε τη διεύθυνση email.

Αλλάξτε τη συμβολοσειρά "ολοκληρώθηκε" στην 5η σειρά στην πραγματική συμβολοσειρά που χρησιμοποιείτε για να επισημάνετε την εργασία ως ολοκληρωμένη.

Σημειώστε ότι μπορείτε να αλλάξετε το παρακάτω απόσπασμα στις ανάγκες σας.
xMailBody = "Γεια σου" & vbNewLine & vbNewLine & _
"Αυτή είναι η γραμμή 1" & vbNewLine & _
"Αυτή είναι η γραμμή 2"
On Error Συνέχιση Επόμενη
Με xOutMail
.To = xTo
.CC = ""
.BCC = ""
.Θέμα = "αποστολή με δοκιμή τιμής κελιού"
.Body = xMailBody
.Εμφάνιση ή χρήση
' .Στείλετε
Τέλος με

Εάν έχετε οποιεσδήποτε ερωτήσεις, μη διστάσετε να με ρωτήσετε.

Amanda
  • σελίδα:
  • 1
Δεν υπάρχουν ακόμη απαντήσεις για αυτήν την ανάρτηση.