Email de konu kısmında yardım lütfen

[evren_01]

[vb:1:f925176825]
Addr = Array("xxxx@yahoo.com")
strdate = Format(Now - 1, "dd-mmmm-yyyy")
RAPORNO = Range("H1").Value

With dest
.SaveAs "" & ThisWorkbook.Name _
& " " & strdate & " " & RAPORNO & " .xls"
.SendMail "xxxxxx@yahoo.com", _
"GÜNLÜK STOK "
[/vb:1:f925176825]

Arkadaşlar burada sormak istediğim kısım email gönderirken konu kısmında günlük stok ve strdate nin görünmesini istiyorum yardımlarınızı bekliyorum

 

[bono]

Sorunuzu doğru anlayabildimmi bilmiyorum ama aşağıdaki kod yardımcı olur görüşündeyim

A2 veya başka bir hücreye aktarılmasını istediğiniz şeyi yazın. Buna ilave başka bir şey daha ekleyecekseniz benim aşağıda gösterdiğim A3 hücresine veya başka bir hücreye diğer şeyi yazın. Bu sayede istediğiniz herşey subject kısmında gösterilebilinir. Sadece bir hücre kullanılacaksa range ("A2") den sonra bir şey yazmayın.

.Subject = Range("A2") + " " + Range("BE1")

 

[evren_01]

Dostum teşekkür ederim fakat benim istediğim mail konu kımında GÜNLÜK STOK 15-08-2005 şeklinde bir yazının görünmesini isitiyorum

 

[bono]

bende bunu söylemek istemiştim. eğer belirleyeceğiniz bir hücreye (dosya içindeki ve sonradan bunu beyaza boyatıp görünmesini de engelleyebilirsiniz) istediğiniz şeyi yazıp yukarıdaki kodu kullanırsanız, her mail gönderişinizde sadece bu hücreyi değiştirerek konu kısmınıda kolaylıkla değişitirirsiniz. Veya raporun bir yerinde konuya yazılacak şey yer alıyorsa referans hücreyi orasınıda verebilirsiniz.

Ama sadece belli bir şey kullanacaksanız

.subject="GÜNLÜK STOK 15-08-2005"

kodunu kullanabilirsiniz

Bu işinize yaramazsa diğer arkadaşlardan yardım alabilirsiniz

 

[evren_01]

Dostum teşekkür ederim

Konuyu şu şekilde cözdüm kitabın adını günlük stok diye değiştirtim sonra

Addr = Array("xxxx@yahoo.com")
strdate = Format(Now - 1, "dd-mmmm-yyyy")
RAPORNO = Range("H1").Value

With dest
.SaveAs "" & ThisWorkbook.Name _
& " " & strdate & " " & RAPORNO & " .xls"
.SendMail "xxxxxx@yahoo.com", _
" & ThisWorkbook.Name _
& " " & strdate & "
olarak düzelttim bu şekilde calışıyor fakat sonundaki xls kafamı bozuyor neyse bunu bu şekilde hallettim

Genede cok teşekkür ederim ..

İşlerinizde başarılar dilerim ...

:icelim: :dua: ost: ost: :dua: :dua: :dua: :dua: :dua: :dua: :dua:

 

[bono]

hallettiğinize sevindim.

sizede iyi çalışmalar