Bu şablon, açık olan çalışma kitabını Outlook'ta hazırlanan yeni bir e-postaya ek olarak ekleyen bir makro içerir. Mesaj hemen gönderilmez, pencere olarak açılır; gönderilmeden önce alıcı, konu ve metin kontrol edilip değiştirilebilir.
Dosya makro içerir (.xlsm), açarken makroları etkinleştirmeniz gerekir. Makro Outlook uygulamasını kullandığı için bilgisayarda Outlook kurulu olmalıdır.
Bu fonksiyon makro modülünde tanımlıdır ve dosya adını ThisWorkbook.Name değerinden alır.
Dosya makro içerir (.xlsm), açarken makroları etkinleştirmeniz gerekir. Makro Outlook uygulamasını kullandığı için bilgisayarda Outlook kurulu olmalıdır.
Dosyanın içeriği
- Sheet1: F2 hücresinde "Resme Tıklat" yazısı bulunur; makro bu alandan çalıştırılmak üzere hazırlanmıştır. F10 hücresinde dosyanın adını gösteren formül yer alır.
- Module1: Send_Mail ve FileName adlı iki prosedürü barındıran VBA modülüdür.
Kullanılan formüller
F10 hücresinde çalışma kitabının adını getiren özel fonksiyon çağrılır:=FileName()
Makrolar
- Send_Mail: Outlook uygulamasını başlatır ve yeni bir e-posta öğesi oluşturur. Alıcı adresi, konu ("Aktif sayfayı ek olarak e-posta gönderme testi") ve metin kod içinde tanımlıdır. Metin, Excel kullanıcı adıyla başlayan bir selamlama ve "Test başarılıdır." cümlesinden oluşur. Etkin çalışma kitabı tam yoluyla ek olarak eklenir ve mesaj ekranda görüntülenir. Kod dosya silme veya dışarıya veri aktarma işlemi yapmaz; gönderme kararı kullanıcıya bırakılır.
- FileName: Çalışma kitabının dosya adını döndüren fonksiyondur.
Nasıl kullanılır
- Dosyayı açın ve makroları etkinleştirin.
- Alt+F8 ile Send_Mail makrosunu çalıştırın veya makroyu Sheet1 üzerindeki resme atayın.
- Outlook'ta açılan e-posta penceresinde ekin eklendiğini kontrol edin.
- Alıcı adresini, konuyu ve metni kendi ihtiyacınıza göre düzenleyip mesajı gönderin.
- Kalıcı kullanım için VBA düzenleyicisinde .to, .Subject ve .Body satırlarındaki değerleri değiştirin.