E-mail senden mit Progressbar

  • VB.NET

    E-mail senden mit Progressbar

    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??

    VB.NET-Quellcode

    1. Public Sub sendmail()
    3. ' Neues MailMessage-Objekt mit Absender und
    4. ' Empfänger-Adresse erstellen
    5. Dim oMail As New MailMessage(TextBox4.Text, TextBox2.Text)
    7. ' SMTP-Server
    8. Dim oSMTP As New SmtpClient
    9. With oSMTP
    10. ' Mailserver
    11. .Host = Label5.Text
    12. .Port = 25
    14. ' Erweiterte Mail-Einstellungen
    15. .UseDefaultCredentials = False
    16. .DeliveryMethod = SmtpDeliveryMethod.Network
    18. ' SMTP-AUTH mit UserName und Kennwort
    20. .Credentials = New Net.NetworkCredential(TextBox7.Text, TextBox6.Text)
    21. End With
    23. With oMail
    24. ' Betreff
    25. .Subject = TextBox3.Text
    27. ' Nachricht (kein HTML)
    28. .IsBodyHtml = False
    29. .Body = TextBox5.Text
    31. ' ggf. Kopie-Empfänger hinzufügen
    32. '.CC.Add(New MailAddress("emailadresse"))
    34. ' ggf. BCC-Empfänger hinzufügen
    35. ' .Bcc.Add(New MailAddress("emailadresse"))
    37. ' Anlagen hinzufügen
    38. If TextBox9.Text = "" Then
    40. Else
    42. .Attachments.Add(New Attachment((TextBox9.Text)))
    43. End If
    44. ' Priorität einstellen
    45. .Priority = MailPriority.Normal
    46. End With
    48. Try
    49. ' Nachricht senden
    50. oSMTP.Send(oMail)
    51. MsgBox("Nachricht wurde versandt.")
    53. Catch oEx As Exception
    54. MsgBox("Fehler: " & oEx.Message.ToString)
    55. End Try
    56. End Sub

Facebook
Telefonspende