Filtrelenmiş alanda mail.

[herak_lion]

Değerli Üstatlarım;
ekli dosyada görüleceği üzere filtrelenmiş alanda bir döngü kurup sadece filtreli satırları mail atmak istiyorum.
Bu döngü ve mailler, filtrelenmiş alanı yeni sayfaya kopyalamadan aynı sayfa üzerinden yapılabilir mi?
Değerli yardımlarınızı rica ederim.

 

[Murat OSMA]

Merhabalar,

Kodları bu şekilde değiştirip kullanabilirsiniz.
Ya da For Next döngüsü içine Row.Height >0 şartını ilave ederek de çözebilirsiniz.

[FONT="Trebuchet MS"][SIZE="2"]Sub evnOutlookMail()
    Dim evnout As Object, evnmailitem As Object, evn As Range
    For Each evn In Range("c2:c" & Rows.Count).SpecialCells(12).SpecialCells(2, 2)
        Set evnout = CreateObject("Outlook.Application")
        Set evnmailitem = evnout.CreateItem(0)
        With evnmailitem
            .SentOnBehalfOfName = "XXXXXXXXXr"
            .Subject = "Cari Hesap Bakiyesi hakkında."
            .To = evn.Offset(0, 1).Value
            .Cc = evn.Offset(0, 2).Value
            .Bcc = evn.Offset(0, 3).Value
            firma = evn.Value
            bakiye = Format((Cells(evn.Row, "h").Value), "#,##0")
            döviz = Cells(evn.Row, "g").Value
            metin = Cells(evn.Row, "ı").Value
            .htmlBody = "<size=9>Sayın;<b><br>" & firma & "<br><br>" & _
            "Cari hesabınız " & bakiye & " " & döviz & " borç bakiye vermektedir.   " & metin & " <br>" & _
            " <br>" & _
            "Ödemeleriniz için aşağıdaki hesap numaralarını dikkate alınız. <br>" & _
            "TL     - Garanti Bankası (269) Toptancılar Şubesi      TR02 XXXXXXXXXXX <br>" & _
            "USD    - Garanti Bankası (269) Toptancılar Şubesi      TR68 0006 2XXXXXXXXX 93 <br>" & _
            "EUR    - Garanti Bankası (269) Toptancılar Şubesi      TR81 000XXXXXXXX5 48 <br>" & _
            .Display ' Bu satırı silin. Kopmle silin, baştaki display ile birlikte...
            '.send ' bu satırın başındaki tek tırnağı silin.
            End With
    Next evn
    Set evnmailitem = Nothing: Set evnout = Nothing: Set evn = Nothing
End Sub[/SIZE][/FONT]

 

[herak_lion]

Murat Bey,
teşekkürler, ellerinize sağlık.

 

[Murat OSMA]

Rica ederim, iyi günler.​