VBA ile Outlook E-posta Otomasyonu

Bilkey Bilişim Akademisi 20.07.2024 2,015 okunma

Visual Basic Eğitimi

VBA ile E-posta Otomasyonu

Microsoft Outlook ve Excel VBA kombinasyonu, iş süreçlerinde en güçlü otomasyon araçlarından birini oluşturur. Faturaları otomatik göndermek, haftalık raporu ilgili kişilere iletmek veya vadesi gelen ödemeler için hatırlatma e-postaları oluşturmak; VBA ile yalnızca birkaç satır kodla mümkündür. Bu otomasyon, tekrarlayan e-posta görevlerinde saatler kazandırır.

Outlook Nesne Modelini Anlamak

VBA üzerinden Outlook kontrolü için Outlook nesne hiyerarşisi bilinmelidir:

Outlook.Application – Outlook uygulamasının kendisi
MailItem – Bir e-posta mesajı nesnesi
Attachments – E-postaya eklenen dosyalar koleksiyonu
Recipients – Alıcılar koleksiyonu (To, CC, BCC)

Temel E-posta Gönderme Kodu

Sub EmailGonder()
    Dim olApp As Object
    Dim olMail As Object
    Set olApp = CreateObject("Outlook.Application")
    Set olMail = olApp.CreateItem(0) REM 0 = olMailItem
    With olMail
        .To = "musteri@example.com"
        .CC = "mudur@sirket.com"
        .Subject = "Aylik Rapor - " & Format(Date, "MMMM YYYY")
        .Body = "Sayin Musterimiz, raporunuz ekte yer almaktadir."
        .Attachments.Add "C:\Raporlar\aylik.xlsx"
        .Send
    End With
    MsgBox "E-posta gonderildi!"
End Sub

Excel Listesinden Toplu E-posta

Bir Excel çalışma sayfasındaki alıcı listesini döngüyle okuyarak her birine kişiselleştirilmiş e-posta göndermek mümkündür:

Sub TopluEmailGonder()
    Dim ws As Worksheet: Set ws = Sheets("Alicilar")
    Dim i As Long
    For i = 2 To ws.Cells(Rows.Count,1).End(xlUp).Row
        Dim olMail As Object
        Set olMail = CreateObject("Outlook.Application").CreateItem(0)
        olMail.To = ws.Cells(i, 2).Value
        olMail.Subject = "Faturaniz Hazirlandi"
        olMail.Body = "Sayin " & ws.Cells(i,1).Value & ", tutariniz: " & ws.Cells(i,3).Value & " TL"
        olMail.Send
    Next i
End Sub

HTML Formatlı E-posta Gönderme

.Body yerine .HTMLBody özelliği kullanılarak zengin biçimli HTML e-postalar gönderilebilir. Tablo, liste, renk ve logo içeren kurumsal şablonlar bu yöntemle oluşturulur.

E-posta Taslak Olarak Kaydetme

.Send yerine .Save kullanılırsa e-posta gönderilmez, Taslaklar klasörüne kaydedilir. Büyük miktarda e-posta gönderiminden önce birkaç taslak kontrol edilerek doğrulama yapılması önerilir.

Bilkey Visual Basic Kursu

Bilkey Bilişim Akademisi Visual Basic (VBA) Kursu'nda Excel, Outlook ve Word otomasyonu gerçek iş senaryolarıyla uygulamalı olarak öğretilmektedir. Kurtköy merkezimizde birebir ders alarak ofis süreçlerini otomatize etmeyi öğrenin. 0216 354 7979

vba outlook email vba otomatik email excel vba mail gönder outlook vba visual basic pendik

Visual Basic Eğitimi hakkında bilgi almak ister misiniz?

Birebir özel yüz yüze eğitim yada uzaktan eğitim, esnek ders saatleri ile Pendik Kurtköy'de.

Kursa Git WhatsApp