|
Registrieren
Login
Autor
LoveSecretGod_
Newbie
Anmeldedatum: 08.03.2008
Beiträge: 6
Wohnort: registry
text an email senden
Verfasst am: 03.04.2008, 16:23
hi
ich möchte gerne, dass die daten in textbox1 und textbox2 an eine hotmail adresse gesendet werden wenn ich auf Button1 klick.
Kann mir jemand mit dem Code helfen, bin neu
_________________
tr4st_
« Moderator »
Anmeldedatum: 17.12.2007
Beiträge: 315
Wohnort: Private Class _ Villa()
Verfasst am: 03.04.2008, 16:32
Du darfst auch ruhig alleine suchen, dir wird da niemand böse sein.
http://www.activevb.de/tipps/vb6tipps/tipp0051.html
_________________
Avoid Suspicion, Manipulate your friends, Eliminate your enemies.
LoveSecretGod_
Newbie
Anmeldedatum: 08.03.2008
Beiträge: 6
Wohnort: registry
Verfasst am: 03.04.2008, 17:01
sry ich dacht mir das keiner böse wird wenn ich das hier poste. naja
das sind ja 1000 seiten..
ist das nicht ein kleiner code?
kannst du den bitte zusammenfassen
_________________
tr4st_
« Moderator »
Anmeldedatum: 17.12.2007
Beiträge: 315
Wohnort: Private Class _ Villa()
Verfasst am: 03.04.2008, 17:13
Das ist die Funktion.
Code: Private Function SendMail(SMTP As String, FromName As String, _
FromMail As String, ToName As String, ToMail As String, Subj As String, _
Body As String) As Boolean
Dim Mail As String, outTO As String, outFR As String
If Mailing = True Then Exit Function
Mailing = True
MousePointer = vbHourglass
If Winsock1.State = sckClosed Then
On Error Goto ERRORMail
Winsock1.LocalPort = 0
outFR = "mail from: " & FromMail & vbCrLf
outTO = "rcpt to: " & ToMail & vbCrLf & "data" & vbCrLf
Mail = Mail & "From: " & FromName & " <" & FromMail & ">"
Mail = Mail & vbCrLf & "Date: " & Format(Date, "Ddd")
Mail = Mail & ", " & Format(Date, "dd Mmm YYYY") & " "
Mail = Mail & Format(Time, "hh:mm:ss") & " +0100" & vbCrLf
Mail = Mail & "X-Mailer: Visual Basic Mailing Tester"
Mail = Mail & vbCrLf & "To: " & ToName & " <" & ToMail & ">"
Mail = Mail & vbCrLf & "Subject: " & Subj & vbCrLf
Mail = Mail & vbCrLf & Body & vbCrLf & vbCrLf & "." & vbCrLf
'### Verbindung aufbauen
ShowStatus ("Verbinde...")
Winsock1.Protocol = sckTCPProtocol
Winsock1.RemoteHost = SMTP
Winsock1.RemotePort = 25
Winsock1.Connect
If Not Response("220") Then Goto ERRORMail
'### Verbunden
ShowStatus ("Verbunden")
Winsock1.SendData ("HELO " & Domain & vbCrLf)
If Not Response("250") Then Goto ERRORMail
'### Mail Senden
ShowStatus ("Nachricht Senden")
'UPDATE am 28. September 2002
Winsock1.SendData (outFR)
If Not Response("250") Then Goto ERRORMail
Winsock1.SendData (outTO)
If Not Response("250") Then Goto ERRORMail
Winsock1.SendData ("DATA" & vbCrLf)
If Not Response("354") Then Goto ERRORMail
Winsock1.SendData (Mail)
If Not Response("250") Then Goto ERRORMail
'UPDATE ENDE
'### Trennen
ShowStatus ("Trennen")
Winsock1.SendData ("quit" & vbCrLf)
If Not Response("221") Then Goto ERRORMail
ShowStatus ("Nachricht verschickt !")
SendMail = True
End If
ERRORMail:
Mailing = False
Winsock1.Close
MousePointer = vbDefault
Exit Function
End Function
_________________
Avoid Suspicion, Manipulate your friends, Eliminate your enemies.
Verwandte Themen
Aufrufe
Letzter Beitrag
[suche] Tuturials winsock & daten senden
868
09.06.2011, 12:19
Feedback: Text1 und Text2 sollen an email gesendet werden
1547
25.09.2008, 16:33
Daten an meine Homepage senden
840
26.05.2007, 20:11
VB daten kompilieren?
724
23.04.2007, 13:34
Daten in einen Ordner schreiben
806
25.03.2007, 13:12
