none
E-Mail mit System.Net.Mail RRS feed

 > 

  • Frage

  • Question
    Anmelden
    0
    Anmelden

    Moin,

     

    ich habe leider das Problem, das ich keine Mails senden kann. Noch vor einem Jahr unter VB 2005 war es mit dem Code möglich, jetzt nicht mehr. Finde aber den Fehler nicht.

     

    Die Fehlermeldung ist: "Fehler beim Senden von Mail" Sowohl bei yahoo, als auch bei aol.

     

    Hoffe ihr findet das Problem:

     

    Imports System.Net.Mail

     

        Public Function send_mail() As Boolean
            Dim from As String = ""                                'mail adresse
            Dim zu As String = ""                                   'mail adresse
            Dim subject As String = "Ohne"
            Dim body As String = "text"

            Dim message As MailMessage = New MailMessage(from, zu, subject, body)
            Dim client As SmtpClient = New SmtpClient("imap.de.aol.com", "587")

    '(hab auch schon yahoo an dieser Stelle ausporbiert, der gleiche fehler)

            Dim credentials As System.Net.NetworkCredential = New System.Net.NetworkCredential
            credentials.Password = "pw"
            credentials.UserName = "name"
            client.Credentials = credentials


    Nochmal:
            Try
                client.EnableSsl = True
                client.Send(message)
                send_mail = True
            Catch oEx As Exception
                Dim fehler As String
                fehler = MessageBox.Show(oEx.Message.ToString, "Fehler", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
                If fehler = DialogResult.Yes Then
                    GoTo Nochmal
                End If
                Exit Function
            End Try
        End Function

    Samstag, 25. Oktober 2008 12:48
    |

Antworten

  • Question
    Anmelden
    0
    Anmelden

     

    Code Snippet
    Imports System.Net.Mail
    Public Class SendMail
        Public Shared Sub Send()
            Dim message As New MailMessage("sender@servername", "from@servername", "Subject", "MessageText")
            message.IsBodyHtml = False

            Dim emailClient As New SmtpClient("servername", 25)

            emailClient.DeliveryMethod = SmtpDeliveryMethod.Network
            emailClient.Credentials = New System.Net.NetworkCredential("username", "password")
            emailClient.Send(message)    
            End Sub
    End     Class

     

     

     

    Probier mal den Port 25 (siehe oben. So versende ich nämlich e-mails)

    Montag, 10. November 2008 13:41
    |