Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Mail wird nicht bei Knopfdruck versand
Autor: Red_Head
Datum: 01.03.11 14:29
Ich habe folgenden Code hinter einem Button, der bei Betätigung eine Mail versenden soll. Eigenartiger Weise wird die Mail jedoch erst beim beenden des Programms versandt. Hier der hinter dem Button liegende Code: I Private Sub cmdSend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSend.Click If txtBoxScanArticel.Text = Nothing Then MsgBox("Bitte Materialnummer eingeben!") Else If MsgBox("Nachricht absenden?", vbYesNo + vbQuestion, "Bitte Eingaben prüfen!") = 6 Then Dim SMTPServer As New SmtpClient() Dim sendTo As New MailAddress(System.IO.File.ReadAllText(ProgramPath & "\resources\config\" & txtBoxScanArticel.Text & "_mail.txt")) Dim sendFrom As MailAddress = New MailAddress(My.Settings.SendFrom) Dim message As New MailMessage(sendFrom, sendTo) Dim Hinweis As String = "------------------------------------------------------------" & vbCrLf & "Diese Mail wurde automatisch erzeugt, bitte nicht antworten!" message.IsBodyHtml = False message.Subject = "Materialanforderung - Arbeitsplatz: " 'message.Body = (System.IO.File.ReadAllText(ProgramPath & "\resources\config\" & txtBoxScanArticel.Text & "_desc.txt")) & vbCrLf & vbCrLf & "Bemerkungen: " & vbCrLf & RtxtBoxRemark.Text & vbCrLf & vbCrLf & Hinweis message.Body = lblDescription.Text & vbCrLf & vbCrLf & "Bemerkungen: " & vbCrLf & RtxtBoxRemark.Text & vbCrLf & vbCrLf & Hinweis ' Use the same account in app.config to authenticate. 'Dim basicAuthenticationInfo As New System.Net.NetworkCredential("yourAccount@example.com", "YourPassword") SMTPServer.Host = My.Settings.Mailserver SMTPServer.UseDefaultCredentials = True 'SMTPServer.Credentials = basicAuthenticationInfo 'SMTPServer.EnableSsl = True Try SMTPServer.Send(message) MsgBox("Nachricht erfolgreich versand!") Catch ex As Exception MsgBox("Senden fehlgeschlagen!" & vbCrLf & vbCrLf & ex.Message.ToString) End Try lblDescription.Text = "Materialbeschreibung" txtBoxScanArticel.Clear() RtxtBoxRemark.Clear() PictureBoxArticle.SizeMode = PictureBoxSizeMode.StretchImage PictureBoxArticle.Image = System.Drawing.Image.FromFile(ProgramPath & "\resources\default\default.jpg") Exit Sub Else MsgBox("Nachricht wurde nicht versand!") End If End If End Sub Beitrag wurde zuletzt am 01.03.11 um 14:31:12 editiert.

Mail wird nicht bei Knopfdruck versand

1.174

Red_Head

01.03.11 14:29

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen