Office: Text einer Mail mit VBA formatieren

Buddhi · 18. November 2015

Hallo Zusammen,

Ich habe mir mit folgendem Mustercode eine automatische Email aus Excel in Thunderbird erstellt. Ich muss nur noch manuell auf "Senden" drücken.

Meine Frage: Wie kann ich den Text den tbBodyInhalt formatieren? Ich möchte gerne die Schriftgröße, und -Farbe ändern, sowie das ganze fett, kursiv und unterstrichen formatieren können.

Weiß jemand, wie das geht?

Vielen Dank für Eure Hilfe,

Buddhi

Code:

Sub Mail_versenden()

Dim eMailEmpfaenger As String
Dim eMailBetreff As String
Dim TbBodyInhalt As String

'Anpassen:
'************************************************************************************
eMailEmpfaenger = Sheets("USER_DATA").Range("D2")
eMailBetreff = "Heyho...automatisch versandt...der Hammer, oder?"
'eMailBetreff = ActiveSheet.Range("B2")
'Die Abschnitte: '& "%0D%0A" &' erzeugen einen Zeilenumbruch
TbBodyInhalt = ActiveSheet.Range("F2") & "%0D%0A" & _
ActiveSheet.Range("F2") & "%0D%0A" & _
ActiveSheet.Range("F2") & "%0D%0A" & _
ActiveSheet.Range("F2") & "%0D%0A" & _
ActiveSheet.Range("F2") & "%0D%0A" & _
ActiveSheet.Range("F2")

'***************************************************************************************

Range("A1").Activate
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"mailto:" & eMailEmpfaenger & "?subject=" & eMailBetreff & "&body=" & TbBodyInhalt
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Selection.Hyperlinks(1).Delete

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

:)

Beverly · 19. November 2015

Hi,

falls du als Mailprogramm Outlook verwendest, kannst du einen Tabellenbereich als entsprechend deinen Wünschen formatieren und diesen dann in HTML-Code umwandeln - nach diesem Prinzip:

Code:

Sub MailSenden()
Dim objNachricht As Object
Dim objMail As Object
Dim rngBereich As Range
' Bereich der in HTML-Code umgewandelt werden soll
Set rngBereich = ActiveSheet.Range("A1:F20")
Set objMail = CreateObject("Outlook.Application")
Set objNachricht = objMail.CreateItem(0)
With objNachricht
.To = "Deine@Mailadresse"
.Subject = "Erinnerung"
.HtmlBody = "Sehr geehrte Damen und Herren," & vbLf & RangetoHTML(rngBereich)
.ReadReceiptRequested = False
.display
'.send
End With
Set objNachricht = Nothing
Set objMail = Nothing
Set rngBereich = Nothing
End Sub

Function RangetoHTML(rng As Range)
' Changed by Ron de Bruin 28-Oct-2006
' Working in Office 2000-2007
On Error Resume Next
Dim fso As Object
Dim ts As Object
Dim TempFile As String
Dim TempWB As Workbook
TempFile = Environ$("temp") & "/" & Format(Now, "dd-mm-yy h-mm-ss") & ".htm"
'Copy the range and create a new workbook to past the data in
rng.Copy
Set TempWB = Workbooks.Add(1)
With TempWB.Sheets(1)
.Cells(1).PasteSpecial Paste:=8
.Cells(1).PasteSpecial xlPasteValues, , False, False
.Cells(1).PasteSpecial xlPasteFormats, , False, False
.Cells(1).Select
Application.CutCopyMode = False
' .DrawingObjects.Visible = True
'.DrawingObjects.Delete
On Error GoTo 0
End With

'Publish the sheet to a htm file
With TempWB.PublishObjects.Add( _
SourceType:=xlSourceRange, _
Filename:=TempFile, _
Sheet:=TempWB.Sheets(1).Name, _
Source:=TempWB.Sheets(1).UsedRange.Address, _
HtmlType:=xlHtmlStatic)
.Publish (True)
End With

'Read all data from the htm file into RangetoHTML
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.GetFile(TempFile).OpenAsTextStream(1, -2)
RangetoHTML = ts.readall
ts.Close
RangetoHTML = Replace(RangetoHTML, "align=center x:publishsource=", _
"align=left x:publishsource=")

'Close TempWB
TempWB.Close savechanges:=False

'Delete the htm file we used in this function
Kill TempFile

Set ts = Nothing
Set fso = Nothing
Set TempWB = Nothing
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Buddhi · 19. November 2015

Hallo Karin,

Vielen Dank!

Leider nutze ich weder Outlook, noch kenne ich mich mit HTML in irgendeiner Weise aus. Rein mit VBA kann man nichts machen? Ich könnte auch den Text in meiner Datei vor-formatieren, wenn er dann so in die Mail übernommen werden könnte.

Gruß,

Buddhi

Beverly · 20. November 2015

Hi,

du müsstest dann wahrscheinlich den gesamten Text in HTML-Code einbinden, aber da kann ich dir leider nicht weiterhelfen.

Luschi · 20. November 2015

Hallo Buddhi,

laut: h i e r
kann man mit dem Format-Parameter die E-Mail auf 'Html' umstellen und somit die Email wie einen bunten Vogel gestalten.

Gruß von Luschi
aus klein-Paris

Buddhi · 20. November 2015

Hallo Luschi,

Vielen Dank, aber kannst Du mir sagen, wie ich das in den Code oben einbaue und evtl. als Beispiel, wie ich den body dann fett machen würde?

Sorry, kann nur was ich aus der Praxis gelernt habe und kein HTML...

Vielleicht noch eine Frage: wie kann ich im obrigen Code die Absenderadresse bestimmen? Weiß das wer?

Gruß,

Buddhi

OfficeUser · 20. November 2015

Hallo!

Hier mal ein Beispiel.

Arbeitsblatt mit dem Namen 'E-Mail'
A B C D E
1 männlich x max@mustermann.de C:\Users\Rene\Desktop\Erklaerblatt_Abrechnungsbescheinigung.pdf
2
3 Max Mustermann

Public Sub SendHtmlMailWithThunderbird()

Dim olApp As Object
Dim strAnrede As String
Dim strName As String
Dim strFntClr As String
Dim strFntNme As String
Dim strFntWht As String
Dim strFntSiz As String
Dim strFntStl As String
Dim strFntUdl As String
Dim strCom As String
Dim strBody As String
Dim strAWS As String
Dim strTo As String
Dim strSubject As String

Rem Festlegung der Anrede
If Worksheets("E-Mail").Range("A1").Value = "männlich" Then
strAnrede = "Sehr geehrter Herr "
ElseIf Worksheets("E-Mail").Range("A1").Value = "weiblich" Then
strAnrede = "Sehr geehrte Frau "
Else
Exit Sub
End If
strName = Range("A3").Value

Rem Auslesen der Schriftgestaltung
strFntClr = FarbeInHtml(Range("A3").Font.Color)
strFntNme = Range("A3").Font.Name
strFntSiz = Range("A3").Font.Size
strFntWht = IIf(Range("A3").Font.Bold, "bold", "standard")
strFntStl = IIf(Range("A3").Font.Italic, "italic", "standard")
strAWS = Range("E1").Value

Rem Empfänger
strTo = "max@mustermann.de"

Rem Betreff
strSubject = "Ihre Unterlagen"

Rem Emailtext erstellen
strBody = strAnrede & "" & strName & ", " & _
"anbei gewünschte Unterlagen. " & _
"Mit freundlichen Grüßen, Emil Bergbauer"

Rem Email aufbauen
strCom = "C:\Program Files (x86)\Mozilla Thunderbird\Thunderbird.exe " & _
"-compose format=1,to='" & strTo & "',subject='" & strSubject & "',body='" & strBody & "',attachment='file:///" & strAWS & "'"

Rem Email erstellen
Shell strCom, vbMaximizedFocus

End Sub

Public Function FarbeInHtml(ByVal lngRGB As Long) As String
FarbeInHtml = Right$("000000" & Hex$(lngRGB), 6)
FarbeInHtml = "#" & Right$(FarbeInHtml, 2) & Mid$(FarbeInHtml, 3, 2) & Left$(FarbeInHtml, 2)
End Function

Lukas Mosimann. Projektbetreuung:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

mumpel · 20. November 2015

Nachtrag:
Die Absenderandresse wird mit "preselectid" festgelegt. (ist im ersten Beispielcode nicht eingebaut). Musst einfach probieren welche ID für das gewünschte Konto vergeben wurde.

strCom = "C:\Program Files (x86)\Mozilla Thunderbird\Thunderbird.exe " & _
"-compose format=1,preselectid=id2,to='" & strTo & "',subject='" & strSubject & "',body='" & strBody & "',attachment='file:///" & strAWS & "'"

Lukas Mosimann. Projektbetreuung:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: Text einer Mail mit VBA formatieren

Text einer Mail mit VBA formatieren

Text einer Mail mit VBA formatieren

Text einer Mail mit VBA formatieren

Text einer Mail mit VBA formatieren

Text einer Mail mit VBA formatieren - Similar Threads - Text Mail VBA

Aktuellen Datensatz als E-Mail-Text verschicken

Der Text meiner E-Mail-Nachrichten ist größer oder kleiner als normal.

Outlook-DLP-Richtlinientipps funktionieren unter bestimmten Bedingungen im E-Mail-Text und in ...

Verwenden einer Sprachausgabe zum Formatieren von Text in Ihrer E-Mail in Outlook

Japanische Zeichen in Gruppen-E-Mails sind unleserlich oder fehlen, wenn sie als Nur-Text ...

Alle E-Mails sind im Nur-Text-Format für POP3-Konten

Verwenden einer Sprachausgabe zum Formatieren von Text in Ihrer E-Mail in Outlook

Arbeitsblatt mit dem Namen 'E-Mail'
	A	B	C	D	E
1	männlich	x	max@mustermann.de		C:\Users\Rene\Desktop\Erklaerblatt_Abrechnungsbescheinigung.pdf
2
3	Max Mustermann