Vb ile Mail Yollamak Yardım!! - Baskı Önizleme +- 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
|
Cvp: Vb ile Mail Yollamak Yardım!! - RoxorLoops - 30/01/2010 sayın maytas kodlar için tekrar teşekkürler fakat ben size isteğimi tam anlatamadım galiba.Örnegin bir metinkutusuna ahmet yazdım bu ahmet benim mailime otomatik gelecek yani benim mailimi yazacagım ne yazarsam yazaym butona bastıgım zaman mailime metin kutusuna yazılan şey gelicek.Umarım anlatabilmişimdir.İlginiz için teşekkürler tekrardan... Birde sayın maytas verdiginiz kodları kendime uyarladım ancak smptp servere ne gibi bişeyler yapmam gerekiyor 1-2 tane buldum ancak programı çalıştırdıgım zaman send komutunda hata veriyor sunucuya bağlanmadı gibisinden. Cvp: Vb ile Mail Yollamak Yardım!! - maytas - 31/01/2010 (30/01/2010, 21:15)RoxorLoops yazdı: sayın maytas kodlar için tekrar teşekkürler fakat ben size isteğimi tam anlatamadım galiba.Örnegin bir metinkutusuna ahmet yazdım bu ahmet benim mailime otomatik gelecek yani benim mailimi yazacagım ne yazarsam yazaym butona bastıgım zaman mailime metin kutusuna yazılan şey gelicek.Umarım anlatabilmişimdir.İlginiz için teşekkürler tekrardan... 1. Verdiğim kodlar da tam bu isteğinize yönelik. Kendinize uyarlayabilirsiniz. 2. Üstte de belirtmiştim. Popup desteği veren bir email kullanmalısınız, ki bunlar genelde ücretli olur. Ancak gmail ücretsiz olmasına rağmen böyle bir hizmet veriyor. Gmailden bir mail hesabı alnı ve onun serverini kullanarak mail gönderin. Yalnız gmail hesabınızda yapmanız gereken küçük bir ayar var. Hesabınıza girin. Ayarlar=> Yönlendirme ve POP/Imap => Pop indirme => Pop Etkinleştir, Değişiklikleri Kaydet. Artık bilgilieri doğru girdiğinizde Send komutunda hata vermemesi lazım. Kodları bir daha veriyorum: Sub SendMail() 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 .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "kullaniciadi@gmail.com" 'buraya gmail kullanıcı adınızı yazın .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "Şifre" 'buraya gmail posta hesabınızın şifresini girin .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com" .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 .Update End With Mesaj = TextBox1.Text ' Bu kod sizin isteğinize yönelik işte With Mail Set .Configuration = Bicim .To = "alacak mail [email protected]" ' Buraya alacak mail adresi girin .CC = "" .BCC = "" .From = "gönderen mail [email protected]" ' Buraya gönderenin mail adresini girin .Subject = "Merhaba!!!" .TextBody = Mesaj .Send End With End Sub |