16-05-12, 08:43
|
| |
Καλημέρα ,
Εκανα καποια πειράματα και τελικα καπου κατεληξα με την αποστολη e-mail βαση ημερομηνιας αλλά ΑΥΤΟΜΑΤΑ. Δηλαδη με το που ανοιγουμε το excel αυτο στελνει ενα προκαθορισμενο κειμενο χωρις να χρειαζεται να κανει κατι ο χειριστης. Ειναι παρα πολυ βολικό.
Το επισυνάπτω για να με βοηθησει οποιος μπορει στο προβληματακι που εχω.
Στελνει e-mail Μόνο στο κελί Α2 τι χρειαζεται να γραχω στον VBA κώδικα ώστε να στελνει email σε όλα τα Α κελιά ? Σας παραθετω και τον κώδικα , εστιαζω το προβλημα με την μικρη εμπειρια μου στο Set Rng = Worksheets("Sheet1").Range("A2") Ολος ο κώδικας Sub CheckForExpiryDates()
Dim Cell As Range
Dim Mail_Msg As String
Dim Mail_Subj As String
Dim Rng As Range
Dim RngEnd As Range
Mail_Subj = "thema_E-mail"
Mail_Msg = "keimeno_email"
Set Rng = Worksheets("Sheet1").Range("A2")
Set RngEnd = Rng.Parent.Cells(Rows.Count, Rng.Column).End(xlUp)
Set Rng = IIf(RngEnd.Row < Rng.Row, Rng, Rng.Parent.Range(Rng, RngEnd))
For Each Cell In Rng.Cells
If Cell.Offset(0, 2) < Now() Then
SendEmail Cell.Offset(0, 1), Mail_Subj, Mail_Msg
End If
Next Cell
End Sub
ΥΓ : Επειδη δεν μπορώ να ανοιξω νεο θεμα αν επιθυμουν οι διαχειριστες και ειναι σωστο το excel που ανεβαζω ας το μεταφερουν στα παραδειγματα για να βοηθηθει κι αλλος κοσμος στην κοινότητα που θελει κατι αντιστοιχο  |