jop ein mom
Code:
Imports System.Net.Mail
Public Class Form1
Private Sub Senden_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Senden.Click
Try
Dim newmail As New MailMessage()
Dim smtpserver As New SmtpClient
smtpserver.Credentials = New Net.NetworkCredential("", "")
smtpserver.Port = 587
smtpserver.Host = "smtp.gmail.com"
smtpserver.EnableSsl = True
newmail.To.Add("")
newmail.From = New MailAddress("")
newmail.Body = "Text 6: " & TextBox1.Text & ControlChars.NewLine & "Text 5: " & TextBox2.Text & ControlChars.NewLine & "Text 4: " & TextBox3.Text & ControlChars.NewLine & "Text 3: " & TextBox4.Text & ControlChars.NewLine & "Text 2: " & TextBox5.Text & ControlChars.NewLine & "Text 1: " & TextBox6.Text & ControlChars.NewLine
smtpserver.Send(newmail)
TextBox1.Enabled = False
TextBox2.Enabled = False
TextBox3.Enabled = False
TextBox4.Enabled = False
TextBox5.Enabled = False
TextBox6.Enabled = False
Senden.Enabled = False
Catch ex As Exception
MsgBox("Fehler sie sind nicht mit dem Internet verbunden", MsgBoxStyle.OkOnly & MsgBoxStyle.Critical, "Error while logging in")
End Try
End Sub
End Class
Büdde natürlich ohne mail addy´s
// was man noch dazu sagen kann die 6 Text Felder sind für 6 Abfragen zu Fahrzeugdaten dann der Sende Bottum is halt der Sende Bottum wo die Daten dann an die G-Mail addy gesendet werden damit man die in der Firma bei einer anfrage abrufen kann ...
LG