none
Mailversand aus Programm - Fehler im Code oder doch Mailserver-Problem? RRS feed

 > 

  • Frage

  • Question
    Anmelden
    0
    Anmelden

    Hallo,

    ich versuche mit dem Code eine Mail aus meinem Programm raus zu senden.
    Leider wird aber wohl nur an die BCC Adresse geschickt. Der eigentliche Empfänger TO erhält keine Nachricht, obwohl ich ihn in meiner BCC Kopie sehe und alles richtig aussieht.

    Wo ist das Problem?
    Ist es wirklich im Code oder ist es im Mailserver zu suchen?


    Gruß
    Stefan

    'Mail erstellen und versenden...
                                Dim MailClient As New Net.Mail.SmtpClient

                                MailClient.Host = TextBox_EMAIL_Mailserver.Text

                                Dim MailNachricht As New System.Net.Mail.MailMessage()

                                MailNachricht.From = New System.Net.Mail.MailAddress("xyz@xyz.net", "xyz@xyz.net")

                                If RadioButton_WWS_MailModus_Demo.Checked = True Then
                                    MailNachricht.To.Add(New System.Net.Mail.MailAddress("demo@xyz.net", "demo@xyz.net"))
                                End If

                                If RadioButton_WWS_MailModus_Live.Checked = True Then
                                    MailNachricht.To.Add(New System.Net.Mail.MailAddress(Datenzeile_Mailadressen.Item("EMail").ToString, Datenzeile_Mailadressen.Item("EMail").ToString))
                                End If

                                'Kopie immer an uns schicken zur Dokumentation:
                                MailNachricht.Bcc.Add(New System.Net.Mail.MailAddress("bcc@xyz.net", "bcc@xyz.net"))

                                MailNachricht.Subject = "Lieferschein " & DateinamenSplit(1) & " von " & Mandantenname & " für WWS-System."
                                MailNachricht.SubjectEncoding = System.Text.Encoding.Default
                                MailNachricht.BodyEncoding = System.Text.Encoding.Default
                                MailNachricht.Body = "Sehr geehrte Damen und Herren,..."
                                MailNachricht.Attachments.Add(New System.Net.Mail.Attachment(Dateiname))

                                Try
                                    MailClient.Send(MailNachricht)
                                Catch ex As Exception
                                    Ereignisanzeige_Online_Shop.WriteEntry("Datei mit Datei: '" & Dateiname & "' konnte nicht gesendet werden!" & ex.Message, EventLogEntryType.Warning)
                                End Try

    Dienstag, 6. Oktober 2015 19:11
    |

Antworten

Alle Antworten