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üş...