Outlook Üzerinden Otomatik E-Posta Göndermek

Ofis Programları Entegrasyonu

Excel VBA sadece Excel'i değil, Outlook veya Word gibi diğer Microsoft programlarını da bir kukla gibi yönetebilir.

VBA Kodu:

Sub MailAt()
    Dim olApp As Object, mail As Object
    Set olApp = CreateObject("Outlook.Application")
    Set mail = olApp.CreateItem(0)
    With mail
        .To = "musteri@excelformul.com"
        .Subject = "Otomatik Rapor"
        .Body = "Sayın müşteri, raporunuz hazırlanmıştır."
        .Send
    End With
End Sub

Ne Göreceksiniz? Arka planda görünmez bir Outlook açılacak, belirttiğiniz adrese mail oluşturulup sizin yerinize "Gönder" butonuna basılacaktır.