Είμαι νέος στο VBA. Ψάχνω να στείλω ένα μήνυμα ηλεκτρονικού ταχυδρομείου όταν ένα κελί K έχει εισαγάγει "Ναι"... Έχω φτάσει ως εδώ, αλλά δυσκολεύομαι με το επόμενο βήμα.
Θα ήθελα το σώμα του email να διαβάσει ως εξής:
Γεια, περίληψη πρότασης έργου παρακάτω.
Όνομα έργου: *Πληροφορίες από το κελί A*
Περιγραφή: *κελί B*
Λύση: *κελί C*
Οφέλη: *Κελί D*
Κόστος: *Κελί F*
Ώρα: Κελλί *G*
Κίνδυνος: Κύτταρο *H*
Πελάτης: Κύτταρο I
Μάρκα(ες): Cell J
Με φιλικούς χαιρετισμούς,
*Κελί L*
Παρακάτω είναι ο κώδικας που έχω χρησιμοποιήσει μέχρι τώρα:
Προσωπικό φύλλο εργασίας Sub_change (ByVal Target As Range)
Εάν Target.Cells.Count > 1 Στη συνέχεια, πραγματοποιήστε έξοδο από το Sub
If (Not Intersect(Target, Range("K:K")) Is Nothing) And (Target.Value = "Yes") Τότε
Καλέστε το Mail_small_Text_Outlook
End If
Sub End
Sub Mail_small_Text_Outlook()
Dim xOutApp ως αντικείμενο
Dim xOutMail ως αντικείμενο
Dim xMailBody ως συμβολοσειρά
Ορισμός xOutApp = CreateObject ("Outlook.Application")
Ορισμός xOutMail = xOutApp.CreateItem(0)
xMailBody = "Γεια σου" & vbNewLine & vbNewLine & _
"Αυτή είναι η γραμμή 1" & vbNewLine & _
"Αυτή είναι η γραμμή 2"
On Error Συνέχιση Επόμενη
Με xOutMail
.To = "διεύθυνση ηλεκτρονικού ταχυδρομείου"
.CC = ""
.BCC = ""
.Θέμα = "αποστολή με δοκιμή τιμής κελιού"
.Body = xMailBody
.Εμφάνιση ή χρήση .Αποστολή
Τέλος με
Στο σφάλμα GoTo 0
Ορισμός xOutMail = Τίποτα
Ρύθμιση xOutApp = Τίποτα
Sub End
Ευχαριστώ εκ των προτέρων όποιον μπορεί να με βοηθήσει.
Θα ήθελα το σώμα του email να διαβάσει ως εξής:
Γεια, περίληψη πρότασης έργου παρακάτω.
Όνομα έργου: *Πληροφορίες από το κελί A*
Περιγραφή: *κελί B*
Λύση: *κελί C*
Οφέλη: *Κελί D*
Κόστος: *Κελί F*
Ώρα: Κελλί *G*
Κίνδυνος: Κύτταρο *H*
Πελάτης: Κύτταρο I
Μάρκα(ες): Cell J
Με φιλικούς χαιρετισμούς,
*Κελί L*
Παρακάτω είναι ο κώδικας που έχω χρησιμοποιήσει μέχρι τώρα:
Προσωπικό φύλλο εργασίας Sub_change (ByVal Target As Range)
Εάν Target.Cells.Count > 1 Στη συνέχεια, πραγματοποιήστε έξοδο από το Sub
If (Not Intersect(Target, Range("K:K")) Is Nothing) And (Target.Value = "Yes") Τότε
Καλέστε το Mail_small_Text_Outlook
End If
Sub End
Sub Mail_small_Text_Outlook()
Dim xOutApp ως αντικείμενο
Dim xOutMail ως αντικείμενο
Dim xMailBody ως συμβολοσειρά
Ορισμός xOutApp = CreateObject ("Outlook.Application")
Ορισμός xOutMail = xOutApp.CreateItem(0)
xMailBody = "Γεια σου" & vbNewLine & vbNewLine & _
"Αυτή είναι η γραμμή 1" & vbNewLine & _
"Αυτή είναι η γραμμή 2"
On Error Συνέχιση Επόμενη
Με xOutMail
.To = "διεύθυνση ηλεκτρονικού ταχυδρομείου"
.CC = ""
.BCC = ""
.Θέμα = "αποστολή με δοκιμή τιμής κελιού"
.Body = xMailBody
.Εμφάνιση ή χρήση .Αποστολή
Τέλος με
Στο σφάλμα GoTo 0
Ορισμός xOutMail = Τίποτα
Ρύθμιση xOutApp = Τίποτα
Sub End
Ευχαριστώ εκ των προτέρων όποιον μπορεί να με βοηθήσει.