Imports System.Net.Mail
 
Public Class Form1
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) _
      Handles Button1.Click
        Dim Datum As String = Now
        Dim strMSGFrom As String = "Irgendwas@sonstwas.de"
        Dim strMSGTo As String = "Irgendwohin@Niegesehn.de"
        Dim strCCEmpfaengerTo As String = "Nochwer@woanders.de"
        Dim strMSGSubject As String = "Plomnbennummer für Wechselbrücke," & _
          "Kundennummer: 1234567890"
        Dim strMSGBody As String = "Hallo!" & vbCrLf & vbCrLf & " Wir möchten" & _
        "Ihnen die heutige Plombennummer mitteilen. Diese lautet: " & _
        Plombennummer.Text & vbCrLf & vbCrLf & "Außerdem haben wir auf der" & _
        "Wechselbrücke folgende Anzahl an Paletten: " & vbCrLf & vbCrLf & _
        "Europaletten: " & Euro.Text & vbCrLf & "Einwegpaletten: " & _
        Einweg.Text & vbCrLf & vbCrLf & "verladen. Für dringende Fragen stehen" & _
        "wir IHnen gerne unter folgender Telefonnummer zur Verfügung:" & _
        "XXXXX/XXXXXXX. Über eine schnelle Abwicklung würden wir uns sehr" & _
        "freuen und verbleiben mit den besten Grüßen" & vbCrLf & vbCrLf & "Ihr" & _
        "Panorama24 Lagerteam"
 
        Dim Gesamttext = "Mail vom " & Datum & ":" & vbCrLf & vbCrLf & _
          strMSGFrom & vbCrLf & strMSGTo & vbCrLf & strCCEmpfaengerTo & vbCrLf _
          & vbCrLf & strMSGSubject & vbCrLf & vbCrLf & strMSGBody
 
        MailSchreiben(strMSGFrom, strMSGTo, strCCEmpfaengerTo, strMSGSubject, _
          strMSGBody)
 
        Dim Dateiname As String = Format(Now, "yyyyMMdd_hhmmss") & ".txt"
        Dim Zielverzeichnis As String = "d:\deinSpeicherverzeichnisfuerMails\"
 
        DateiSchreiben(Zielverzeichnis, Dateiname, Text)
 
 
    End Sub
 
    Private Sub MailSchreiben(ByVal strMSGFrom As String, ByVal strMSGTo As _
      String, ByVal strCCEmpfaenger As String, ByVal strMSGSubject As String, _
      ByVal strMSGBody As String)
        Dim Msg As New MailMessage
        Dim myCredentials As New System.Net.NetworkCredential
        myCredentials.UserName = "*********"
        myCredentials.Password = "*********"
 
        Msg.IsBodyHtml = False
 
        Dim mySmtpsvr As New SmtpClient()
        mySmtpsvr.EnableSsl = True 'SSL aktivieren
        mySmtpsvr.Host = "smtp.strato.de"
        mySmtpsvr.Port = 587
 
        mySmtpsvr.UseDefaultCredentials = False
        mySmtpsvr.Credentials = myCredentials
 
        Try
            Msg.From = New MailAddress(strMSGFrom)
            ProgressBar1.Value = 10
            Msg.To.Add(strMSGTo)
            Msg.CC.Add(strCCEmpfaenger)
            ProgressBar1.Value = 20
            Msg.Subject = strMSGSubject
            ProgressBar1.Value = 30
            Msg.Body = strMSGBody
            ProgressBar1.Value = 80
            mySmtpsvr.Send(Msg)
            ProgressBar1.Value = 100
            MsgBox("Erfolgreich - schönen Feierabend", MsgBoxStyle.Information, _
              Title:="Information")
        Catch ex As Exception
            MsgBox(Err.Number & ex.Message & ex.StackTrace.ToString) 'Falls ein 
            ' Fehler 
            ' auftritt wird eine MsgBox angezeigt
        End Try
    End Sub
 
    Private Sub DateiSchreiben(ByVal Verzeichnis As String, ByVal Dateiname As _
      String, ByVal Text As String)
 
        Dim Zieldatei As String = Verzeichnis & "\" & Dateiname
 
        Dim sw As New System.IO.StreamWriter(Zieldatei)
        sw.Write(Text)
        sw.Close()
 
    End Sub
 
End Class

EALA FREYA FRESENA

Beitrag wurde zuletzt am 19.10.16 um 15:55:49 editiert.