Archiv verlassen und diese Seite im Standarddesign anzeigen : Sehr wichtig! Bitte um Hilfe!
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, 16: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
"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
"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
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
Powered by vBulletin® Copyright ©2024 Adduco Digital e.K. und vBulletin Solutions, Inc. Alle Rechte vorbehalten.