Mail gönderme

[medalof]

Öncelikle çok özür dileyerek başlıyorum çünkü bu konuda sevgili uzmanlarımız bir çok cevab vermiş hepsini denedim fakat bir türlü beceremedim.Yardımlarınızı rica ediyorum.
Sayfa1 deki 2.satırdaki A-D Sütunundaki bilgileri sayfa2 a1 hücresinde bulunan konuyu ekleyerek sayfa1 e hücresinde bulunan ilgili mail adreslerine göndermek istiyorum.Normalde mail göndermek için outlook 2007 kullanıyorum.mail hesap bilgilerini(smtp,pop) biliyorum.
Yani sayfa1 deki bilgleri sayfa 2 deki konu ile ek olarak değil yazılı olarak yazıp e hücrelerindeki mail adreslerine göndermek istiyorum her mail adresi bulundağu satır ile ilgili yani herkese aynı konu gidicek ama bilgi olarak bulunduğu satır gidicek.
Saygılarımla.

 

[medalof]

satırda boşluk görene kadar yani tüm listeyi bitirene kadar mailleri ilgililere gönderirs,birde göndermediğinde gönderemedim derse çok sevinirim.(çok şey istiyorum ama olursa çok rahatlayacağım yüzlerce maili tek tek kopyala yapıştır günüm bunla geçiyor.
Saygılar

 

[Necdet]

Merhaba,

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz.

Outlook Expres ile gönderilir.

Sub Mail_Gonder()
' Ron de Bruin
    Dim Aciklama    As String
    Dim Alici       As String
    Dim Msg         As String
    Dim i           As Long
    Dim Hlink
    
    Aciklama = Sheets("Sayfa2").Range("a1")
    For i = 2 To Cells(Rows.Count, "A").End(3).Row
        Alici = Cells(i, "E")
        Msg = "%0A"
        Msg = Msg & "Sayın " & Cells(i, "A") & "%0A"
        Msg = Msg & "Vergi Numarası : " & Format(Cells(i, "B"), "0000000000") & "%0A"
        Msg = Msg & "InvoiceCount : " & Cells(i, "C") & "%0A"
        Msg = Msg & "Net Tutar : " & Format(Cells(i, "D"), "#,###.00")
        
        Hlink = "mailto:" & Alici & "?"
        Hlink = Hlink & "subject=" & Aciklama & "&"
        Hlink = Hlink & "body=" & Msg
        ActiveWorkbook.FollowHyperlink (Hlink)
        Application.Wait (Now + TimeValue("0:00:02"))
        SendKeys "%s", True
        
    Next i
End Sub

 

[medalof]

Necdet bey ne desem bilmiyorum.Çok çok teşekkür ederim beni büyük bir yükten kurtadınız süper çalışyor.Bana kalan sadece gönder butonuna basmak.Çok çok sağolun.

 

[LCANER]

arkadaşım dosyayı eklermisin lütfen bakalım belki bizde kullanırız.

 

[Necdet]

arkadaşım dosyayı eklermisin lütfen bakalım belki bizde kullanırız.

Merhaba,

Dosya 1. kodlar 3. mesajda.

E bir zahmet birleştiriverin.

 

[LCANER]

Merhaba,

Dosya 1. kodlar 3. mesajda.

E bir zahmet birleştiriverin.

hocam ben size dememiştim konunun sahibi arkadaşa demiştim ben tam bilmiyorumda ancak kopya çekiyorum o yüzden.

 

[Necdet]

hocam ben size dememiştim konunun sahibi arkadaşa demiştim ben tam bilmiyorumda ancak kopya çekiyorum o yüzden.

Forumda vba kodlarının nereye yazılması gerektiğini anlatan pek çok resimli örnek var. Onları incelerseniz yararlı olur.