Sayfa 1 deki kişilere mail gönderme

[yakup123]

arkadaşlar merhaba
ekteki dosyada sheet2 de bır tablo var burada bir tuş olsa ve basına bu kıtabı outlook maıle atsa ek olarak ve sheet 1 deki kişileride to kısmına girse istiyorum mümkünmüdür

 

[cenk e.]

Merhaba, şu anda kendi e-posta hesabımda oturum açma sıkıntısı yaşadığım için deneyemedim fakat ekteki dosya işinizi görür zannediyorum.

Sub kitapgonder()
Dim outapp As Object
Dim outmail As Object

For i = 2 To Sheets("Sheet1").Range("a65536").End(xlUp).Row

Set outapp = CreateObject("Outlook.Application")
Set outmail = outapp.CreateItem(0)
a = 2
With outmail
.To = Sheets("Sheet1").Cells(a, 1).Value
.CC = ""
.BCC = ""
.Subject = "Çalışma Kitabı"
.Body = ""
.Attachments.Add ThisWorkbook.FullName
.Send
a = a + 1
End With

Set outapp = Nothing
Set outmail = Nothing

Next


End Sub

 

[yakup123]

çok sağolun çalışıyor
saygılarımla

 

[cenk e.]

Rica ederim, işinizi gördüyse sevindim.