Hücreye hazılan Değere göre mail attırma

[engineer1993]

Arkadaşlar Merhaba,
Bir excel dosyam mevcut, otomatik mail attırıyorum fakat şuan ben ayrı ayrı olarak bir hücresine yazdığım mail adresine mail atmak istiyorum, mümkün müdür?

Örnek olarak to ya mail adresini yazmak yerine D5 hücresine herhangi bir mail adresi yazınca o mail atmasını istiyorum olabilir mi? Nasıl güncelleyebiliriz?
VB yeni başladıığım için destek olursanız çok sevinirim.



Sub Email_CurrentWorkBook()
Dim Makro As Object
Dim Mail As Object
Set Makro = CreateObject("Outlook.Application")
Set Mail = Makro.CreateItem(0)
On Error Resume Next
With Mail
.To .Cell(D2)
.CC = ""
.BCC = ""
.Subject = ""
.Body = "."
.Attachments.Add ActiveWorkbook.FullName
.Send
MsgBox "."
End With
On Error GoTo 0
Set Mail = Nothing
Set Makro = Nothing
End Sub

 

[Necdet]

Merhaba,

Forum kuralları gereği, soru başlığınız sorunuzu özetleyecek şekilde olmalı. Lütfen değiştiriniz. Hiç kimse aramalarda "Destek Acil" diye bir arama yapmaz.

 

[engineer1993]

Merhaba Necdet Bey, düzelttim. Uyarınız için teşekkür ederim.