29/01/2010, 19:59
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]
Sayfalar: 1 2
29/01/2010, 19:59
29/01/2010, 20:37
Merhaba.
VB6 mı, VB.Net mi?
Ayrıca metin kutusundaki veriyi mesaj olarak mı göndermek istiyorsunuz?
VB6 mı, VB.Net mi?
Ayrıca metin kutusundaki veriyi mesaj olarak mı göndermek istiyorsunuz?
29/01/2010, 22:53
evet textboxa girilen veriyi mesaj olarak mail adresime göndermek istiyorm vb.net kullanıyorm.
30/01/2010, 02:41
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.
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.
30/01/2010, 13:46
Sayın maytas teşekkürler ilginiz için rica etsem vb6 da vereceğiniz cevabı yazabilirimisiniz.
30/01/2010, 14:26
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.
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 WithSayfalar: 1 2