Login

***Leonhard*** · 14.01.2019, 18:31

Hallo zusammen,

ich stehe wieder vor einer für mich unlösbaren Aufgabe.. Ich würde gerne den folgenden Code so anpassen das es wie eine Tabelle formatiert wird.

Anschrift: ABC Anschrift
Miete: 2.000 €
…

Code:
"<b>Anschrift:</b> " & Tabelle1.Cells(rngCell.Row, 6).Value & " " & Tabelle1.Cells(rngCell.Row, 7).Value & " " & Tabelle1.Cells(rngCell.Row, 8).Value & _
"<b><br>NF 2: </b>" & Tabelle1.Cells(rngCell.Row, 9).Value & _
"<b><br>Miete (netto):</b> " & Tabelle1.Cells(rngCell.Row, 10).Value & _
"<b><br>m²-Preis:</b> " & Tabelle1.Cells(rngCell.Row, 6).Value & _

das müsste i-wie über

Klaus-Dieter · Registriert seit: 11.04.2014 Version(en): Office 365

Hallo Leo,

das soll HTML-Quelltext werden? Das würde dann so aussehen:

Code:
<html>
<head>
<title>Tabelle1</title>
<style type="text/css">
<!--
td.fnrbC11c1bg0 { font-family:Calibri; font-size:11pt; font-weight:normal; background-color:#FFFFFF; color:#000000; text-align:right; vertical-align:bottom; }
td.fnrbT10c56bg0 { font-family:Tahoma; font-size:10pt; font-weight:normal; background-color:#FFFFFF; color:#333333; text-align:right; vertical-align:bottom; }
//-->
</style>
</head>
<body>
<table border>
<tr>
<td class="fnrbT10c56bg0">Anschrift:</td>
<td class="fnrbC11c1bg0">ABC Anschrift</td>
</tr><tr>
<td class="fnrbT10c56bg0">Miete:    </td>
<td class="fnrbC11c1bg0">2000</td>
</tr>
</table>
<br><h4>Letzte Änderung am 14.01.20</h4>
</body>
</html>

Die Anwendung, mit der ich das mache, findest du hier: Web-Tabellen erzeugen

***Leonhard*** · 14.01.2019, 18:48

Hallo Klaus Dieter,

das soll in einer Mail (Outlook) formatiert werden. Also htmlbody?

Bin da nicht wirklich in der Materie Blush

Klaus-Dieter · 14.01.2019, 18:57

Hallo Leonhard,

mit Outlook arbeite ich nicht. In meinem Mail-Browser kann man mehr oder weniger schöne Tabellen direkt einfügen. Meine Anwendung ist mehr für Internetseiten gedacht. Der Quelltext kommt dann teils in den Head-Bereich, teils in den Body.

***Leonhard*** · 15.01.2019, 09:24

(14.01.2019, 18:48)Leonhard schrieb: das soll in einer Mail (Outlook) formatiert werden. Also htmlbody?

Hallo, :19:

dann so: :21:

Mail Range/Selection in the body of the mail...

Ansonsten musst du das in HTML aufbauen: :21:

HTML - Tabellen...

***Leonhard*** · 15.01.2019, 10:51

Puhh, auf den ersten Blick sehr komplex Sleepy

Ich schaue es mir gleich mal, vielen Dank.

***Leonhard*** · 15.01.2019, 12:19

Hi Case,

eine Frage noch bevor ich mich daran versuche die Informationen aus dem von dir geschickten Link in den aktuellen Code einzuarbeiten:
Ist es denn überhaupt möglich den folgenden Code dahingehend anzupassen, dass der Bereich (im Code unter .htmlbody nach links eingerückt) als Tabelle formatiert wird?
Ich hoffe ich blamiere mich mit der Frage nicht allzu sehr Undecided

Code:
Private Sub Mail_generieren()
    Dim strOldBody As String
    Dim objOutApp As Object
    Dim lngRow As Integer
    Dim rngDatum As Range
    Dim rngCell As Range
    On Error GoTo Fin
    With Tabelle1
        lngRow = .Cells(.Rows.Count, 1).End(xlUp).Row
        Set rngDatum = .Range("A2:A" & lngRow)
        For Each rngCell In rngDatum
            If IsDate(rngCell) Then
                If rngCell.Value <= DateAdd("m", 6, Date) And rngCell.Offset(0, 3).Value = "" Then
                    Set objOutApp = CreateObject("Outlook.Application").CreateItem(0)
                    With objOutApp
                        .GetInspector.Display
                        strOldBody = .htmlbody
                        .To = Tabelle1.Cells(rngCell.Row, 2).Value
                        .Subject = "Kundenakquise - " & Tabelle1.Cells(rngCell.Row, 3).Value
                       .htmlbody = "Guten Tag,<br><br>" & _
                            "dies ist eine automatische Erinnerung " & _
                            "sich bei dem Kunden<b> " & Tabelle1.Cells(rngCell.Row, 3).Value & _
                            " </b>zu melden, da dessen Mietvertrag kurz vor dem Auslauf" & " <b>(" & "" & Tabelle1.Cells(rngCell.Row, 1).Value & ")</b>" & _
                            " steht.<br>" & _
                            "Sollte der Mieter sein Optionsrecht wahrnehmen, ändern Sie das Fälligkeitsdatum bitte auf das durch die Optionsziehung angepasste Datum." & _
                            " Nachfolgend alle Mietdetails:<br><br>" & _
                 "<b>Anschrift:</b> " & Tabelle1.Cells(rngCell.Row, 6).Value & " " & Tabelle1.Cells(rngCell.Row, 7).Value & " " & Tabelle1.Cells(rngCell.Row, 8).Value & _
                 "<b><br>NF 2: </b>" & Tabelle1.Cells(rngCell.Row, 9).Value & _
                 "<b><br>Miete (netto):</b> " & Tabelle1.Cells(rngCell.Row, 10).Value & _
                 "<b><br>m²-Preis:</b> " & Tabelle1.Cells(rngCell.Row, 6).Value & strOldBody

                        .Display
                        '.Send ' Sofort senden
                    End With
                    .Cells(rngCell.Row, 4).Value = Now
                End If
            End If
        Next rngCell
    End With
Fin:
    Set objOutApp = Nothing
    If Err.Number <> 0 Then MsgBox "Fehler: " & _
        Err.Number & " " & Err.Description
        
   

End Sub

***schauan*** · 16.01.2019, 20:16

Hallöchen,

ja, einfach mal ausprobieren was da alles möglich ist und ob es Deinen Vorstellungen entspricht.

17.01.2019, 08:20

(15.01.2019, 12:19)Leonhard schrieb: Ich hoffe ich blamiere mich mit der Frage nicht allzu sehr

Hallo Leonhard, :19:

nein - keine Sorge. Ich blamiere mich fast jeden Tag - und lebe noch. Und das ziemlich entspannt und gelassen. :21:
Eine Möglichkeit ist z. B. die Adressdaten temporär in einem leeren Bereich der Tabelle zu sammeln (per VBA) und diesen Range dann der Funktion zu übergeben. Wenn du konkrete Fragen hast, oder ein Beispiel brauchst melde dich. :21:

***Leonhard*** · 17.01.2019, 12:19

Hallo zusammen,

ich bekomme es ehrlich gesagt nicht mal hin das über der Tabelle noch mittels StrBody ein paar Textzeilen (wie von Ron de Bruin beschrieben) eingefügt werden..
Die Tabelle über die feste Range in der Mail einzufügen klappt super, dann scheitere ich kläglich Dodgy

Problem dabei ist auch das ich eben keine feste Range in der Mail will sondern eben nur die einer Zeile zugehörigen Informationen wenn die Datumsbedingung erfüllt ist.

Beste Grüße
Leo

Login
Benutzername:
Passwort:	Passwort vergessen?
	Merken