Hallo,
wenn das der Falsche Bereich ist bitte Moven.
----
Ich habe einen Code geschrieben der Sowas wie ein Report System sein soll.
Man soll alles Eintragen und wenn man auf Absenden drückt soll man es auf einem Anderem Programm bekommen... Wie soll ich das machen?
Ich habe immoment alles mit E-Mail system.
wenn das der Falsche Bereich ist bitte Moven.
----
Ich habe einen Code geschrieben der Sowas wie ein Report System sein soll.
Man soll alles Eintragen und wenn man auf Absenden drückt soll man es auf einem Anderem Programm bekommen... Wie soll ich das machen?
Ich habe immoment alles mit E-Mail system.
VB.NET-Quellcode
- Imports System.Net.Mail
- Public Class Form1
- Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
- TextBox1.Clear()
- RichTextBox1.Clear()
- End Sub
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- Dim smtpServer As New SmtpClient()
- Dim mail As New MailMessage()
- smtpServer.Credentials = New Net.NetworkCredential("******@web.de", "********") 'Passwort
- smtpServer.Port = 587
- smtpServer.Host = "smtp.web.de"
- smtpServer.EnableSsl = True
- mail = New MailMessage
- mail.From = New MailAddress("******@web.de")
- mail.To.Add("********@web.de")
- mail.Subject = "Neuer Report"
- mail.Body = "Name des Angeklagten: " & TextBox1.Text + vbNewLine & "Datum des Verbrechens: " & DateTimePicker1.Text + vbNewLine & "Art: " & ComboBox1.Text + vbNewLine & "Beschreibung: " & RichTextBox1.Text + vbNewLine & "Mit freundlichen Grüßen" + vbNewLine & "Auto. Report System"
- smtpServer.Send(mail)
- MsgBox("Der Report wurde an alle Admins gesendet.")
- End Sub
- End Class