Χαίρετε Κ.
Προσπαθώ να στείλω ένα μήνυμα ηλεκτρονικού ταχυδρομείου που βασίζεται σε μια έμμεση αλλαγή της τιμής του κελιού (π.χ. > 7), με το συνημμένο email και τη συγκεκριμένη αναφορά κελιού στα αλλαγμένα κελιά στο σώμα της εξερχόμενης αλληλογραφίας μου. Έχω αλλάξει την έμμεση τιμή κελιού με βάση τα κριτήρια. Ωστόσο, λαμβάνω ένα σφάλμα 424 όταν προσπαθώ να ορίσω μια μεταβλητή για να καλέσω τη διεύθυνση του κελιού στο email μου. Θα μπορούσατε να βοηθήσετε; Νιώθω ότι είμαι κοντά.
Dim xRg ως εύρος
Dim xRgSel ως εύρος
«Ορισμός εύρους και στόχου
Προσωπικό φύλλο εργασίας Sub_change (ByVal Target As Range)
Dim xRgPre As Range
On Error Συνέχιση Επόμενη
Εάν Target.Cells.Count > 1 Στη συνέχεια, πραγματοποιήστε έξοδο από το Sub
Ορισμός xRg = Εύρος ("Q2:Q43")
Ορίστε xRgPre = xRg.Προηγούμενα
Ορισμός xRgSel = Τομή (Στόχος, xRg)
ActiveWorkbook. Αποθήκευση
Αν xRg.Τιμή > 7 Τότε
Καλέστε το Mail_small_Text_Outlook
ElseIf (Not xRgPre Is Nothing) And (Intersect(Target, xRgPre).Address = Target.Adress) Τότε
End If
End If
Sub End
Sub Mail_small_Text_Outlook()
Dim xOutApp ως αντικείμενο
Dim xOutMail ως αντικείμενο
Dim xMailBody ως συμβολοσειρά
Ορισμός xOutApp = CreateObject ("Outlook.Application")
Ορισμός xOutMail = xOutApp.CreateItem(0)
xMailBody = "Γεια σου, κελιά" & xRgSel.Address(False, False) & _
" στο φύλλο εργασίας " & Me.Name & "" είναι 3 ημέρες μετά την πρόσληψη" & vbNewLine & vbNewLine & _
"Παρακαλώ ελέγξτε και απευθυνθείτε στους δυνητικούς πελάτες" & vbNewLine & _
"Ευχαριστώ"
On Error Συνέχιση Επόμενη
Με xOutMail
.To = "rdavis@bridge.partners"
.CC = ""
.BCC = ""
.Subject = "Ημέρες από την πρόσληψη μολύβδου"
.Body = xMailBody
.Attachments.Add (This Workbook.FullName)
.Εμφάνιση ή .Αποστολή
Τέλος με
Στο σφάλμα GoTo 0
Ορισμός xOutMail = Τίποτα
Ρύθμιση xOutApp = Τίποτα
Sub End
Ευχαριστώ!
Προσπαθώ να στείλω ένα μήνυμα ηλεκτρονικού ταχυδρομείου που βασίζεται σε μια έμμεση αλλαγή της τιμής του κελιού (π.χ. > 7), με το συνημμένο email και τη συγκεκριμένη αναφορά κελιού στα αλλαγμένα κελιά στο σώμα της εξερχόμενης αλληλογραφίας μου. Έχω αλλάξει την έμμεση τιμή κελιού με βάση τα κριτήρια. Ωστόσο, λαμβάνω ένα σφάλμα 424 όταν προσπαθώ να ορίσω μια μεταβλητή για να καλέσω τη διεύθυνση του κελιού στο email μου. Θα μπορούσατε να βοηθήσετε; Νιώθω ότι είμαι κοντά.
Dim xRg ως εύρος
Dim xRgSel ως εύρος
«Ορισμός εύρους και στόχου
Προσωπικό φύλλο εργασίας Sub_change (ByVal Target As Range)
Dim xRgPre As Range
On Error Συνέχιση Επόμενη
Εάν Target.Cells.Count > 1 Στη συνέχεια, πραγματοποιήστε έξοδο από το Sub
Ορισμός xRg = Εύρος ("Q2:Q43")
Ορίστε xRgPre = xRg.Προηγούμενα
Ορισμός xRgSel = Τομή (Στόχος, xRg)
ActiveWorkbook. Αποθήκευση
Αν xRg.Τιμή > 7 Τότε
Καλέστε το Mail_small_Text_Outlook
ElseIf (Not xRgPre Is Nothing) And (Intersect(Target, xRgPre).Address = Target.Adress) Τότε
End If
End If
Sub End
Sub Mail_small_Text_Outlook()
Dim xOutApp ως αντικείμενο
Dim xOutMail ως αντικείμενο
Dim xMailBody ως συμβολοσειρά
Ορισμός xOutApp = CreateObject ("Outlook.Application")
Ορισμός xOutMail = xOutApp.CreateItem(0)
xMailBody = "Γεια σου, κελιά" & xRgSel.Address(False, False) & _
" στο φύλλο εργασίας " & Me.Name & "" είναι 3 ημέρες μετά την πρόσληψη" & vbNewLine & vbNewLine & _
"Παρακαλώ ελέγξτε και απευθυνθείτε στους δυνητικούς πελάτες" & vbNewLine & _
"Ευχαριστώ"
On Error Συνέχιση Επόμενη
Με xOutMail
.To = "rdavis@bridge.partners"
.CC = ""
.BCC = ""
.Subject = "Ημέρες από την πρόσληψη μολύβδου"
.Body = xMailBody
.Attachments.Add (This Workbook.FullName)
.Εμφάνιση ή .Αποστολή
Τέλος με
Στο σφάλμα GoTo 0
Ορισμός xOutMail = Τίποτα
Ρύθμιση xOutApp = Τίποτα
Sub End
Ευχαριστώ!