Makro İle Excelden Mail Göndermek

Bu yazımda sizlere Excel'de makro yolu ile nasıl mail gönderebileceğinizi anlatmaya çalışacağım.

Bu işlemin birçok yöntemi bulunmaktadır. Ben sizlere, bir tablonun nasıl mail gönderilebileceğini ve tabloya ekleme yapıldığında dinamik alanın nasıl oluşturulabileceğini anlatacağım.

NOT: Bilgisayarınızda Outlook kurulu olmalıdır. Ayrıca bcc kısmında benim mail adresim vardır. Örnek amacıyladır. Ona da dikkat ediniz.

Ayrıca seri olarak mail gönderme videosu ve dosyası için tıklayın.

Bir teşekkürü çok görmeyelim lütfen :)
Aşağıya yorum bırakabilir ve web sayfamı arkadaşlarınızla paylaşabilirsiniz... :)

Dim Sayfa As Worksheet
    Dim Alan As Range
    Dim daralan As Range

'Mail kısmının boş bırakılması durumunu kontrol eder.
    If Cells(2, 2) = "" Then GoTo HATA
'Herhangi bir hata ile karşılaşırsa, makroyu sonlandırır.
    On Error GoTo HATA

    With Application
        .ScreenUpdating = False
        .EnableEvents = False
    End With
'Mail tablosuna dinamiklik kazandırmak için tabloda kaç satır olduğunu bulur.
    saydir = WorksheetFunction.CountIf(Range("D:D"), "<>") + 1
'Dinamik alan tanımlanır.  
  DinamikAlan = "D2:" & "G" & saydir
'Dinamik alan mail alanı olarak kurulur.  
Set Alan = Worksheets("Sayfa1").Range(DinamikAlan)
    
    Set Sayfa = ActiveSheet

    With Alan

        .Parent.Select
        Set daralan = ActiveCell

        .Select
        ActiveWorkbook.EnvelopeVisible = True
        With .Parent.MailEnvelope

            .Introduction = "Otomatik Mail. BYMMB.COM tarafından tasarlanmıştır."

            With .Item
                .To = Cells(2, 2)
                .CC = Cells(3, 2)
                .Subject = Cells(1, 2)
                .bcc = ""
                .Send
            End With

        End With

        daralan.Select
    End With
    
    Sayfa.Select

HATA:
    With Application
        .ScreenUpdating = True
        .EnableEvents = True
    End With

Faydalı olması dileğiyle...