Thema Datum  Von Nutzer Rating
Antwort
Rot Append Text in RTFBody
 24.02.2021 10:03:36 xsus
NotSolved
24.02.2021 10:19:46 volti
NotSolved
24.02.2021 10:23:02 xsus
NotSolved
24.02.2021 11:10:02 volti
NotSolved

Ansicht des Beitrags:
Von:
xsus		 Datum:
24.02.2021 10:03:36		 Views:
931		 Rating:
     
Antwort:
  Ja
Thema:
Append Text in RTFBody

Hallo, 

 

 Set olNewMailItem = Application.CreateItem(olMailItem)
    Select Case myItem.BodyFormat
        Case olFormatHTML
            olNewMailItem.HTMLBody = "Hallo," & "<br>" & "<br>" & "ist erledigt." & "<br>" & "<br>" & "Viele Grüße" & "<br>" & "NAME" & "<br>" & "<br>" & "____________" & "<br>" & "<br>" & myItem.HTMLBody
        Case olFormatRichText
            olNewMailItem.RTFBody = "Hallo," & vbCrLf & vbCrLf & "ist erledigt." & vbCrLf & vbCrLf & "Viele Grüße" & vbCrLf & "NAME" & vbCrLf & vbCrLf & "____________" & vbCrLf & vbCrLf & myItem.RTFBody
        Case Else
            olNewMailItem.Body = "Hallo," & vbCrLf & vbCrLf & "ist erledigt." & vbCrLf & vbCrLf & "Viele Grüße" & vbCrLf & "NAME" & vbCrLf & vbCrLf & "____________" & vbCrLf & vbCrLf & myItem.Body
    End Select
    olNewMailItem.Subject = "Erledigt: " & myItem.Subject

 

Den Code verwende ich, um einen Button zu haben, wo ich einfach den Betreff um Erledigt ergänze und vor die eigentliche Mail einen kurzen Satz schreibe ala: Hallo, ist umgesetzt, VG XSUS

 

Bei RTF knallt es - wie müsste ich da vorgehen? 

Ferner wird mein eingefügter Text mit Calibri 10 geschrieben -> kleiner als meine Standardeinstellung für neue Mails --> 11. 

Wie könnte ich das wohl bei den drei Arten beinflussen? Es soll möglichst simple bleiben und funktionieren, nicht der perfekte Code werden :-)

 

Danke!

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 Append Text in RTFBody
 24.02.2021 10:03:36 xsus
NotSolved
24.02.2021 10:19:46 volti
NotSolved
24.02.2021 10:23:02 xsus
NotSolved
24.02.2021 11:10:02 volti
NotSolved