Spisie treści
To jest prosty przykład, jak wysłać wiadomość e-mail z programu Excel.
Kliknij tutaj, aby uzyskać bardziej złożony przykład: Wyślij arkusz roboczy pocztą e-mail jako osobny skoroszyt. Ten przykład dotyczy również ochrony hasłem i innych typowych problemów.
| 12345678910111213141516171819202122232425262728 | Poczta podrzędna_Skoroszyt()Application.ScreenUpdating = FałszWygaś aplikację jako obiektWygaś pocztę jako obiekt'Utwórz zmienne początkoweSet OutApp = CreateObject("Outlook.Application")Ustaw OutMail = OutApp.CreateItem(0)'E-mailPrzy błędzie Wznów DalejZ OutMail.to = "[email protected]".CC = "".BCC = "".Temat = "Temat".Body = "Tekst treści"'.Attachments.Add (FilePath) 'Opcjonalne, jeśli masz załącznik.Wyświetlacz' .Send ' Opcjonalnie, aby zautomatyzować wysyłanie wiadomości e-mail.Kończyć zW przypadku błędu Przejdź do 0Set OutMail = NicSet OutApp = NicApplication.ScreenUpdating = PrawdaNapis końcowy |
