Thema Datum  Von Nutzer Rating
Antwort
Rot HTML Text Indent in vba Excel
10.01.2017 11:26:32 Gast37754
NotSolved
10.01.2017 15:56:06 SJ
Solved

Ansicht des Beitrags:
Von:
Gast37754
Datum:
10.01.2017 11:26:32
Views:
953
Rating: Antwort:
  Ja
Thema:
HTML Text Indent in vba Excel

Hallo zusammen,

ich versuche in eine durch ein Excel Makro erstellt Email, welche mit HTML gestaltet wurde, einen Einzug zu machen.

Sub Mail()

Dim olApp As Object
Dim objNachricht As Object


    Set olApp = CreateObject("Outlook.Application")
    Set objNachricht = olApp.CreateItem(0)
    With objNachricht

<strong></strong>objNachricht.htmlbody = "<span style=""font-size:11pt""><font face=""Arial"">" & _
        "<p>Sehr geehrte Damen und Herren,</p>" & _
        ...<strong>
        "<p>Bilder werden wie folgt benötigt:" & _
            "<ul>" & _
                "<li>Datenformat: TIFF (Bildkomprimierung LZW), EPS, PSD, JPG oder PNG</li><li>Auflösung: mind. 300 dpi und 1500 Pixel</li><li>Mit weißem, freigestelltenm Hintergrund</li><li>Bitte bennen Sie jeden einzelne Bilddatei so, dass eine eindeutige Zuordnung der Artikel zum jeweiligen Produktfoto möglich ist (z.B. EAN / GTIN)</li>" & _
            "</ul>" & _
            "Übertragen der Bilder: <u>Bis zu 14 MB</u> direkt per Mail - auf Wunsch können wir Ihnen gernen einen Link zum bequemen Upload zukommen lassen.</p>" & _
        "<p>Bitte stellen Sie uns <b>ALLE abgefragten Informationen innerhalb von 5 Werktagen zur Verfügung</b>.</p>" & _
        "<p>Gerne stehen wir Ihnen bei Fragen zur Verfügung:<br>" & _
            "Prozess, bzw. Befüllen der Formulare: +49-211-xxx-xxxx, bzw. xxx@xxxxx.de <br>" & _
            "Bildübermittlung: +49-211-xxx-xxxx, bzw. xxx@xxxxx.de</p>"</strong>
  Set objRecipient = .Recipients.Add("Test")
        objRecipient.Type = 1
'        Set objRecipient = .Recipients.Add("") 'Mailadresse ändern falls gewünscht
'        objRecipient.Type = 2
        .Importance = 2
        .ReminderTime = Date + 1
'        '.send
        .Display
    End With
    Set objRecipient = Nothing
    Set objNachricht = Nothing

End Sub

 

Der Einzug soll die Telefonnummern bei "Prozess, bzw. Befüllen der Formulare:..." und "Bildübermittlung" auf gleicher gleicher Höhe schreiben.

Wenn ich <div style=""text-indent: 10em;""> nutze, erscheint in der Email die Telefonnummer gar nicht mehr.

Hab iht vielleicht eine Lösung parat?

Vg

Julius


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
Rot HTML Text Indent in vba Excel
10.01.2017 11:26:32 Gast37754
NotSolved
10.01.2017 15:56:06 SJ
Solved