Problem beim Versenden von Emails

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von Jason.

    Problem beim Versenden von Emails

    Hallo,

    ich finde für dieses spezielle Problem keinen passenden Thread, daher hier meine kurze Schilderung.

    Ich will eine Email an eine .To und eine .Bcc Adresse schicken. Beide Mails gehen jedoch an die .To Adresse.
    Lass ich die .To Adresse weg, wird korrekt an die .Bcc Adresse verschickt.

    Sehr, sehr seltsam.

    Ich wäre dankbar für Eure Hilfe.

    VB.NET-Quellcode

    1. Dim mySmtpsvr As New SmtpClient()
    2. mySmtpsvr.Host = Text1.Text
    3. mySmtpsvr.Port = Text6.Text
    4. mySmtpsvr.EnableSsl = True
    6. Dim myCredentials As New System.Net.NetworkCredential
    7. myCredentials.UserName = Text4.Text
    8. myCredentials.Password = Text5.Text
    9. mySmtpsvr.UseDefaultCredentials = False
    10. mySmtpsvr.Credentials = myCredentials
    12. Dim eMail As New MailMessage
    14. With eMail
    16. .From = New MailAddress("mail@mail.de")
    17. .To.Add("mail1@mail.de")
    18. .Bcc.Add("mail2@mail.de")
    19. .Subject = "EMail aus VB .NET mit System.Net.Mail"
    20. .IsBodyHtml = HTML
    21. .BodyEncoding = System.Text.Encoding.Default
    22. .Body = "Schöne Grüße!"
    23. .Priority = MailPriority.High
    25. End With
    27. Try
    29. mySmtpsvr.Send(eMail)
    31. MsgBox("Email wurde gesendet!", MsgBoxStyle.Information, "Information")
    33. Catch ex As Exception
    35. MsgBox(Err.Number & ex.Message & ex.StackTrace.ToString)
    37. End Try


    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „Franz99“ ()

    Das Programm logt sich Virtuell in den E-Mail-Account ein.

    VB.NET-Quellcode

    1. Dim Email As New MailMessage
    3. Try
    4. Email.From = New MailAdress("Email-Adresse") 'Von wem diese E-Mail kommt
    5. Email.To("EMAIL") 'Zu wem die E-Mail soll
    6. Email.Subject = "Betreff" 'der Betreff
    7. Email.Body = TextBox1.Text 'Die Nachricht
    9. Dim smtp As New SmtpClient("smtp.gmx.de") 'smtp Client
    11. smtp.Port = 587 'Übertragungs-Port
    12. smtp.EnableSsl = True 'ermöglichung einer sicheren Verbindung
    13. smtp.Credentials = New System.Net.NetworkCredential(Eigene Email, Passwort) 'Email Adresse vom sender und das Passwort
    15. smtp.Send(Email) 'Nachrich versenden
    17. Catch ex As Exception
    18. "Fehlermeldung falls ein Fehler aufgetreten ist"
    19. MessageBox(ex.Message)
    20. End Try
    22. Wenn es nicht klappt, Web-Konto erstellen und anstatt ("smtp.gmx.de") dann ("smtp.web.de")

Facebook
Telefonspende