VBA: Wie single line spacing in Outlook-E-Mail?

Erstelle ich eine E-Mail aus Excel. Sobald die E-Mail erstellt wurde, die ich brauche, um einen Kommentar hinzuzufügen oder zwei an der Spitze. Ich habe herausgefunden, wie man die schriftart-Stil, aber Outlook ist das hinzufügen einer doppelten Zeilenabstand auf Carriage Return, die ich wirklich nicht wollen. Wie kann ich dies ändern?

Folgenden Code:

Sub CreateDailyEmail()

    Dim oApp As Object
    Dim oMail As Object

    Set oApp = CreateObject("Outlook.Application")
    Set oMail = oApp.CreateItem(0)

    With oMail
        .To = Range("EMAIL_TO")
        .Cc = Range("EMAIL_CC")
        .Subject = Range("EMAIL_SUBJECT")
        .Attachments.Add (Range("PATH"))
        .HTMLBody = "<p style=""font-family: Calibri; font-size: 14px; color: #00f; line-height: 1;""><br /></p>" & RangetoHTML(ActiveWorkbook.Worksheets("Daily").Range("B6:H65"))
        .Display
    End With

    Set oMail = Nothing
    Set oApp = Nothing

End Sub

Können Sie uns einige Beispiel für die Ausgabe von HTML (d.h. HTMLBody) für die Referenz?
Sie haben p und auch br tag, so dass es produziert 2 Linie Pausen - oder vielleicht verstehe ich nicht die Frage, also +1 zum Beispiel HTML oder ein screenshot von dem problem.

InformationsquelleAutor Richard H | 2012-07-30

Es sieht aus wie Sie mit den exzellenten Ron De Bruin-code für das senden und E-Mail aus Excel (daher der RangetoHTML() Formel).

Ich habe mit diesem gleichen code, die gefunden werden können bei http://www.rondebruin.nl/win/s1/outlook/mail.htm

Statt mit Absatz-HTML-tags in der .HTMLBody verwenden, body-tags, und legen Sie die Zeilenhöhe auf 1. Dann, wenn die RangetoHTML gibt den Bereich, den Sie wollen, es wird nur getrennt vom text ein, den Sie haben, von einem einzigen Raum!
Das macht der code....

Sub CreateDailyEmail()

Dim oApp As Object
Dim oMail As Object

Set oApp = CreateObject("Outlook.Application")
Set oMail = oApp.CreateItem(0)

With oMail
    .To = Range("EMAIL_TO")
    .Cc = Range("EMAIL_CC")
    .Subject = Range("EMAIL_SUBJECT")
    .Attachments.Add (Range("PATH"))
    .HTMLBody = "<body style=""font-family: Calibri; font-size: 14px; color: #00f; line-height: 1;""><br />" & RangetoHTML(ActiveWorkbook.Worksheets("Daily").Range("B6:H65")) & "</body" & .HTMLBody
    .Display
End With

Set oMail = Nothing
Set oApp = Nothing

End Sub

InformationsquelleAutor Steve Irwin

0

Ich bin mir nicht ganz sicher, ob ich verstehe, was Sie Fragen, ich bin nicht sicher, wenn gibt die Beförderung sind die in der Zellen aus dem excel-Blatt oder nur in den html-Code in outlook, aber es gibt zwei Ansätze in meinem Kopf:

Können Sie ersetzen Absatzmarken und Zeilenumbrüche in einer Zelle(http://stackoverflow.com/questions/2321078/how-can-i-remove-blank-line-breaks-from-an-excel-cell-with-vb-or-a-formula
), um mit viel Abstand Probleme, z.B.
```
Substitute(Substitute(A1, CHAR(10), ""), CHAR(13), "")
```
Wenn es passiert in der html-Teil des Dokuments, dann ist es ein outlook-spezifisches Problem, als ein html-Beispiel mit deinen Einstellungen funktioniert Prima:
```
<!DOCTYPE html>

<html>

<head>

<meta name="description" content="A Jack Orange 

Lantern Example" />

<style type="text/css">

p
{
font-family: "Calibri"; 
font-size: 20px;
color: #00f;
line-height: 1;
} 

</style>


</head>

<title> What's Up? </title>

<body>



 This is totally a paragraph 

 this is totally a paragraph + a line 

break 

 this is totally a paragraph with a line break 

afterwards 

 Totally... yeah. 

</body>

</html>
```
Für outlook sollten Sie in der Lage sein, Sie zu ersetzen Absatzmarken mit der Ersetzen-Funktion:
```
stringNewText = Replace(stringOldText, vbCr, "")
```
Vielleicht:
```
stringNewText = Replace(stringOldText, vbCr, )
```
Oder, alternativ:
```
stringNewText = Replace(stringOldText, vbCr, vbCrLf)
```
In der MSDN-Dokumentation bezieht sich unmittelbar auf die Ersatz-Funktion im Microsoft-tutorial auf die Arbeit mit Element Körper: http://msdn.microsoft.com/en-us/library/office/dd492012(v=office.12).aspx

Anleitung auf vbaexpress scheint zumindest peripher-Adresse dieses Problem, und kann weitere Erläuterungen: http://www.vbaexpress.com/forum/showthread.php?t=39348

InformationsquelleAutor JackOrangeLantern

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.