Mail schreiben, Tab setzen

mtremer · 2006-11-02T15:04:59+00:00

Hallo Excel-Freunde, ich habe mal wieder eine Frage zum Schreiben einer Mail: Wie bekomme ich es hin, dass ich unter "Mit freundlichen Grüssen" zwei Namen darunter setze? OK, zwei Namen sind ja einfach ;-) Aber: unter beide Namen kommen die Abteilungen. Diese beiden Zeilen sollen exakt untereinander stehen, die Namen und Abteilungen ca. 10cm auseinander. Genau wie in einem Geschäftsbrief... Hier mein Code: Private Sub CommandButton6_Click() Dim Nachricht As Object, OutApp As Object Set OutApp = CreateObject("Outlook.Application") Dim AWS As String Set Nachricht = OutApp.CreateItem(0) With Nachricht .SentOnBehalfOfName = .To = .CC = .Subject = strTxt = "Sehr geehrte Damen und Herren," & strTxt = strTxt & " " 'strTxt = strTxt & "Mit freundlichen Grüßen" & " " 'strTxt = strTxt & " " .Htmlbody = strTxt .Display End With Danke für Eure Mühe. Viele Grüße Marco

Hallo Marco,
wenn du htmlbody verwendest, kannst/musst du den Text mit HTML-Tags formatieren. Zum Ausrichten der Texte käme da am ehesten eine Tabelle ohne Rahmen in Frage. Für zwei Zeilen nach dem Muster

Hans Maier             Peter Wolf
Abteilung 1            Abteilung 2

würde das dann ungefähr so aussehen:

Sub test()
Dim olApp As Object
Dim olMail As Object
Dim strBody As String
Set olApp = GetObject(, "Outlook.Application")
Set olMail = olApp.CreateItem(0)
strBody = "<table width=""50%""><tr><td>Hans Maier</td><td>Peter Wolf</td></tr>" & _
"<tr><td>Abteilung 1</td><td>Abteilung 2</td></tr></table>"
olMail.htmlbody = strBody
olMail.Display
Set olMail = Nothing
Set olApp = Nothing
End Sub

Folgende HTML-Tags werden dabei verwendet:

<table width="50%">	</table>	Anfang und Ende der Tabelle (Tabellenbreite=50% der Gesamtbreite)
<tr>	</tr>	Anfang und Ende einer Tabellenzeile innerhalb der Tabelle
<td>	</td>	Anfang und Ende einer Tabellenspalte innerhalb der Tabellenzeile

Gruß Ingolf

Hallo Marco,
<i>So kriegst du Kursivschrift hin. "i" steht für "italic" (engl.)</i>
Das mit der Einrückung ist dagegen schwierig. Sie entsteht dadurch, dass die Tabelle einen Rahmen hat, auch wenn man den nicht sieht. Alles was mir dazu einfällt ist, auch den Rest der eMail in eine Tabelle zu packen, so dass alles gleich eingerückt ist. Dann musst du allerdings für jeden Absatz eine eigene Tabelle anlegen. Außerdem kannst du keinen Fließtext mehr verwenden, sondern musst die Zeilenumbrüche von Hand steuern. Hier mal ein Beispiel:

Sub test()
Dim olApp As Object
Dim olMail As Object
Dim strBody As String
Set olApp = GetObject(, "Outlook.Application")
Set olMail = olApp.CreateItem(0)
strBody = _
"<table width=""100%"">" & _
   "<tr><font face=""Arial"">Sehr geehrte Damen und Herren,<font face=""Arial""></tr>" & _
"</table><br>" & _
_
"<table width=""100%"">" & _
   "<tr> </tr>" & _
   "<tr><font face=""Arial"">anbei der gewünschte Geschäftsbericht für das 3. Quartal 2006." & _
   "</font></tr>" & _
   "<tr><font face=""Arial"">Wir bitten um Rückmeldung innerhalb einer Woche.</font></tr>" & _
"</table><br>" & _
_
"<table width=""100%"">" & _
   "<tr><font face=""Arial"">Im Auftrag der Geschäftsleitung</font></tr>" & _
"</table><br>" & _
_
"<table width=""50%"">" & _
   "<tr><td><font face=""Arial"">Hans Maier</font></td><td><font face=""Arial"">Peter Wolf" & _
   "</font></td></font></tr>" & _
   "<tr><td><font face=""Arial"">Abteilung 1</font></td><td><font face=""Arial"">Abteilung 2" & _
   "</font></td></font></tr>" & _
"</table>"
olMail.htmlbody = strBody
olMail.Display
Set olMail = Nothing
Set olApp = Nothing
End Sub

Gruß Ingolf

Forumthread: Mail schreiben, Tab setzen

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Mail mit Tabulatoren in Excel VBA erstellen

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)