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.

(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...

---

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.

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