Thema Datum  Von Nutzer Rating
Antwort
27.06.2017 09:05:44 vba_trainee85
NotSolved
27.06.2017 10:37:12 SJ
NotSolved
27.06.2017 10:41:51 Gast70485
NotSolved
Blau Email per VBA Tabellen Formatierungen verschieben sich
 27.06.2017 11:08:01 SJ
NotSolved
27.06.2017 12:20:11 Gast93312
NotSolved
27.06.2017 12:22:53 Gast85149
NotSolved
27.06.2017 12:41:27 SJ
NotSolved
28.03.2022 10:00:50 Gast85615
NotSolved

Ansicht des Beitrags:
Von:
SJ		 Datum:
27.06.2017 11:08:01		 Views:
935		 Rating:
     
Antwort:
  Ja
Thema:
Email per VBA Tabellen Formatierungen verschieben sich

Da ich nun nicht genau weiß, was du da machst, habe ich eine kleine Tabelle nachgebaut:

Option Explicit

Public Sub create_mail()
    Dim appOut As Outlook.Application
    Dim outMail As Outlook.MailItem
    
    Set appOut = CreateObject("Outlook.Application")
    Set outMail = appOut.CreateItem(olMailItem)
    
    With outMail
        .HTMLBody = "" & _
            "<table border=""1"">" & _
                "<tr>" & _
                    "<th>Firstname</th>" & _
                    "<th>Lastname</th>" & _
                    "<th>Age</th>" & _
                "</tr>" & _
                "<tr>" & _
                    "<td style=""width:50px"">Jill</td>" & _
                    "<td style=""width:50px"">Smith</td>" & _
                    "<td style=""width:25px"">50</td>" & _
                "</tr>" & _
                "<tr>" & _
                    "<td style=""width:50px"">Eve</td>" & _
                    "<td style=""width:50px"">Jackson</td>" & _
                    "<td style=""width:25px"">94</td>" & _
                "</tr>" & _
            "</table>"
        .Display
    End With
    
    Set outMail = Nothing
    Set appOut = Nothing
End Sub

Das Ergebnis sieht so aus:

Sieht für mich alles in Ordnung aus.

Viele Grüße

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
27.06.2017 09:05:44 vba_trainee85
NotSolved
27.06.2017 10:37:12 SJ
NotSolved
27.06.2017 10:41:51 Gast70485
NotSolved
Blau Email per VBA Tabellen Formatierungen verschieben sich
 27.06.2017 11:08:01 SJ
NotSolved
27.06.2017 12:20:11 Gast93312
NotSolved
27.06.2017 12:22:53 Gast85149
NotSolved
27.06.2017 12:41:27 SJ
NotSolved
28.03.2022 10:00:50 Gast85615
NotSolved