vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 NEU! sevCoolbar 3.0 - Professionelle Toolbars im modernen Design!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Ein- und Umsteiger
Re: Funktionsaufruf eines Code-Snippets 
Autor: ModeratorDaveS (Moderator)
Datum: 09.08.12 14:18
Anhang:  Anhangdtbl.jpg (143k)  
Du kannst ja Emails als Html schicken. Nicht jeder will das, deshalb habe ich gefragt. Wenn du Emails als Html sendest siehst du in den meisten Email Clients wie Outlook das formatierte Ergebnis (Outlook verwendet ja den Browser für die Darstellung von Html). Das kennen wir von vielen bunten Werbesendungen, Spams usw.

Was du machen willst musst du selbst entscheiden. Eine Tabelle als Text zu formatieren ist nicht unmöglich, aber das Ergebnis lässt oft etwas zu wünschen übrig. Du kannst einfach versuchen Tabs zwischen den Spalten und CrLf am Zeilenende zu setzen. Bei Daten mit unterschiedlichen Längen ist es nicht so einfach das schön hinzukriegen.

Eine Html-Email kannst du zB so senden (ich verwende hier googlemail as Smtp Server).
Wie das in Outlook dann aussieht siehst du im Anhang. 
    SendToGmail(DataTableToHtml(MyDataTable))
 
 
    Private Sub SendToGmail(body As String)
        Dim client = New SmtpClient("smtp.gmail.com", 587)
        client.EnableSsl = True
        Dim mfrom As New MailAddress("daves@myfirm.com")
        Dim mto As New MailAddress("someone@somewhere.de")
        Dim mmessage As New MailMessage(mfrom, mto)
        mmessage.IsBodyHtml = True
        mmessage.Body = body
        mmessage.Subject = "Example Html Table"
        client.Credentials = New NetworkCredential("benutzer", "passwort", "")
        Try
            client.Send(mmessage)
        Catch ex As Exception
            MsgBox("Exception is:" + ex.ToString())
        End Try
 
    End Sub
 
    Public Function DataTableToHtml(ByVal dt As DataTable) As String
        Dim sb As New System.Text.StringBuilder
 
        sb.Append("<html><body><table><tr>")
 
        For Each dc As DataColumn In dt.Columns
            sb.Append("<td>" & dc.ColumnName)
        Next
 
        For Each dr As DataRow In dt.Rows
            sb.Append("</tr><tr>")
            For ci As Integer = 0 To dt.Columns.Count - 1
                sb.Append("<td>" & dr(ci).ToString() & "</td>")
            Next
        Next
 
        sb.Append("</tr></table></body></html>")
        Return sb.ToString()
    End Function

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Funktionsaufruf eines Code-Snippets2.777steamy201009.08.12 07:32
Re: Funktionsaufruf eines Code-Snippets2.146ModeratorDaveS09.08.12 11:10
Re: Funktionsaufruf eines Code-Snippets2.184steamy201009.08.12 11:26
Re: Funktionsaufruf eines Code-Snippets2.148ModeratorDaveS09.08.12 11:52
Re: Funktionsaufruf eines Code-Snippets2.140steamy201009.08.12 12:08
Re: Funktionsaufruf eines Code-Snippets2.140ModeratorDaveS09.08.12 12:32
Re: Funktionsaufruf eines Code-Snippets2.118steamy201009.08.12 13:10
Re: Funktionsaufruf eines Code-Snippets2.995ModeratorDaveS09.08.12 14:18
Re: Funktionsaufruf eines Code-Snippets2.128steamy201009.08.12 14:39
Re: Funktionsaufruf eines Code-Snippets2.135ModeratorDaveS09.08.12 15:17
Re: Funktionsaufruf eines Code-Snippets2.139steamy201010.08.12 08:05
Re: Funktionsaufruf eines Code-Snippets2.512ModeratorDaveS10.08.12 10:33

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel