von textbox zur E-mail

LycaN · 5. Januar 2009, 12:19

hi erstmal an alle , hab mich noch nicht vorgestellt , nun ich hab mich seit ca 1 jahr entschlossen in meiner Freizeit mir das coden bei zubringen in sachen C#,C++,Vb nuzn ab und zu hab ich halt ein paar fragen und da denke ich mir da bin ich hier gut aufgehoben

Nun meine Frage:

Ich hab da ein broblem bin die ganze zeit am googlen , nun mein broblem liegt darin wie ich von textbox einem E-mail versand hinbekomme.

beispiel : eingabe in die Textbox, erstellen der textdatei zur E-mail.

ich hoffe ich hab mich gut ausgedrückt?!?

mfg

LycaN

Ps:hab noch en Beispiel gemacht: rapidshare.de/files/41279770/beispiel.exe.html

milaim · 5. Januar 2009, 12:46

Hi, vlt. kann dir dieser Beitrag was helfen

[VB 2008] Inhalt der Textbox an E-Mailadresse schicken.

LycaN · 5. Januar 2009, 13:15

hmm nee hilft mir auch nicht wirklich weiter dh das ich mich noch nicht so in vb8 auskenne hab mal versucht die codes reinzuschreiben in vb8 hmm hat auch net gefunzt!

boar bin am verzweifeln

kevin89 · 5. Januar 2009, 13:34

Willst du die Mail direkt schicken oder reicht es wenn sich das Standartemailprogramm (zb Outlook) öffnet, wo Empfänger usw schon eingetragen sind?

LycaN · 5. Januar 2009, 17:18

möchte wie das Beispielprogramm schon sagt die Mail direkt schicken über smpt server,smpt server eingebaut in dem Programm(sprich:1Host adresse mit Passwort,smpt server z.b web.de un 2 host adresse )

LycaN

mottzi · 5. Januar 2009, 19:41

Hallo.

Ich habe hier eine Lösung für VB 2008, sollte aber auch bei dir gehen.

So, du brauche 1 Textbox namens "textbox1" und einen Button namens "button1".

Füge nun disen Code ein. (Vergiss aber nicht, ihn für dich anzupassen!!!)

Visual Basic-Quellcode

Imports System.Net.Mail
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Mymailmessage As New MailMessage()
Try
Mymailmessage.From = New MailAddress("Email Schickeraddresse") ' Muss für diesen Code von gmail.com sein
Mymailmessage.To.Add("E-Mail Empfänger") 'deine emailadresse
Mymailmessage.Subject = TextBox1.Text
Mymailmessage.Body = TextBox1.Text
Dim SMTP As New SmtpClient("smtp.gmail.com")
SMTP.Port = 587
SMTP.EnableSsl = True
SMTP.Credentials = New System.Net.NetworkCredential("Deine Gmail adresse", "Gmailpasswort") 'gmailaddresse und passwort
SMTP.Send(Mymailmessage)
TextBox2.Text = ""
MsgBox("Erfolgreich gesendet!")
Catch ex As Exception
End Try
End Sub
End Class

Überall wo es einen kommentar hat, gibt es etwas von dir zu ergänzen! -> 'Das ist ein Kommentar <--

Ich hoffe ich konnte dir helfen.

mottzi · 5. Januar 2009, 20:03

und, gehts?

LycaN · 5. Januar 2009, 20:45

leider nicht! habe auch einen code von kevin89 in vb8 bekommen der funzt nur es wird kein text gesendet sondern nur e-mail (betreff: bla) und in der e-mail steht dann textbox1.text
so betreff Bla is ok nur der text sollte aus der textbox gelesen werden und zugesand werden.

2tes broblem er versendet nicht auf dem Button sondern oben im x(close)

Quellcode

Public Class Form1
Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
Dim Msg As New MailMessage
Dim myCredentials As New System.Net.NetworkCredential
myCredentials.UserName = "deine E-mail"
myCredentials.Password = "Passwort"
Msg.IsBodyHtml = False
Dim mySmtpsvr As New SmtpClient()
mySmtpsvr.Host = "smtp.web.de" ' falls du web hast, sonst anpassen
mySmtpsvr.Port = "25" ' falls du web hast, sonst ebenfalls anpassen
mySmtpsvr.UseDefaultCredentials = False
mySmtpsvr.Credentials = myCredentials
Try
Msg.From = New MailAddress("evelin21@web.de")
Msg.To.Add("2te e-mail")
Msg.Subject = "bla"
Msg.Body = "Textbox1.text"
mySmtpsvr.Send(Msg)
MsgBox("Die Email wurde erfolgreich gesendet.")
Me.Close()
Catch ex As Exception
MessageBox.Show("Ein Fehler ist aufgetreten: " & Err.Description, "Fehler " & Err.Number)
End Try
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
End
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class

LycaN · 5. Januar 2009, 21:36

mottzi schrieb:

Hallo.

Ich habe hier eine Lösung für VB 2008, sollte aber auch bei dir gehen.

So, du brauche 1 Textbox namens "textbox1" und einen Button namens "button1".

Füge nun disen Code ein. (Vergiss aber nicht, ihn für dich anzupassen!!!)

Visual Basic-Quellcode

Imports System.Net.Mail

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim Mymailmessage As New MailMessage()

Try

Mymailmessage.From = New MailAddress("Email Schickeraddresse") ' Muss für diesen Code von gmail.com sein

Mymailmessage.To.Add("E-Mail Empfänger") 'deine emailadresse

Mymailmessage.Subject = TextBox1.Text

Mymailmessage.Body = TextBox1.Text

Dim SMTP As New SmtpClient("smtp.gmail.com")

SMTP.Port = 587

SMTP.EnableSsl = True

SMTP.Credentials = New System.Net.NetworkCredential("Deine Gmail adresse", "Gmailpasswort") 'gmailaddresse und passwort

SMTP.Send(Mymailmessage)

TextBox2.Text = ""

MsgBox("Erfolgreich gesendet!")

Catch ex As Exception

End Try

End Sub

End Class

Überall wo es einen kommentar hat, gibt es etwas von dir zu ergänzen! -> 'Das ist ein Kommentar <--

Ich hoffe ich konnte dir helfen.

doch super hat gefunzt !!!!!!!!!!! nun 2tes problem und letztes wie bekomme ich es hin mit 2 textboxes schau ich habs mal so brobiert nur die erste textbox wird an mich gesendet und nicht die 2te

code:

Quellcode

Imports System.Net.Mail
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Mymailmessage As New MailMessage()
Try
Mymailmessage.From = New MailAddress("meine e-mail") ' Muss für diesen Code von gmail.com sein
Mymailmessage.To.Add("Empfänger email") 'deine emailadresse
Mymailmessage.Subject = TextBox1.Text
Mymailmessage.Body = TextBox1.Text
Mymailmessage.Subject = TextBox2.Text
Mymailmessage.Body = TextBox2.Text
Dim SMTP As New SmtpClient("smtp.web.de")
SMTP.Port = 587
SMTP.EnableSsl = True
SMTP.Credentials = New System.Net.NetworkCredential("Meine e-mail", "Passwort")
'gmailaddresse und passwort
SMTP.Send(Mymailmessage)
TextBox1.Text = "" <-----nun hier hab ich versucht die erste textbox mit einzufügen so das es 2 gibt das 2 gesendet werden
TextBox2.Text = ""
MsgBox("Erfolgreich gesendet!")
Catch ex As Exception
End Try
End Sub
End Class

Beispiel2: rapidshare.de/files/41283595/beispiel2.exe.html

Alex2000 · 5. Januar 2009, 21:40

Die ganze Code was Ihr hier gepostet habts ist VB NET und er braucht Code für VB 6 !

Schau mal hier rein....muß selber anpassen !

am sonsten

benutze google, gibs mehr davon !

kevin89 · 6. Januar 2009, 00:07

Jo die Anführungszeichen waren falsch

Nicht "TextBox1.Text" sondern einfach TextBox1.Text

Aber biste ja selbst draufgekommen. Hier ein weiteres Beispiel für einen möglichen, mehrzeiligen Inhalt:

Visual Basic-Quellcode

msg.Body="Zeile 1" & vbnewline & "Zeile 2" & vbnewline & "Zeile 3" & vbnewline & "Zeile 4" & vbnewline & "Usw usw..."

sandiro · 6. Januar 2009, 11:07

Ich habe den Code auch gleich verwendet, für Visual Basic 2008 Expr. Edition. Und er funktioniert für Bluewin:

Visual Basic-Quellcode

Dim Msg As New MailMessage
Dim myCredentials As New System.Net.NetworkCredential
myCredentials.UserName = "meine.adresse@bluewin.ch"
myCredentials.Password = "1234"
Msg.IsBodyHtml = False
Dim mySmtpsvr As New SmtpClient()
mySmtpsvr.Host = "smtpauth.bluewin.ch"
mySmtpsvr.Port = 25
mySmtpsvr.UseDefaultCredentials = False
mySmtpsvr.Credentials = myCredentials
Try
Msg.From = New MailAddress(txtAbsender.Text)
Msg.To.Add("meine.adresse@bluewin.ch")
Msg.Subject = txtBetreff.Text
Msg.Body = txtNachricht.Text
mySmtpsvr.Send(Msg)
'MsgBox("Email versendet!")
Catch ex As Exception
MsgBox("Leider ist ein Fehler aufgetreten. Bitte senden Sie Ihre Nachricht erneut.", 0, "Fehler!")
End Try

Nun möchte ich die Emails aber nicht mit meiner Bluewin-Email-Adresse empfangen, sondern mit Yahoo.
Aber irgendwie funktioniert das nicht...
Weiss jemand, wie das mit Yahoo funktioniert?

Gruss sandiro

steffifant · 6. Januar 2009, 12:12

Das kannst du in deinem Yahoo-Mail-Account unter Optionen -> Mail-Optionen -> POP3 Zugang nachlesen.

mottzi · 6. Januar 2009, 13:08

Hi.

Leider hab ich grad kein Plan (bin noch anfänger in vb) wie due die 2. Textbox hinzufügen könntst.

Nimm doch einmach nochmal genau den selben code und ergänze. Ich geb dir den code den du noch brauchst:

Visual Basic-Quellcode

Dim Mymailmessage As New MailMessage()
Try
Mymailmessage.From = New MailAddress("Email Schickeraddresse") ' Muss für diesen Code von gmail.com sein
Mymailmessage.To.Add("E-Mail Empfänger") 'deine emailadresse
Mymailmessage.Subject = TextBox2.Text
Mymailmessage.Body = TextBox2.Text
Dim SMTP As New SmtpClient("smtp.gmail.com")
SMTP.Port = 587
SMTP.EnableSsl = True
SMTP.Credentials = New System.Net.NetworkCredential("Deine Gmail adresse", "Gmailpasswort") 'gmailaddresse und passwort
SMTP.Send(Mymailmessage)
TextBox2.Text = ""
MsgBox("Erfolgreich gesendet!")
Catch ex As Exception
End Try

mottzi · 6. Januar 2009, 13:10

klick 2 mal auf button1 und schreibe diesen code rein, dann sendet es auch die textbox2.text. Nicht vergessen den code wieder mit deiner mail zu ergänzen!

Visual Basic-Quellcode

Dim Mymailmessage As New MailMessage()
Try
Mymailmessage.From = New MailAddress("Email Schickeraddresse") ' Muss für diesen Code von gmail.com sein
Mymailmessage.To.Add("E-Mail Empfänger") 'deine emailadresse
Mymailmessage.Subject = TextBox2.Text
Mymailmessage.Body = TextBox2.Text
Dim SMTP As New SmtpClient("smtp.gmail.com")
SMTP.Port = 587
SMTP.EnableSsl = True
SMTP.Credentials = New System.Net.NetworkCredential("Deine Gmail adresse", "Gmailpasswort") 'gmailaddresse und passwort
SMTP.Send(Mymailmessage)
TextBox2.Text = ""
MsgBox("Erfolgreich gesendet!")
Catch ex As Exception
End Try

EDIT //

sry bin 2 mal auf absenden gekommen :rolleyes:

LycaN · 6. Januar 2009, 15:02

so Vertig habs gepackt dank Kevin89

Danke Kevin89!

Mfg

LycaN

sandiro · 6. Januar 2009, 18:01

Ich habe die Einstellungen bei Yahoo schon vorher gesehen, aber es funktioniert trotzdem nicht

Also hier mal den Code (welcher nicht geht):

Visual Basic-Quellcode

Dim Msg As New MailMessage
Dim myCredentials As New System.Net.NetworkCredential
myCredentials.UserName = "hpcoder@rocketmail.com"
myCredentials.Password = "1234" 'Natürlich dann das richtige Passwort
Msg.IsBodyHtml = False
Dim mySmtpsvr As New SmtpClient()
mySmtpsvr.Host = "smtp.mail.yahoo.de"
mySmtpsvr.Port = 465
mySmtpsvr.UseDefaultCredentials = False
mySmtpsvr.Credentials = myCredentials
Try
Msg.From = New MailAddress(txtAbsender.Text)
Msg.To.Add("hpcoder@rocketmail.com")
Msg.Subject = txtBetreff.Text &
Msg.Body = txtNachricht.Text
mySmtpsvr.Send(Msg)
MsgBox("Email versendet!")
Catch ex As Exception
MsgBox("Leider ist ein Fehler aufgetreten. Bitte senden Sie Ihre Nachricht erneut.", 0, "Fehler!")
End Try

von textbox zur E-mail

von textbox zur E-mail

Visual Basic-Quellcode

Quellcode

mottzi schrieb:

Visual Basic-Quellcode

Quellcode

Visual Basic-Quellcode

Visual Basic-Quellcode

Visual Basic-Quellcode

Visual Basic-Quellcode

Visual Basic-Quellcode

Ähnliche Themen

4 Benutzer haben hier geschrieben