+- AccessTr.neT (https://accesstr.net)
+-- Forum: Visual Basic 6 (https://accesstr.net/forum-visual-basic-6.html)
+--- Forum: Visual Basic 6 Cevaplanmış Soruları (https://accesstr.net/forum-visual-basic-6-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Vb ile Mail Yollamak Yardım!! (/konu-vb-ile-mail-yollamak-yardim.html)
Sayfalar:
1
2
Vb ile Mail Yollamak Yardım!! - RoxorLoops - 29/01/2010
Arkadaşlar Bir textboxa girilen veriyi buton yardımıyla mail adresime yollamak istiyorum.Nasıl yapacağım konusunda bir fikrim yok.Yardımlarınızı bekliyorum.[/font]
Cvp: Vb ile Mail Yollamak Yardım!! - maytas - 29/01/2010
Merhaba.
VB6 mı, VB.Net mi?
Ayrıca metin kutusundaki veriyi mesaj olarak mı göndermek istiyorsunuz?
Cvp: Vb ile Mail Yollamak Yardım!! - RoxorLoops - 29/01/2010
evet textboxa girilen veriyi mesaj olarak mail adresime göndermek istiyorm vb.net kullanıyorm.
Cvp: Vb ile Mail Yollamak Yardım!! - maytas - 30/01/2010
Merhaba.
VB6 olsaydı hemen cevaplardım, ama VB.Net'e daha yeni geçmeye çalışıyorum ve dediğinizi yapabilecek bilgiye henüz sahip değilim.
Cvp: Vb ile Mail Yollamak Yardım!! - RoxorLoops - 30/01/2010
Sayın maytas teşekkürler ilginiz için rica etsem vb6 da vereceğiniz cevabı yazabilirimisiniz.
Cvp: Vb ile Mail Yollamak Yardım!! - maytas - 30/01/2010
Merhaba.
Tek tek okuyarak gerekli yerlerde ilgili değişiklikleri yapın.
Yalnız bunun için popup desteği olan mail adresi kullanmalısınız. Gmail böyle bir hizmet veriyor.
Kod:
Dim Mail As Object
Dim Bicim As Object
Dim Mesaj As String
Dim Alan As Variant
Set Mail = CreateObject("CDO.Message")
Set Bicim = CreateObject("CDO.Configuration")
Bicim.Load -1
Set Alan = Bicim.Fields
With Alan
' .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True 'gmail gibi sunuculara bu da gerekir.
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "serveradı"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "Kullanıcı Adı"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "Şifre"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Update
End With
Mesaj = Textbox1.Text
With Mail
Set .Configuration = Bicim
.To = "alacakmailadresi"
.CC = ""
.BCC = ""
.From = """Adı Soyadı"" <gönderen mail adresi>"
.Subject = "Merhaba!!!"
.TextBody = Mesaj
.Send
End With