İçindekiler
Bu, Excel'den nasıl e-posta gönderileceğinin basit bir örneğidir.
Daha karmaşık bir örnek için burayı tıklayın: Çalışma sayfasını ayrı bir çalışma kitabı olarak e-posta ile gönderin. Bu örnek ayrıca parola koruması ve diğer yaygın sorunlarla da ilgilidir.
| 12345678910111213141516171819202122232425262728 | Sub Mail_Workbook()Application.ScreenUpdating = YanlışOutApp'i Nesne Olarak KarartOutMail'i Nesne Olarak Karartın'Başlangıç değişkenleri oluşturSet OutApp = CreateObject("Outlook.Application")OutMail'i Ayarla = OutApp.CreateItem(0)'e-postaHatada Devam Et SonrakiOutMail ile.to = "[email protected]".CC = "".BCC = "".Subject = "Konu".Body = "Gövde Metni"'.Attachments.Add (FilePath) 'Ekiniz varsa isteğe bağlıdır.Görüntülemek' .Send 'E-posta gönderimini otomatikleştirmek için isteğe bağlı.İle bitmekHatada GoTo 0OutMail'i Ayarla = Hiçbir ŞeyOutApp'i Ayarla = Hiçbir ŞeyApplication.ScreenUpdating = DoğruAlt Bitiş |
