Πίνακας περιεχομένων
Αυτό είναι ένα απλό παράδειγμα του τρόπου αποστολής email από το Excel.
Κάντε κλικ εδώ για ένα πιο περίπλοκο παράδειγμα: Αποστολή φύλλου εργασίας μέσω email ως ξεχωριστού βιβλίου εργασίας. Αυτό το παράδειγμα ασχολείται επίσης με την προστασία κωδικού πρόσβασης και άλλα κοινά ζητήματα.
| 12345678910111213141516171819202122232425262728 | Sub Mail_Workbook ()Application.ScreenUpdating = ΛάθοςDim OutApp ως αντικείμενοDim OutMail ως αντικείμενο«Δημιουργία αρχικών μεταβλητώνSet OutApp = CreateObject ("Outlook.Application")Ορισμός OutMail = OutApp.CreateItem (0)'ΗΛΕΚΤΡΟΝΙΚΗ ΔΙΕΥΘΥΝΣΗΣτο Σφάλμα Συνέχιση ΕπόμενοΜε OutMail.to = "[email protected]".CC = "".BCC = "".Subject = "Θέμα".Body = "Κείμενο σώματος"'. Συνημμένα. Προσθήκη (FilePath)' Προαιρετικό εάν έχετε συνημμένο.Απεικόνιση'.Αποστολή' Προαιρετικό για αυτοματοποίηση αποστολής email.Τέλος μεΣφάλμα GoTo 0Set OutMail = ΤίποταSet OutApp = ΤίποταApplication.ScreenUpdating = TrueΤέλος υπο |
