Bu şablon, açık olan çalışma kitabını Excel'in "E-posta gönder" iletişim kutusu üzerinden ek olarak göndermek için hazırlanmış küçük bir makro örneğidir. Gönderme işlemi Sheet1 sayfasındaki resim düğmesine tıklanarak başlatılır.
Formül, FileName fonksiyonu aracılığıyla çalışma kitabının adını uzantısıyla birlikte hücreye getirir.
Dosyanın içeriği
- Sheet1: F2 hücresinde "Resme Tıklat" yazısı bulunur; makro bu alandaki resme atanarak çalıştırılır. F10 hücresinde çalışma kitabının dosya adı otomatik olarak görüntülenir.
Kullanılan formüller
F10 hücresinde, makro bölümündeki özel fonksiyonu çağıran aşağıdaki formül yer alır:=FileName()
Makrolar
Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Kodda dosya silme veya dışarıya bağlantı kuran bir işlem yoktur. Tüm kod Module1 modülündedir.- OpenWorkbookAsAttachment: Excel'in xlDialogSendMail iletişim kutusunu açar. Alıcı, konu ve ileti bilgileri bu kutuda girilir; çalışma kitabı e-postaya ek olarak eklenir. Makro, Sheet1 üzerindeki resme tıklanınca çalışacak şekilde kullanılır.
- FileName: Çalışma kitabının adını döndüren özel fonksiyondur ve F10 hücresinde kullanılır.
Nasıl kullanılır
- Dosyayı açın ve istenirse makroları etkinleştirin.
- Sheet1 sayfasında "Resme Tıklat" yazan resme tıklayın.
- Açılan e-posta iletişim kutusunda alıcı ve konu bilgilerini girin.
- Gönder düğmesiyle çalışma kitabını ek olarak gönderin.