Forum
Aktif konular
Üyeler
Kurallar
Arama
Tahribat.com Forumları 
Visual Basic - Basic - PicBasic ve Türevleri 
Vb.Net De Elımızdekı Bı Metını Maıle Gonderme ??? Vb.Net De Elımızdekı Bı Metını Maıle Gonderme ???
-
arkadaslar hazırlamakta oldugum bı programda bı asamadan sonra benım elıme bı metin gecıo ve ben bunun otomatık olarak 2-3 dk sonra maıl adresıne gonderılmesını ıstıorum. bunu vb de nasıl yapabılırım. yardımcı olabılır mısınız?
-
süre işini timer ile yapıcaksın,
mail işine gelince
http://www.google.com.tr/search?q=vb.net+mail+send&ie=utf-8&oe=utf-8&aq=t&rls=org.mozilla:tr:official&client=firefox-a
-
visual studio yok ama,
Dim mgonder As New Chilkat.MailMan()
mgonder.SmtpHost = "mail.tahribat.com"
Dim mail As New Chilkat.Email()
mail.Body = "höst"
mail.Subject = "can sıkıntısı"
mail.AddTo("mahmut tuncer", "mahmut@tuncer.com")
mail.From = "kamil test "
Dim a As Boolean
a = mgonder.SendEmail(mail)
If success Then
MessageBox.Show("E-Postanız Gönderildi Anam ! ")
Else
MessageBox.Show(mgonder.LastErrorText)
End If
şunu bi dene hocam olcak mı acaba ? notepadda bu kadar oluyor timer falan ekle ek olarak. -
YYaw Hacı chilkat kodu vermişsin ama eklentiyi vermemissin.Benim de vb.net te email gönderme sorunum var trojanım için.Bu işe kesin çözüm getirecek olan yok mu.
-
Nurky bunu yazdı:
-----------------------------
visual studio yok ama,
Dim mgonder As New Chilkat.MailMan()
mgonder.SmtpHost = "mail.tahribat.com"
Dim mail As New Chilkat.Email()
mail.Body = "höst"
mail.Subject = "can sıkıntısı"
mail.AddTo("mahmut tuncer", "mahmut@tuncer.com")
mail.From = "kamil test "
Dim a As Boolean
a = mgonder.SendEmail(mail)
If success Then
MessageBox.Show("E-Postanız Gönderildi Anam ! ")
Else
MessageBox.Show(mgonder.LastErrorText)
End If
şunu bi dene hocam olcak mı acaba ? notepadda bu kadar oluyor timer falan ekle ek olarak.
-----------------------------bu kod Chilkat Mail Ocx i olmadan calismaz...
Public Sub SendMail(SmtpServer As String, GondericiAdi As String, GondericiMail As String, Sifre As String, AlıcıMail As String, MailKonusu As String, Mesaj As String, Optional ZamanAsimi As Long = 15)
Const cdoAnonymous = 0
Const cdoBasic = 1
Const cdoNTLM = 2
Dim ObjMail
If Mesaj = "" Then Exit Sub
Set ObjMail = CreateObject("CDO.Message")
ObjMail.From = """" & GondericiAdi & """" & " <" & GondericiMail & ">"
ObjMail.To = AlıcıMail
ObjMail.Subject = MailKonusu
ObjMail.TextBody = Mesaj
Dim Yapi As String
Yapi = "http://schemas.microsoft.com/cdo/configuration/"
ObjMail.Configuration.Fields.Item(Yapi & "sendusing") = 2
ObjMail.Configuration.Fields.Item(Yapi & "smtpserver") = SmtpServer
ObjMail.Configuration.Fields.Item(Yapi & "smtpauthenticate") = 1
ObjMail.Configuration.Fields.Item(Yapi & "sendusername") = GondericiMail
ObjMail.Configuration.Fields.Item(Yapi & "sendpassword") = Sifre
ObjMail.Configuration.Fields.Item(Yapi & "smtpserverport") = 465
ObjMail.Configuration.Fields.Item(Yapi & "smtpusessl") = True
ObjMail.Configuration.Fields.Item(Yapi & "smtpconnectiontimeout") = ZamanAsimi
ObjMail.Configuration.Fields.Update
ObjMail.Send
SendMail_Err:
End Sub
' KULLANIMI
SendMail "smtp.gmail.com","gonderenadi","elitepacker@gmail.com","sifrenigir","seninadresin@gmail.com","konu","mesaj",15)
-
verruckt bunu yazdı:
-----------------------------
arkadaslar hazırlamakta oldugum bı programda bı asamadan sonra benım elıme bı metin gecıo ve ben bunun otomatık olarak 2-3 dk sonra maıl adresıne gonderılmesını ıstıorum. bunu vb de nasıl yapabılırım. yardımcı olabılır mısınız?
-----------------------------
bildiğin keylogger desene işte :D ayıplamıcaz ya :D
Kısayol
Şikayet
Özel Mesaj
Alıntı yap
Cevapla