Yani eğer o kadar da olmasa yaşıma göre çok iyi olduğumu düşünüyorum.Söylermisin lütfen ben ne yanlış yaptım yani bir soru sordum diye çakma programcı mı oldum yoksa sen microsoftdamı çalışıyorsun eğer çalışmıyorsan demekki sende kaliteli bir programcı değilsin...

Muhterem bak şimdi ilk mesajını bir oku ondan sonra 5. mesajdaki yazını oku. "bir soru sordum diye çakma programcı mı oldum" elbette bundan dolayı olmadın soru soran insanlar akıllı insanlardır çok önemlidir soru sormak ancak hiç oturup Google'da yazdınmı araştırdın mı? Araştırdıysan ne gibi bir sonuç elde ettin. Orada denilenlerin hangilerini ne şekilde yaptın örneğin nerede? Örneğinde hata mesajı aldın mı? Hata mesajı almadın ancak gönderdiğin mail adrese mi gitmedi? Araştırdığın yerlerdeki yazılar İngilizce olduğundan anlayamadıysan onları buraya yazdında burada ne demek istiyor anlayamadımmı dedin?

Bizim istediğimiz ve sevdiğimiz profil bu şekilde çünkü bu şekilde yazan kullanıcılar bizim kendimizi zorlayıp daha iyi bir şeyler yapmamızı sağlıyor. Diğer türlü bizde rahatlığa alışıp kendimizi salıyoruz. Umarım kendimi ifade etmeyi başarabilmişimdir. Sen kırılma alınma ancak sende kendini kolaycılığa alıştırma ilerisi adına senin için çok daha iyi olur.

Tmm Sayın Alpeki;
İşte benim yaptığım ve üzerinde uzun süredir çalıştığım programın ekini gönderiyorum aldığım hatayı falan gönderiyorum ne gibi bir hatam var,nerede yanlış yaptığımı söylerseniz çok mutlu olurum çünkü bu benim için çok önemli bir konu...Yardımlarınız için ve ilgilendiğin için şimdiden teşekkürler...

Option Explicit 

Private Response As String 



Sub SendEmail(ServerDomain As String, FromEmail As String, ToEmail As String, Subject As String, Body As String ) 



w.LocalPort = 0 



If w.State <> sckClosed Then w.Close 



w.Protocol = sckTCPProtocol 

w.RemoteHost = ServerDomain 

w.RemotePort = 25 

w.Connect 



WaitForResponse ("220" ) 



w.SendData "HELO " & ServerDomain & vbCrLf 

WaitForResponse ("250" ) 



w.SendData "MAIL FROM: <" & FromEmail & ">" & vbCrLf 

WaitForResponse ("250" ) 'wait for response 



w.SendData "RCPT TO: <" & ToEmail & ">" & vbCrLf 

WaitForResponse ("250" ) 'wait for response 



w.SendData ("data" & vbCrLf ) 



WaitForResponse ("354" ) 

w.SendData "From: " & FromEmail & vbCrLf 

w.SendData "X-Mailer: BASTON SMTP Mailer" & vbCrLf 

w.SendData "To: " & ToEmail & vbCrLf 

w.SendData "Subject: " & Subject & vbCrLf 



w.SendData Body & vbCrLf 



w.SendData "." & vbCrLf 

WaitForResponse ("250" ) 



w.SendData "quit" & vbCrLf 

WaitForResponse ("221" ) 



w.Close 

MsgBox "Mesajınız başarıyla gönderildi.", vbExclamation, "Mesajını Gönderildi." 

End Sub 

Sub WaitForResponse(ResponseCode As String ) 

Dim Reply As Integer 

Dim Start As Single 

Dim Tmr As Single 

Start = Timer 

While Len(Response ) = 0 

Tmr = Start - Timer 

DoEvents 

If Tmr > 10 Then 

MsgBox "Hata:" + vbCrLf + "İşlem zamanaşımına uğradı!", vbExclamation, "İşlem Başarısız" 

Exit Sub 

End If 

Wend 

While Left(Response, 3 ) <> ResponseCode 

DoEvents 

If Tmr > 10 Then 

MsgBox "Hata:" + vbCrLf + "Geçersiz bir yanıt alındı: " + Response + vbCrLf + "Expected code: " + ResponseCode, vbExclamation, "İşlem Başarısız." 

Exit Sub 

End If 

Wend 

Response = "" 

End Sub 

Private Sub cmdExit_Click( ) 

Unload Me 

End 

End Sub 

Private Sub cmdSend_Click( ) 

SendEmail txtServerDomain, txtFromEmail, txtToEmail, txtSubject, txtMessage 

End Sub 

Private Sub w_DataArrival(ByVal bytesTotal As Long ) 

w.GetData Response 

End Sub 

---

'// Programın başına aşağıdaki satırı ekleyerek System.Net namespace'i ekleyin 

Imports System.Net.Mail 



'// Programınıza bir buton ekleyerek onClick olayına aşağıdaki kodları yapıştırın 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs ) Handles Button1.Click 



 Dim strGonderen As New MailAddress("[email protected]", "Gönderici Adı" ) 

 Dim strAlici As New MailAddress("[email protected]", "Alıcı Adı" ) 

 Dim mailMsg As New MailMessage(strGonderen, strAlici ) 



 With mailMsg 

 .Subject = "Konu" 

 .Body = "E-posta metni" 

 .IsBodyHtml = True '// Mesaj Html mi, değil mi? True veya False 

 End With 



 Try 

 Dim client As New SmtpClient("smtp.site.com" ) 

 client.Send(mailMsg ) 

 Catch 

 End Try 



 MsgBox("E-Posta gönderildi.", MsgBoxStyle.Information, "E-Posta Gönder" ) 



End Sub

.

Birde bu kodları denermisin

Sayın DUAYEN Abim size çok teşekkür ederim ilginizden dolayı ama bir sorun var olmuyor posta gönderme hatası var diyor.Sizce bu ne ile alakalı bir durum olabilir... Bir bak istersen bende böyle bir hata verdi ek de mevcuttur.Abim hatanın neden kaynaklandığını söylersen çok iyi olur

SAYIN DUAYEN ABİM;
Bi yardım ettin yarıda bıraktın verdiğin kodlar çalışmadı hata veriyor.Ben anladım ki hiç kimse birbirine yardım etmiyor.Bir soru sordum birisi çıkıpta doğru dürüst yardım etmedi.Malesef(üzülerek) söylüyorum ki insanlık ölmüş...