DevTrain Forum - System.Net.Mail und falsche Email Adresse im Feld AN:

Forum: ASP.NET2.0 | Thema: System.Net.Mail und falsche Email Adresse im Feld AN: | Von: Benny Wa ( 08.01.2007 13:30)

		Hallo Leute

Ich habe ein Newsletter Tool gebastelt und habe folgendes Problem bzw.
Frage dazu:

Ich setze zuerst
mail.To.Add("hallo@test.at")
eine Email Adresse in das mail.to Feld

Dann öffne ich eine DB und hole mir mittels eines Datareaders alle Newsletter Kunden heraus die ich benötige, und füge sie mit einer Schleife alle in das Bcc Feld hinzu.
also so:

 While dr.Read
            mail.Bcc.Add(dr("Email"))
        End While


Nun habe ich das Problem ???
Jeder Kunde erhält das Newsletter Mail einwandfrei.
Aber es steht bei jedem Kunden im Email Programm beim Empfänger, also
AN: hallo@test.at drinnen ???

Also der Kunde bekommt das Email bestens zugestellt, nur im An: Feld im Outlook steht immer meine Email Adresse welche ich einmal im To: Feld hinzufüge ??????

Das ist doch komisch, ich kappiere das nicht ganz warum er das so macht ??
Es muss doch wenn ich mehrere Empfänger in das Bcc: Feld hinzufüge,
auch die richtige Email Adresse von dem Kunden im Bcc: Feld mitgeschickt werden ?????

Ich habe mal einen Teil meines Codes unten angehängt..

Vieleicht kann mir jemand weiterhelfen warum das nicht so funktioniert wie es eigentlich sollte ???

Wenn ich in den Quellcode des Mails hineinschaue sehe ich unter
Delivered-To: kunde@test.at (Die eigentlich richtige Email Adresse des Kunden)
und unter 
to: hallo@test.at (Die Email Adresse die im To: Feld drinnen steht)

welche der Newsletter Kunde eigentlich gar nicht sehen sollte ???


Danke
Benny
------------------------------------------------------------------------






'DIE MAIL VORBEREITEN ABSENDER MAILSERVER ETC...
        Dim mail As New MailMessage()
        Dim smtp As New SmtpClient("smtp.test.at")
        smtp.UseDefaultCredentials = False
        Dim basicAuthenticationInfo As New System.Net.NetworkCredential("user@test.at", "testpasswort")
        smtp.Credentials = basicAuthenticationInfo
        mail.From = New MailAddress("newsletter@test.at", "Firmenname")
        mail.To.Add("hallo@test.at")

        mail.Subject = txtBetreff.Text
        mail.SubjectEncoding = System.Text.Encoding.Default
        mail.Body = RadEditorNewsletter.Html
        mail.BodyEncoding = System.Text.Encoding.UTF8
        mail.IsBodyHtml = True

        'Attachement anhängen

        Dim tempFileNames(RadUpload1.UploadedFiles.Count) As String
        Dim i As Integer
        For i = 0 To RadUpload1.UploadedFiles.Count - 1
            Dim currentUploadedFile As UploadedFile = RadUpload1.UploadedFiles(i)
            tempFileNames(i) = Request.MapPath(String.Format("./{0}", currentUploadedFile.FileName.Substring((currentUploadedFile.FileName.LastIndexOf("\") + 1))))
            currentUploadedFile.SaveAs(tempFileNames(i))
            Dim currentAttachment As New Mail.Attachment(tempFileNames(i))
            mail.Attachments.Add(currentAttachment)
        Next i

'Dim filename As String = Server.MapPath("/downloads/datei.pdf")
'mail.Attachments.Add(New Attachment(filename))


'ALLE NEWSLETTER KUNDEN AUS DER DATENBANK HOLEN UND IN DAS Bcc FELD ANHÄNGEN

        While dr.Read
            mail.Bcc.Add(dr("Email"))
        End While


        ' DATAREADER UND VERBINDUNG ZUR DB WIEDER SCHLIESSEN
        dr.Close()
        Conn.Close()

        'NEWSLETTER VERSENDEN


        Try
            smtp.Send(mail)
        Catch e As Exception
            lblErfolgstext.Text = "Beim Versand des Newsletter ist ein Fehler in der Mailkomponente aufgetreten !"
            Console.WriteLine(e)
        End Try

        'DAS NEWSLETTER EINGABEFORMULAR AUSBLENDEN
        'DAS LABEL MIT "Newsletter wurde erfolgreich versendet" EINBLENDEN
        PanelNewsletterForm.Visible = False
        PanelErfolgText.Visible = True



        ' DIE TEMPORÄRE ATTACHMENT DATEI WIEDER LÖSCHEN
        Dim tempFileName As String
        For Each tempFileName In tempFileNames
            If File.Exists(tempFileName) Then
                File.Delete(tempFileName)
            End If
        Next tempFileName
    End Sub


	

Betreff Von Datum

AW: System.Net.Mail und falsche Email Adresse im Feld...

Ja hallo wen du das so codest mail.To.Add("hallo@test.at") dann brauchst dich net wundern die Zeile raus und statt While dr.Read mail.Bcc.Add(dr("Email")) End While While...

Hannes Preishuber 08.01.2007 14:00

AW: AW: System.Net.Mail und falsche Email Adresse im...

Hallo Hannes Ich habe das extra nicht so gemacht, damit nicht jeder Kunde von allen anderen die Email Adressen sieht. Wenn ich an 700 Kunden ein Newsletter versende wird die Adressenleiste ja...

Benny Wa 08.01.2007 14:07

AW: AW: AW: System.Net.Mail und falsche Email...

klar einfach in der Schleife jedesmal das mail gleich senden smtp.Send(mail)

Hannes Preishuber 08.01.2007 15:27

AW: AW: AW: AW: System.Net.Mail und falsche...

Wie schaut es da mit den Resourchen aus? Hast du da Erfahrungen, wenn ich 700 bis 1000 Newsletter Mails einzeln sende(mit Anhang dran)?? Aber ich glaube das ist wohl die einzige Möglichkeit so...

Benny Wa 08.01.2007 15:43

AW: AW: AW: AW: AW: System.Net.Mail und...

das macht man nur so, die BCC geschichte ordnet deine Mail gleich mal mit 95% wahrscheinlichkeit in den Spam Folder ein. Resourcen ist kein Problem

Hannes Preishuber 08.01.2007 15:47

AW: AW: AW: AW: AW: AW: System.Net.Mail...

Hallo Hannes Ich habe das ganze nun so gemacht: While dr.Read mail.To.Clear() mail.To.Add(dr("Email")) 'NEWSLETTER VERSENDEN smtp.Send(mail) ...

Benny Wa 08.01.2007 16:07

Antworten Vorsicht bei der Eingabe: Die Zeichen ' oder -- sind nicht erlaubt!