Mail gönderme hakkında

[kaiserr76]

Merhaba,

Mail gönderme olarak kullanmaya çalıştığım aşağıdaki kodda

.Item.To = Cell(7, i) kısmında gönderilecek adresi G sütününda olan değeri nasıl getirebilirim.

i değeri döngüde hangi değeri alıyor ise G sütünündaki aynı satırda bulunan adrese mail göndermem gerekiyor.

Yardımcı olabilecek var mı ?

Dosya da ektedir.





.Private Sub mail_gonder_Click()

Dim aralik As Range
Dim satir_sayisi As Integer
Dim sayi As Integer
Dim i As Integer


Set aralik = Range("A:A")
satir_sayisi = Application.WorksheetFunction.CountA(aralik)

sayi = satir_sayisi

Do Until i = sayi
i = i + 1
ActiveSheet.Range("A" & i, "E" & i).Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Introduction = "This is a sample worksheet."
.Item.To = Cell(7, i)
.Item.Subject = "My subject"
.Item.Send
End With
Loop


End Sub


-----------------------------------------------------------------

.Item.To = Cell(7, i)

 

[askm]

.Item.To = Cells(i, 7)

 

[kaiserr76]

@askm teşekkurler.

İki sorum daha var yardımcı olabilir misiniz ?

1- aşağıdaki döngüde i değeri satır sayısına ulaşana kadar çalışıyor.
i değerinin 2 den başlamasını nasıl sağlarım ?

Do Until i = sayi
i = i + 1
ActiveSheet.Range("A" & i, "E" & i).Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Introduction = "This is a sample worksheet."
.Item.To = Cell(7, i)
.Item.Subject = "My subject"
.Item.Send
End With
Loop

2.Excel dosyasındaki satırları mail gönderirken sutun başlıklarını da göndermem gerekiyor.
bu konu ne yapabilirim yol gösterebilir misiniz ?

 

[o2l3m]

i = i + 2

@askm teşekkurler.

İki sorum daha var yardımcı olabilir misiniz ?

1- aşağıdaki döngüde i değeri satır sayısına ulaşana kadar çalışıyor.
i değerinin 2 den başlamasını nasıl sağlarım ?

Do Until i = sayi
i = i + 1
ActiveSheet.Range("A" & i, "E" & i).Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Introduction = "This is a sample worksheet."
.Item.To = Cell(7, i)
.Item.Subject = "My subject"
.Item.Send
End With
Loop

2.Excel dosyasındaki satırları mail gönderirken sutun başlıklarını da göndermem gerekiyor.
bu konu ne yapabilirim yol gösterebilir misiniz ?

 

[kaiserr76]

i=i+2 bu şekilde 2'den mi başlayacak yoksa değeri 2,2 artıracak

teşekkürler ilginize farklı bir şekilde düzenledim. Sütün başlıklarını kaldırarak çözüldü.