Office 2013 makro sorunu

[goksel81]

Merhaba,

2010 Office kullanırken hazırlamış olduğum makronun mail göndermek için kullandığım kısmı 2013 office kullanmaya başladığımdan beri tam olarak çalışmıyor.

With OutMail
.To = "deneme@deneme.com"
.CC = "deneme@deneme.com"
.BCC = ""
.Subject = ActiveSheet.Range("J3")
.Attachments.Add ""
.HTMLBody = "Merhaba,"

Sorun sadece Subject bölümünde, Outlook açılıyor mail gönderilecek kişilerde geliyor ama konu için gösterdiğim J3 satırındaki bilgileri göstermiyor.Sorunun neden kaynaklandığı konusunda yardımcı olabilirseniz sevinirim.

 

[halit3]

Böyle denermisiniz.

.Subject =Range("J3").Value

yad böyle

.Subject = Worksheets(ActiveSheet.Name).Range("J3").Value

yada böyle

.Subject = Worksheets("Sayfa1").Range("J3").Value

 

[goksel81]

Teşekkür ederim, hepsi çalışıyor sorun çözüldü.