Modül 6: İleri Düzey Fonksiyonlar ve Rapor Otomasyonu
VBA ile Mail Gönderme (Outlook Otomasyonu)
Hazırladığınız Excel raporlarını her gün yöneticilerinize veya müşterilerinize manuel olarak e-posta ile göndermek büyük zaman kaybettirir. VBA ve Outlook Application entegrasyonu sayesinde saniyesinde mail taslağı oluşturabilir, alıcıları belirleyebilir, hatta hazırlanan rapor dosyasını maile ekleyerek tek tuşla gönderebilirsiniz.
Outlook Otomasyonu Kod Mantığı
Bu işlem için bilgisayarınızda Microsoft Outlook kurulu olmalıdır. VBA kodları arka planda Outlook programını tetikler, yeni bir posta öğesi (MailItem) açar ve içine konu, alıcı, metin ve ek dosyaları yerleştirir.
Örnek Outlook Mail Gönderme Kod Kalıbı
Dim outApp As Object, outMail As Object
Set outApp = CreateObject("Outlook.Application")
Set outMail = outApp.CreateItem(0)
With outMail
.To = "yonetici@sirket.com"
.Subject = "Günlük Satış Raporu"
.Body = "Merhaba, günlük rapor ektedir."
.Attachments.Add "C:\Raporlar\Satis.xlsx"
.Send ' veya .Display (Görüntüle)
End With