Favorilerine Ekle | Giriş Sayfan Yap | Tavsiye Et

 

Kurs Tanıtım Sayfası | Süper Üye Kimdir? | Menü Tasarımı Konulu Örnek Ders
Kod İndir| Hazır Kodlar | Makaleler| İpuçları | VB .NET Kursu | Dersler | Forum | Alt Bölümler | Servisler
    Merhaba Misafir
    anasayfa » visual basic makaleleri » E-mail Gönderme
Üye Girişi
Kullanıcı Adı:  
Şifre : 
Kaydet ?
Siteden tam olarak faydalanabilmek için üye olmalısınız.
Unuttuğunuz şifrenizi öğrenebilmek için kayıt sırasında verdiğiniz Hatırlatma Cevabı'nı bilmeniz gereklidir.
Şifre hatırlatma işlevini sadece 3 defa kullanma hakkınız vardır.
Kullanıcı adını ve şifresini unutan üyelere email ile yardım verilmez.

Aktivasyon Gelmedi mi?Aktivasyon mesajınız email adresinize gelmedi mi?
Buraya tıklayarak bir kez daha aktivasyon mesajı gönderilmesini sağlayabilirsiniz.
Lütfen email hesabınızın BULK ve SPAM klasörlerini de kontrol ediniz.
Rastgele Makale

Exe Dosyası İçine Dosya Gömmek ve Ona Ulaşmak

Yazar: Fatihavcı

Webmasterlar
Sitenize Ekleyin!
Sitenizde "Son Eklenen 10 Visual Basic Yazısı"'nı göstermek ve içeriğini zenginleştirmek için buraya tıklayınız.

Vbasicmaster.com'a link verin!
Aşağıdaki minik banneri sitenize eklemek için tıklayın!

Üye Sayısı:
Ziyaretçiler nerede?
Yayın № : 2642
Yayın Tar:05.04.2005
Yazar : onder2004
Hit :4261

Bu Yazarın Yazıları Sadece bu yazarın  göster
Bu Yazıyı Tavsiye Et

Şu anda sanırım Internet'te en çok kullanılan e-mail bileşeni CDONTS (Collaboration Data Objects for Windows NT® Server)'dır. Sanırım 1.2 sürümünde ve gerçekten e-mail yollamak için ideal bir bileşen. Bu bileşenin bu kadar çok kullanılmasındaki en büyük etken; IIS ile birlikte varsayılan olarak kurulmasındadır. Eğer sunucunuzda Internet Explorer 4.0 ve IIS 4.0 kuruluysa, CDONTS'u kullanmamanız için hiçbir engel yok (tabi bedava sunucularda durum farklı her zamanki gibi).

Hemen bu bileşenle nasıl e-mail gönderileceğine bakalım.

Set Mail = Server.CreateObject("CDONTS.NewMail")
Mail.From = "BizimEmailAdresimiz@bizimsunucu.com"
Mail.To = "KimeGidecek@onunsunucusu.com"
Mail.Subject = "Email Konumuzun Başlığı"
Mail.Body = "Email mesajımız."
Mail.Send
Set Mail = Nothing
Yukarıdaki kodları inceleyelim. İlk olarak her zamanki gibi nesnemizi oluşturmakla başladık işe.
Set Mail = Server.CreateObject("CDONTS.NewMail")

Bu şekilde sunucumuzda CDONTS nesnesini oluşturduk. Bundan sonra bu nesnenin önceden tanımlı özelliklerini kullanarak mesajımızı istediğimiz kişiye iletebiliriz.

İlk önce kendi e-mail adresimizi giriyoruz,
Mail.From = "BizimEmailAdresimiz@bizimsunucu.com"

Burada BizimEmailAdresimiz@bizimsunucu.com yazan yere kendi e-mail adresimizi yazacağız. Örneğin;
Mail.From = "iam@home.com"

Daha sonra bu mesajın kime gideceğini de belirliyoruz.
Mail.To = "KimeGidecek@onunsunucusu.com"

Buradaki KimeGidecek@onunsunucusu.com yazan yere ise, e-mail'i göndermek istediğiniz kişinin e-mail adresini yazacağız.

Sıra geldi e-mail'in konusunu yazmaya. Malum, hiçbir e-mail konusuz olmaz (ya da olmamalı). Mesajı alan kişiye, mesaj hakkında ufak bir açıklama yazmak gerekir, değil mi?
Mail.Subject = "Email Konumuzun Başlığı"

Konuyu yazdıktan sonra mesajımızı girebiliriz artık.
Mail.Body = "Email mesajımız."

Burada dikkat etmeniz gereken bir nokta var. Diyelim ki, mesajımız bir kaç satır. Bu mesajı yollamak için şu şekilde yapabiliriz;
mesaj = "Bu birinci satır." & VbCrLf
mesaj = mesaj & "Bu ikinci satır." & VbCrLf
mesaj = mesaj & "Bu üçüncü satır." & VbCrLf
mesaj = mesaj & "Bu da son satır."
Mail.Body = mesaj

Tüm bunları yaptıktan sonra mesajımızı güvenle yollayabiliriz
Mail.Send

İşimiz bittiğinde de nesnemizi kapatmayı unutmayalım




Yorumlar, eklemeler ve düşünceler
        saol kardes eline sağlık .
ben böyle anlayamadım sen bunun proje halini zipleyip ugurpc@gmail.com a yollarmısın.

   ugur_yil, 19.01.2006 00:09
   BUNUN İÇİN GALİBA CDONTS.DLL OLMASI GEREKİYO BEN BUNU ALDIM REG ETTİM. FAKAT cant create object error 429 hatası veriyo send kısmına gelince kod duruyo bunun sebebi ne olabilir hazır bi kod varsa bana yollayabilirmisin bide onla deniyim yada çözüm nedir? teşekkürler

   erenbalta, 20.03.2006 19:43
   Bende Object Required Hatası Veriyor :S Nasıl Duzeltcez?

   mhsm, 25.07.2010 17:21
   Merhabalar, Benim bir sorum olacak size bu konu ile ilgili...

Excell'de Kopyaladığım alanın Mail'e yapıştırılmasını istiyorum.
Bunun için şunları yaptım:

'Sipariş formunda 4. satırdan 100. satıra kadar taranıyor
'33. kolondaki hiç sipariş girilmemiş olan satıra kadar işaretleniyor
'oraya kadar olan alan Kopyalanıyor.
For i = 4 To 100
If Cells(i, 33) > 0 Then x = i + 1
Next i

Range(Cells(3, 29), Cells(x - 1, 36)).Select
Selection.Copy

'Bu kopyaladığım alanı Body bölümünde nasıl yerleştirmem gerekiyor ki otomatik olarak yapıştırsın oraya?

With Mail_Ogesi
.Recipients.Add ("ahmet@market.com.tr")
.Subject = "Firmamızın Siparişidir"
.Body = ?????????
.Send
End With


Yardımlarınız için şimdiden Teşekkürler...

   FIRAT28, 12.05.2011 16:02
© Hakan Ersöz 2000-2013| Üyelik Sözleşmesi | | Ödeme Bildirimi
Sitemizden yenilikleri hemen öğrenin, pop upları engelleyin, chat yapın... ToolBarımızı indirin:
Vasicmaster Toolbar'ı indirin