vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 SEPA-Dateien erstellen inkl. IBAN-, BLZ-/Kontonummernprüfung  
 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: 10.08.12 10:33
    Dim MailText as String = DataTableToHtml(MyDataTable)
    Mail_Erstellen("xxxx@yyy.com", "Die Daten", MailText)
    Public Function Mail_Erstellen(ByVal MailAdresse As String, ByVal Betreff _
      As String, ByVal MailText As String) As Boolean
        Try 
            Dim out As New Interop.Outlook.Application
            Dim m As Interop.Outlook.MailItem
            m = CType(out.CreateItem(Interop.Outlook.OlItemType.olMailItem), _
              Interop.Outlook.MailItem)
            m.Subject = Betreff
            m.HTMLBody = MailText
            m.Display()
            m.To = MailAdresse
            m.Recipients.ResolveAll()
            m.Send()
            Return True
        Catch eex As Exception
            Return False
        End Try
    End Function
 
    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.776steamy201009.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.994ModeratorDaveS09.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