Bericht in Email Body anzeigen lassen?

  • VB.NET

Es gibt 23 Antworten in diesem Thema. Der letzte Beitrag () ist von carwashbuxtehude.

    Danke.
    Ich möchte gerne einen Report als Email versenden.
    Momentan versende ich im Body den Inhalt eines DGV im Email Body.
    Nun möchte ich aber Summen und ein besseres Aussehen hinbekommen und dieses direkt in der Email darstellen, also ohne Anhang den ich öffnen muss, sondern direkt in die MAil.




    Matthias

    There is no CLOUD - just other people's computers

    Q: Why do JAVA developers wear glasses?
    A: Because they can't C#

    Daily prayer:
    "Dear Lord, grand me the strength not to kill any stupid people today and please grant me the ability to punch them in the face over standard TCP/IP."

    Genau!
    Beim DGV habe ich es schon hinbekommen.
    Anhang, so sieht die Mail zur Zeit aus
    Aber da fehlt dann z.B.: eine Summenbildung/ die Einheiten Währung usw.


    Deshalb war meine Idee, einen Bericht zu erstellen der optisch besser aussieht und den als MAil zu versenden...

    Wenn es geht!!!


    Matthias
    Bilder

    • bild.JPG

      61,16 kB, 1.420×206, 192 mal angesehen

    carwashbuxtehude schrieb:

    Deshalb war meine Idee, einen Bericht zu erstellen der optisch besser aussieht

    Nee nee - mit HTML hast Du schon in der Mail die perfekten Gestaltungsmöglichkeiten inkl. CSS!
    Ich könnte Dir eine sehr umfangreiche, tabellarische Mail mit allem Schnackens zeigen, die ich jeden Tag verschicke - darf ich nur leider nicht.
    Aber es ist wirklich möglich.
    Du musst halt Deine Daten vorher aufarbeiten und solltest dann natürlich auch ein bisschen den Webdesigner aus Dir herauslassen - sofern vorhanden.
    Aber wie gesagt, ohne ganz viel Input von Dir, gibts halt nur oberflächliche Antworten - sorry.

    VG,
    Bruno

    OK!
    Also alles so lassen und nur verschönen?

    Also ich habe ein DGV mit den benötigten Daten für den Inhalt der Mail. (Siehe Anhang)

    So versende ich den Inhalt des DGV:

    VB.NET-Quellcode

    1. Try
    2. Msg.IsBodyHtml = True ' Im HTML-Format erstellen
    4. Msg.From = New MailAddress("") ' Von
    5. Msg.To.Add("") ' An
    6. Msg.Subject = "Test am: " & Date.Now.ToString ' Betreff
    8. ' Aus den DataGridView-Zeilen und Spalten eine HTML-Tabelle erstellen
    9. Msg.Body = TabelleStart & vbCrLf
    11. Zeile = "<TR>"
    12. For Each S As DataGridViewColumn In DataGridView1.Columns ' Die Spaltenüberschriften auslesen
    13. Zeile = Zeile & "<TH>" & S.HeaderText & "</TH>"
    14. Next
    15. Zeile = Zeile & "</TR>" & vbCrLf
    16. Msg.Body = Msg.Body & Zeile
    18. For Each Z As DataGridViewRow In DataGridView1.Rows ' Für jede Zeile ...
    20. Zeile = "<TR>"
    21. For I As Integer = 0 To DataGridView1.ColumnCount - 1 ' ... die einzelnen Felder auslesen
    22. Zeile = Zeile & ZelleStart & Z.Cells(I).Value & ZelleEnde
    23. Next
    24. Zeile = Zeile & "</TR>" & vbCrLf
    25. Msg.Body = Msg.Body & Zeile
    26. Next
    27. Msg.Body = Msg.Body & TabelleEnde
    29. 'MessageBox.Show(Msg.Body, Date.Now.ToString)
    31. PostausgangsServer.Send(Msg) ' Nachricht verschicken
    32. MessageBox.Show("E-Mail erfolgreich versandt.", "Information", _
    33. MessageBoxButtons.OK, MessageBoxIcon.Information)
    35. Catch ex As Exception
    36. MessageBox.Show(Err.Number & ex.Message & ex.StackTrace.ToString) ' Falls ein Fehler auftritt
    37. End Try
    39. End Sub



    Wie schon gesagt sieht es nicht gerade gut aus, da dort die Einheiten und Summen fehlen!
    Bilder

    • bild.JPG

      67,23 kB, 1.309×503, 190 mal angesehen

    Genau das was ich gesucht habe.
    Dankeschön!

    Jetzt erstelle ich einen Screenshot und speichere ihn auch.
    Versenden der Mail ist auch kein Problem.
    Wie gehe ich es jetzt an und bekomme den Pfad mit hinein?


    VB.NET-Quellcode

    1. Msg.Body = ("<html><body>test <img src=""test.gif""> importhtml</body></html>")




    Matthias

    carwashbuxtehude schrieb:

    Wie gehe ich es jetzt an und bekomme den Pfad mit hinein?

    Naja, ganz so funktioniert das nicht.
    Wenn man ein Bild in eine HTML-Mail einbetten will, geschieht dies über eine BASE64 Encodierung.
    Soll ich Dir mal ein Beispiel fertig machen?
    Könnte aber ein bisschen dauern, da ich es wie gesagt in diversen C# Projekten benutze.

    LG,
    Bruno

    carwashbuxtehude schrieb:

    DANKESCHÖN für die Unterstützung!

    Jo - gern.
    Habe trotzdem mal die Methode in VB.NET übersetzt (so leidlich :rolleyes: ).
    So ähnlich sollte es bei Dir auch aussehen, nehme ich an?

    Spoiler anzeigen

    VB.NET-Quellcode

    1. ''' <summary>
    2. ''' Sendet eine HTML-Mail mit eingebettetem Bild
    3. ''' </summary>
    4. ''' <param name="MailSender">Absender</param>
    5. ''' <param name="Recipient">Empfänger</param>
    6. ''' <param name="MailSubject">Betreff</param>
    7. ''' <param name="MailMessage">Mail-Text</param>
    8. ''' <param name="AttachImage">Bild als Stream</param>
    9. ''' <returns>gesendet/nicht gesendet</returns>
    10. ''' <remarks></remarks>
    11. Public Shared Function SendMail(MailSender As String, Recipient As String, MailSubject As String, MailMessage As String, AttachImage As Stream) As Boolean
    12. ' IP-Adresse des SMTP-Servers eintragen
    13. Dim mailClient As New SmtpClient("0.0.0.0")
    15. Dim msg As New MailMessage(MailSender, Recipient)
    16. msg.IsBodyHtml = True
    17. msg.Subject = MailSubject
    18. msg.Priority = MailPriority.Normal
    20. Dim A As New Attachment(AttachImage, "ScreenShot.png")
    21. Dim RGen As New Random()
    22. A.ContentId = RGen.[Next](100000, 9999999).ToString()
    23. msg.Attachments.Add(A)
    25. Dim sb As New StringBuilder()
    26. sb.Append("<!DOCTYPE HTML PUBLIC ""-/W3C/DTD HTML 4.01 Transitional/EN"" ""http://www.w3.org/TR/html4/loose.dtd"">")
    27. sb.Append("<html>")
    28. sb.Append("<head>")
    29. sb.Append("<meta http-equiv=""Content-Type"" content=""text/html; charset=iso-8859-1"">")
    30. sb.Append("<title>Test</title>")
    31. sb.Append("</head>")
    32. sb.Append("<body>")
    33. sb.Append("<p>")
    34. sb.Append(MailMessage.Replace(vbLf, "<br>"))
    35. sb.Append("<p>")
    36. sb.Append("<img src=""cid:")
    37. sb.Append(A.ContentId)
    38. sb.Append(""">")
    39. sb.Append("</body>")
    40. sb.Append("</html>")
    42. msg.Body = sb.ToString()
    44. Try
    45. mailClient.Send(msg)
    46. Return True
    47. Catch
    48. Return False
    49. End Try
    50. End Function


    LG,
    Bruno

    Super!


    Ist es so auch ok?
    Oder habe ich etwas übersehen?


    VB.NET-Quellcode

    1. Private Sub sendEmail()
    2. Try
    3. Dim mail As New MailMessage()
    4. Dim strMsg As String = Nothing
    5. Dim img1 As LinkedResource = New LinkedResource("c:\carwash\test.png", MediaTypeNames.Image.Jpeg)
    6. Dim img2 As LinkedResource = New LinkedResource("c:\carwash\test2.png", MediaTypeNames.Image.Jpeg)
    9. img1.ContentId = "Image1"
    10. img2.ContentId = "Image2"
    13. mail.From = New MailAddress("xxxxxxxx", "C")
    14. mail.CC.Add("xxxxxxxxx")
    16. mail.Subject = "Test am: " & Date.Now.ToString ' Betreff
    19. strMsg = ""
    20. strMsg = strMsg & "<html><body><p></p>"
    21. strMsg = strMsg & "<table width='70%' border='0'>"
    22. strMsg = strMsg & "<tr>"
    23. strMsg = strMsg & "<td><h2><center><span style='color:#1C8DFF'>Umsatzdaten</span></center></h2></td>"
    24. strMsg = strMsg & "</tr>"
    25. strMsg = strMsg & "<tr>"
    26. strMsg = strMsg & "<td>&nbsp;</td>"
    27. strMsg = strMsg & "</tr>"
    28. strMsg = strMsg & "<tr>"
    29. strMsg = strMsg & "<td><img src=cid:Image1></td>"
    30. strMsg = strMsg & "</tr>"
    31. strMsg = strMsg & "<tr>"
    32. strMsg = strMsg & "<td><img src=cid:Image2></td>"
    33. strMsg = strMsg & "</tr>"
    34. strMsg = strMsg & "</table></body></html>"
    37. Dim av1 As AlternateView = AlternateView.CreateAlternateViewFromString(strMsg, Nothing, MediaTypeNames.Text.Html)
    38. av1.LinkedResources.Add(img1)
    39. av1.LinkedResources.Add(img2)
    41. mail.AlternateViews.Add(av1)
    43. mail.IsBodyHtml = True
    45. Dim smtp As SmtpClient = New SmtpClient()
    46. Dim MeineZugangsdaten As New System.Net.NetworkCredential
    47. Dim PostausgangsServer As New SmtpClient()
    49. MeineZugangsdaten.UserName = "xxxxxxx" ' Email Adresse des Absenders
    50. MeineZugangsdaten.Password = "cxxxx" ' Passwort des Absenders
    51. PostausgangsServer.Host = "xxxxxxxxx" ' PostausgangsServer bei
    52. PostausgangsServer.Port = 25
    54. PostausgangsServer.UseDefaultCredentials = False ' Keine Standard-Zugangsdaten
    55. PostausgangsServer.Credentials = MeineZugangsdaten ' Zugangsdaten setzen
    56. PostausgangsServer.Send(mail) ' Nachricht verschicke
    58. MessageBox.Show("E-Mail erfolgreich versandt.", "Information", _
    59. MessageBoxButtons.OK, MessageBoxIcon.Information)
    61. Catch ex As Exception
    62. MessageBox.Show(Err.Number & ex.Message & ex.StackTrace.ToString) ' Falls ein Fehler auftritt
    63. End Try
    64. End Sub

Facebook
Telefonspende