PDA

Archiv verlassen und diese Seite im Standarddesign anzeigen : Sehr wichtig! Bitte um Hilfe!



XXL
26.01.2009, 17:52
Also ich muss bis morgen Nachmittag eine Email+Button funktion programmieren. Nur habe ich keine Ahnung wie ich das ab besten machen soll.
Es sollte so aussehn : http://img3.imagebanana.com/view/dnvek2q6/sds.jpg

"2" textboxen, + "1" Button wenn ich was in die beiden textboxen reinschreibe, und dann auf den Button klicke soll mir das was in die beiden textboxen reingeschrieben wurde per Mail zugeschickt werden. Email Anbieter wird sein "web.de" .

Danke für schnell Hilfe

LG

Darkraiser
26.01.2009, 17:56
kannst du über webmail klasse machen über SMTP



Imports System.Web.Mail

Public Class Form1
Inherits System.Windows.Forms.Form

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

Dim oMail As New MailMessage()

' SMTP-Server (z.B. T-Online)
SmtpMail.SmtpServer = "mailto.btx.dtag.de"

With oMail
' Absender
.From = "Ihre EMail-Adresse"

' Empfänger
.To = "Empfänger EMail-Adresse"

' Betreff
.Subject = "Test-Nachricht"

' Nachricht
.Body = "Dies ist eine Test-Nachricht"

' Anlagen?
' .Attachments.Add(New MailAttachment("Dateiname"))
End With

Try
SmtpMail.Send(oMail)
MsgBox("Nachricht wurde versandt.")

Catch oEx As Exception
MsgBox("Fehler: " & oEx.Message.ToString)

End Try
End Sub
End Class


hoffe ich konnte helfen :)
mfg

XXL
26.01.2009, 18:02
"Ihre EMail-Adresse" was soll da rein?
Empfänger EMail-Adresse ist klar meine email?
SmtpMail.SmtpServer = "mailto.btx.dtag.de" und da wie heist das bei web.de?
Danke

Steav
26.01.2009, 18:33
"Ihre Email-Adresse"
Das ist nur der replyto-Header. Kannste irgendwas eintragen was als "Absender" angezeigt werden soll.

SmptServer:
www.gidf.de --> web.de smtp server

XXL
26.01.2009, 18:44
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)



Dim oMail As New MailMessage()

' SMTP-Server (z.B. T-Online)
SmtpMail.SmtpServer = "smtp.web.de"

With oMail
' Absender
.From = "vcxvcvcdieID@web.de"

' Empfänger
.To = "cxvcxk@web.de"

' Betreff
.Subject = "Test-Nachricht"

' Nachricht
.Body = "Dies ist eine Test-Nachricht"

' Anlagen?
' .Attachments.Add(New MailAttachment("Dateiname"))
End With
End Sub

Der Code ist drinnen nur habe ich noch einen Fehler der angezeit wird und zwar:

Die Anweisung ist in einem Namespace ungültig.

???

LG