Makroyla email gonderme

[Haluk]

Evet.... ben de ona benzer bir şey diyecektim ....

Aşağıdaki kırmızı renkli ilaveyi yapın.

[vb:1:4a4474abd7] With WB
.SendMail "raider@hotmail.com", Format(Now, "dd.mm.yyyy")
.SendMail "billgates@hotmail.com", Format(Now, "dd.mm.yyyy")
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close False
End With
[/vb:1:4a4474abd7]

 

[galkan]

Merhaba Arkadaslar,

Çalıştığım şirkette santral operatörü olan arkadaşımız
aranan kişilerin yerinde olmadığı durumlarda onlara
mail ile not bırakmak istediğini bununla ilgili benden
bir excel programı istemişti.

Þirketimizde yabancılarda çalıştığı için ingilizce mesajda bırakması
gerektiğini söylemişti. Açıkçası benim fazlaca bir ingilizcem olmadığı için Programın ingilizce çevrimleri tam yapılmadı.

Ã?ncelikle VBA'da Tools/References'inde
Microsoft Outlook x.0 Object Library
seçeneğini seçmiş olmanız gerekir.

Programda dikkat etmeniz gereken diğer bir konu ise
kodlarda bulunan mail göndereceğiniz kişi adlarını girmek.

Gerekli yerleri doldurduktan sonra kendi kendinize bir
mail atıp gelen maili görebilirsiniz.

Bu arada MsOutlook'un açık olması lazım.

Hazırladığım dosya ektedir.

Umarım birilerinin işine yarar
Ã?rnek olsun diye gönderiyorum.

Bu programı hazırlarken forumdan çok yararlandım.
Emeği geçen arkadaşlara bu vesile ile tekrar teşekkür
ederim.

 

[turkanet]

SN RAIDER, SAYENİZDE BAÞARDIM. TEK KELİME İLE MÜKEMMELSİNİZ.
MİNNETTARIM.
:bravo: :bravo: :bravo: :bravo: :bravo: :bravo: :bravo: :bravo:
:dua: :dua: :dua: :dua: :dua: :dua: :dua: :dua: :dua: :dua:

 

[Haluk]

Rica ederim. Kolay gelsin .... :keyif:

 

[TRABLUS]

@Raider,
:mrgreen:

.SendMail "billgates@hotmail.com", Format(Now, "dd.mm.yyyy")

Billgates ha, harika, o da bu maili bekliyordu günlerdir.
Bu arada herşey çok güzel, elinize sağlık.

 

[turkanet]

 

[Kavram]

Merhaba,
e-mail sheet4.zip dosyasında mail gönderilecek adresi bir excel hücresinden almamız mümkün olabilir mi?

 

[F1]

Mümkün tabiki, ama bu soruyu sordunuza göre bence Excel VBA yı temelden başlayarak öğrenmenisi tavsiye ederim.

 

[Kavram]

Ã?ğrenmeye çalışıyorum, ancak acil olarak yardıma ihtiyacım var. Daha çok kayıt yolu ile makrolar hazırladığım bir dosyam var. Bu dosyaya bir buton koymak istiyorum. Butona bastığımda yan yana hücrelerde yer alan mail adreslerine dosyamdaki bir sayfayı attachment olarak göndersin istiyorum. Yardımcı olursanız sevinirim. Teşekkürler.

 

[F1]

Ã?rneklerde parantez içinde mail adresleri yazıyor
.SendMail "xxx@yyy.com" gibi

onun yerine hücre adresi yazmanız lazım,
adresiniz A1 de ise mesela
.SendMail Cells(1,1)
yada Cells(1,"A") yada range("A1") yada [A1] gibi

 

[Kavram]

teşekkür ederim.

 

[turkanet]

Sn.Haluk'un

E-Mail-Sheet4.zip

dosyasıyla yaptığım çalışmamı, excelimi xp'den 2003'e yükseltince kullanamaz oldum. şimdi mail göndermek için butona bastığımda;

run time error 1004,
method 'send mail' of object '_workbook' failed

hatasını veriyor. ve debug tuşuna bastığımda, sendmail satırını işaretlemiş oluyor. sizce hata nerede?

teşekkürler...

 

[turkanet]

yardıma ihtiyacım var :dua: :yardim:

 

[turkanet]

arkadaşlar, bilen varsa lütfen yardım etsin. gerçekten önemli benim için :dua: :dua: :dua: :dua: :dua: :dua:

 

[Haluk]

Benim bir fikrim yok .... çalışması lazım.

Ama kodları değiştirdiyseniz, problem olabilir.

Kullandığınız dosyayı ekleyin, bir bakalım...

 

[galkan]

VBA
Tools/References sekmesinde
Microsoft Outlook 10.0 Object Library
Seçilmişmi? Seçili değilse seçip tekrar bir deneyin.

 

[uzmyrd]

Arkadaşlar, mail gönderme işini outlook express ile de yapabiliyor muyuz?

 

[Haluk]

Arkadaşlar, mail gönderme işini outlook express ile de yapabiliyor muyuz?

Bu mesaj başlığı tam olarak 8 sayfa uzunluğunda ve içinde çeşitli örnekler var. İncelediniz mi ?

 

[turkanet]

işte belge bu. TEÞEKKÜRLER

 

[turkanet]

OUTLOOK EXPRESS KULLANIYORUM