Email über SMTP mit Attachment senden

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

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von Script1.

    Email über SMTP mit Attachment senden

    Hallo,
    ich möchte gerne eine Email mit Attachment senden, nur das klappt leider nicht. Er spuckt keine Fehlermeldung aus, ich bekomme aber keine Email.
    Viele Email Anbieter machen dies mit SMTP nur noch über SSL Verschlüsselung. Ich habe bei Gmail so eingestellt, das POP aktiviert ist und IMAP ist auch aktiviert.
    Hier ist mein Code:

    VB.NET-Quellcode

    1. Public Class xxxform
    2. Dim smtpServer As SmtpClient = Nothing
    3. Dim mail As MailMessage = Nothing
    4. Private Shared mailSent As Boolean = False
    5. Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal Command As String, ByVal Returnstring As String, ByVal returnlength As Integer, ByVal callback As Integer) As Integer
    6. Dim returnstring As String
    7. Dim callback As Integer
    9. '
    10. '
    11. '
    12. '
    14. smtpServer = New SmtpClient()
    15. mail = New MailMessage()
    16. Dim attachment As Attachment = Nothing
    17. smtpServer.UseDefaultCredentials = False
    18. smtpServer.DeliveryMethod = SmtpDeliveryMethod.Network
    19. smtpServer.Credentials = New Net.NetworkCredential("Email", "Passwort")
    20. smtpServer.Port = 587
    21. smtpServer.Host = "smtp.gmail.com"
    22. smtpServer.EnableSsl = True
    23. mail = New MailMessage()
    25. AddHandler smtpServer.SendCompleted, AddressOf SendCompletedCallback
    26. Dim Datei As Object = Pfad & "\" & Ordnername.Text & "\"
    27. Dim sPath As String = Datei
    28. If sPath.EndsWith("\") And sPath.Length > 3 Then
    29. sPath = sPath.Substring(0, sPath.Length - 1)
    30. End If
    31. If System.IO.Directory.Exists(sPath) Then
    32. Dim sFiles() As String = System.IO.Directory.GetFiles(sPath, "*.*")
    33. With mail
    34. .From = New MailAddress("Email")
    35. .To.Add("Email")
    36. .Subject = System.Environment.MachineName + " " + "User"
    37. .Body = "In dieser Mail befinden sich evt. Anlagen."
    38. .Priority = MailPriority.Normal
    39. Dim sFile As String
    40. For Each sFile In sFiles
    41. .Attachments.Add(New Attachment(sFile))
    42. Next
    43. End With
    44. End If
    45. smtpServer.SendAsync(mail, "")
    46. End If
    48. Private Sub SendCompletedCallback(ByVal sender As Object, ByVal e As AsyncCompletedEventArgs)
    49. smtpServer.Dispose()
    50. mail.Dispose()
    51. mailSent = True
    52. End Sub
    53. End Class


    *Topic verschoben*

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()

    IMAP und POP sind bei SMTP egal, die sind für den Empfang von E-Mails da.

    Hoffentlich wird immer über SSL eine E-Mail versendet.

    Hast Du mal versucht, deinen Code schrittweise zu debuggen? Ich bezweifele, dass die Senderoutine überhaut erreicht wird.
    NB. Es ist doch schön, wenn man lesbare Namen vergibt. Siehe auch [VB.NET] Beispiele für guten und schlechten Code (Stil).

Facebook
Telefonspende