#1 12. Januar 2009 [VB] Email senden Hey, ich will für ein Radio eine art Feedback Formular machen, aber in einem Programm^^ Wie mache ich das was in Textbox1 steht zu einer bestimmten Email geschickt wird?? Sollte ohne Outlook sein. Hatte mal so einen Code aber der is weg, da musste ich 2 Emails eintragen. 1. Den sender mit Password. 2. Den Emüfänger ohne Password. =/ Könnt ihr mir vll helfen?^^ mfg GanonTC + Multi-Zitat Zitieren
#2 12. Januar 2009 AW: [VB] Email senden Schonmal damit versucht? E-Mails empfangen und senden mit VB und MAPI - Artikel von www.it-academy.cc - Verein f VB 5/6-Tipp 0051: E-Mails via Winsock versenden - ActiveVB + Multi-Zitat Zitieren
#3 12. Januar 2009 AW: [VB] Email senden Klar hab ich Google benutzt... Seit 16uhr suche ich... Zu Link 1. Das isn ganzes Email Programm, Ich will nur ein Formular^^ Zu Link 2. Code: Private Sub Command1_Click() If Mailing = False Then If SendMail(Text1.Text, Text2.Text, Text3.Text, Text4.Text, _ Text5.Text, Text6.Text, Text7.Text) Then Was soll das sein? LoL EDIT: Es sollte so sein wie dieses hier Code: Imports System.Net Imports System.Net.Mail Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click MessageBox.Show("Falsches Passwort, bitte korrigieren!") Dim text As String text = TextBox1.Text & TextBox2.Text Dim myClient As New Net.Mail.SmtpClient("smtp.web.de") myClient.Credentials = New NetworkCredential("EURE EMAILADRESSE 1", "EUER PASSWORT DAZU") myClient.Send("EURE EMAILADRESSE 1", "EURE EMAILADRESSE 2, AN DIE DAS PASSWORT GESCHICKT WERDEN SOLL", "Neue Mail", text) End Sub Nur halt für VB^^ + Multi-Zitat Zitieren
#4 12. Januar 2009 AW: [VB] Email senden Das zweite ist ein Code für .Net. Wenn du emails senden willst, solltest du dir mal Winsocks und das SMTP protokoll ansehen (ich gehe mal davon aus, dass du mit VB6 codest). Evt auch einfach mal nen Sniffer laufen lassen und schau wie das dein Email Programm macht. + Multi-Zitat Zitieren
#5 12. Januar 2009 AW: [VB] Email senden Kann mir nicht einfach wer den Code machen? =/ Brauche ja nur das wo ich die emails eintrage Will nur 2x Textbox haben Aus beiden textboxen soll alles geschickt werden wenn man auf nen button klickt =( EDIT: Oder wenns geht auch aufm FTP schicken, das was in der textbox steht^^ + Multi-Zitat Zitieren
#6 12. Januar 2009 AW: [VB] Email senden Ein Funktionsaufruf dieser 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 Steht doch alles da, die Parameter sind: Code: SMTP As String 'vermutlich der Server... FromName As String 'Absender-Name FromMail As String 'Absender E-Mail ToName As String 'Empfänger-Name ToMail As String 'Empfänger E-Mail Subj As String 'Betreff Body As String 'Inhalt Die Funktion rufst du halt dann mit den Werten aus deinen Textboxen auf. Ob sie funktioniert, is natürlich ne andere Frage + Multi-Zitat Zitieren
#7 12. Januar 2009 AW: [VB] Email senden Nunja, wenn das für Vb6 wär wäre es nice^^ + Multi-Zitat Zitieren
#9 12. Januar 2009 AW: [VB] Email senden Jup. Is VB6. Allerdings bezweifle ich, dass du damit erfolg hast, da der Code keinen Auth hat, wird nahezu jeder SMTP Server mittlerweile vorraus setzten. Musste halt noch integrieren (WIki hilft hier, such mal nach SMTP-Auth) PS: Was meinst du damit? FTP Upload? Auch dazu gibts genug beispiele per google. Wenn du jemanden suchst, der dir das schreibt, schreib ne anfrage im "ich such programmierer Thread" + Multi-Zitat Zitieren