Email formatieren
01.05.2014 22:29:30
Oliver
bevor ich meine Frage stelle. Vielen Dank an die vielen Profis unter Euch, Ihr habt mir das Leben schon so einige Male sehr viel einfacher gemacht in dem ich in diesem Forum etwas lernen konnte.
Nun zu meiner Frage...
Ich habe folgenden Code zur Erstellung eines PDF und zum anhängen an eine Email. Leider ist es mir bisher noch nicht gelungen, die Email anschließend in ein Format (bei mir Schriftart "Calibri"; Schriftgröße "11") zu formatieren. Ich würde mich sehr über Hilfe von Euch freuen.
HIER MEIN CODE:
Sub AlsPDFSpeichern_und_email_begruessung()
Dim pdfName As String
Dim pdfOpenAfterPublish As Boolean
Dim olApp As Object
Dim olOldBody As String
Sheets("Begrüßung").Visible = True
Sheets("Begrüßung").Select
Rem Rückfragen, ob Datei nach dem Erstellen geöffnet werden soll
If MsgBox("Soll die PDF-Datei nach dem Erstellen angezeigt werden?", vbYesNo, "PDF anzeigen?") = _
vbYes Then pdfOpenAfterPublish = True
Rem Pfad und Name der PDF-Datei
pdfName = ThisWorkbook.Path & "\" & Cells(2, 1).Value & "_" & ActiveSheet.Name & ".pdf"
Rem PDF-Datei erstellen. Funktioniert nur in Excel 2007 oder höher, nicht in Excel 2003 oder ä _
lter
'ActiveWorkbook.ExportAsFixedFormat
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfName, _
Quality:=xlQualityStandard, IncludeDocProperties:=False, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=IIf(pdfOpenAfterPublish, True, False)
Sheets("tabellendaten").Select
Rem Email erstellen
Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)
.GetInspector.Display
olOldBody = .HTMLBody
.To = Range("A5").Value
.CC = Range("Z2").Value
.Subject = Range("I2").Value
.HTMLBody = Range("I3").Value & "
" & Range("I4").Value & "
" & _
Range("I5").Value & olOldBody
.Attachments.Add pdfName
End With
Rem Boolean-Variable "pdfOpenAfterPublish" zurücksetzen
pdfOpenAfterPublish = False
Sheets("daten").Select
hilfebegruessung.Show
End Sub