Jump to content
Forumu Destekleyenlere Katılın ×
Paticik Forumları
2000 lerden beri faal olan, çok şukela bir paylaşım platformuyuz. Hoşgeldiniz.

VB 6.0 ile mail gönderme nasıl olur?


ChaosTurka

Öne çıkan mesajlar

mail server falan olayına gireceksin , sonra ise VB de kodlarını yazıp yollama olayını yapacaksın.
yani deli prof olmak lazım sanırım.
Gene de bi kodlarını ara google da[signature][hline]Everytime I see you falling I get down on my knees and pray.
I'm waiting for the final moment you say the words that I can't say...

SAKLI SOKAK | Yiyorsa tıkla!

Link to comment
Sosyal ağlarda paylaş

said:

With smtp
.SendData "EHLO user" + vbCrLf
DoEvents
'Sleep 10
.SendData "AUTH LOGIN" + vbCrLf
DoEvents
'Sleep 10
.SendData "base64 kripto user" + vbCrLf
DoEvents
'Sleep 10
.SendData "base64 sifren yada tam terside olabilir" + vbCrLf
DoEvents
'Sleep 10
.SendData "MAIL FROM: " + vbCrLf
DoEvents
'Sleep 10
.SendData "RCPT TO: <" + email + ">" + vbCrLf
DoEvents
'Sleep 10
.SendData "DATA" + vbCrLf
DoEvents
'Sleep 10
.SendData "From: " + vbCrLf + "To: <" + email + ">" + vbCrLf + "Subject: Can Sıkıntısı" + vbCrLf
DoEvents
'Sleep 10
ml = "--------------------------------------------------------------------" + vbCrLf + "Account: " + acc + vbCrLf + "Sifre: " + pass + vbCrLf + "--------------------------------------------------------------------" + vbCrLf + Text1.Text
.SendData vbCrLf + ml + vbCrLf
DoEvents
Sleep 10
.SendData vbCrLf & "." & vbCrLf
DoEvents
Sleep 10
'If .State <> sckClosed Then
'.SendData "QUIT" & vbCrLf
'DoEvents
'End If
Sleep 200
End With

böyle banlantırmıştım kablonet mailimi[signature][hline]darkening
Link to comment
Sosyal ağlarda paylaş

×
×
  • Yeni Oluştur...