Hi ich hab hier einen funktionierenden code mit dem ich E-mails mit anhängen verschicken kann.
Jetzt ist es aber so das ja keiner weiß wann die E-mail komplett gesendet ist.
Ich möchte mir eine Progressbar machen mit er angzeigt wird wie weit der sendestatus ist.
Könnt ihr mir da helfen??
Jetzt ist es aber so das ja keiner weiß wann die E-mail komplett gesendet ist.
Ich möchte mir eine Progressbar machen mit er angzeigt wird wie weit der sendestatus ist.
Könnt ihr mir da helfen??
VB.NET-Quellcode
- Public Sub sendmail()
- ' Neues MailMessage-Objekt mit Absender und
- ' Empfänger-Adresse erstellen
- Dim oMail As New MailMessage(TextBox4.Text, TextBox2.Text)
- ' SMTP-Server
- Dim oSMTP As New SmtpClient
- With oSMTP
- ' Mailserver
- .Host = Label5.Text
- .Port = 25
- ' Erweiterte Mail-Einstellungen
- .UseDefaultCredentials = False
- .DeliveryMethod = SmtpDeliveryMethod.Network
- ' SMTP-AUTH mit UserName und Kennwort
- .Credentials = New Net.NetworkCredential(TextBox7.Text, TextBox6.Text)
- End With
- With oMail
- ' Betreff
- .Subject = TextBox3.Text
- ' Nachricht (kein HTML)
- .IsBodyHtml = False
- .Body = TextBox5.Text
- ' ggf. Kopie-Empfänger hinzufügen
- '.CC.Add(New MailAddress("emailadresse"))
- ' ggf. BCC-Empfänger hinzufügen
- ' .Bcc.Add(New MailAddress("emailadresse"))
- ' Anlagen hinzufügen
- If TextBox9.Text = "" Then
- Else
- .Attachments.Add(New Attachment((TextBox9.Text)))
- End If
- ' Priorität einstellen
- .Priority = MailPriority.Normal
- End With
- Try
- ' Nachricht senden
- oSMTP.Send(oMail)
- MsgBox("Nachricht wurde versandt.")
- Catch oEx As Exception
- MsgBox("Fehler: " & oEx.Message.ToString)
- End Try
- End Sub