Bu dosya, üzerinde çalışılan Excel kitabını Outlook üzerinden yeni bir e-postaya ek olarak ekleyen hazır bir makro içerir. E-posta otomatik gönderilmez; ek eklenmiş taslak ekranda açılır ve gönderim kullanıcının onayına bırakılır.
Bu fonksiyon makro modülünde tanımlı olduğu için yalnızca makrolar etkinken sonuç verir.
Dosyanın içeriği
- Sheet1: F2 hücresinde "Resme Tıklat" yazan bir düğme alanı bulunur. F10 hücresinde çalışma kitabının dosya adı gösterilir.
- Module1: Send_Mail makrosunu ve FileName fonksiyonunu barındıran VBA modülüdür.
Kullanılan formüller
F10 hücresinde, kullanıcı tanımlı fonksiyon olan FileName çağrılır ve çalışma kitabının adı döndürülür:=FileName()
Makrolar
Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.- Send_Mail: Outlook uygulamasını başlatır, yeni bir e-posta öğesi oluşturur ve aktif çalışma kitabını tam yoluyla ek olarak ekler. Alıcı, konu ("Growth Report") ve metin ("Hello Team, Please find attached Growth Report.") makro içinde sabit tanımlıdır. E-posta .display komutuyla ekranda gösterilir, otomatik gönderilmez. Kodda dosya silme veya dışarıya bağlantı kuran bir işlem yoktur.
- FileName: ThisWorkbook.Name değerini döndürerek çalışma kitabının adını verir.
Nasıl kullanılır
- Dosyayı açın ve makroları etkinleştirin.
- Alıcı adresi, konu ve e-posta metni için ALT+F11 ile VBA düzenleyicisini açın, Module1 içindeki Send_Mail makrosunda ilgili satırları kendi bilgilerinize göre değiştirin.
- ALT+F8 ile Send_Mail makrosunu seçip çalıştırın; "Resme Tıklat" alanına makro atanmışsa tıklamak da yeterlidir.
- Outlook'ta açılan e-postayı kontrol edip gönderin.