vb .net mails per smtp versenden

LLHELBIG

Grünschnabel
hallo, versuch schon seit einigen stunden eine mail über smtp zu versenden hab schon über google ein paar nützliche tipps gefunden jedoch komm ich trotzdem nicht zum erfolg.

hier mal mein sourcecode:

Code:
Dim oMessage As New MailMessage()

        oMessage.Subject = "This is my subject"

        oMessage.Body = "<html><body>TEST</html></body>"

        oMessage.IsBodyHtml = True

        oMessage.From = New MailAddress("info@xxxxx.de")

        oMessage.To.Add(New MailAddress(empfaenger.Text))

        oMessage.Priority = MailPriority.High

        Dim client As New SmtpClient
        client.Host = "smtp.xxxxx.de"

        client.Credentials = New System.Net.NetworkCredential("info", "PASS", "xxxxxxx.de")
        client.Port = 25
        client.Send(oMessage.From.ToString, oMessage.To.ToString, oMessage.Subject, oMessage.Body)

bitte helft mir. danke
 
Code:
Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Mailer.Click
        Dim SmtpObj As New System.Net.Mail.SmtpClient
        Dim MailMessage As New System.Net.Mail.MailMessage()
        SmtpObj.Host = "Über welchen Server du schickst"
        SmtpObj.Port = 25
        MailMessage.From = New System.Net.Mail.MailAddress("DeineAngezeigteEmailadresse")
        MailMessage.To.Add("An wen soll sie geschickt werden?")
        MailMessage.Subject = "Überschrift"
        MailMessage.IsBodyHtml = False
        MailMessage.Body = "Text"
        SmtpObj.Send(MailMessage)
End Sub

Hoffe das konnte dir helfen :)
 
Zurück