Danke Karl-Heinz das funktioniert super. jetzt habe ich noch eine weitere Herausforderung:
Ich möchte ein PDF erstellen im Ordner des jeweilgen Excels abspeichern und anschliesend ein Mail mit dem PDF im Anhang erstellen:
-möchte nur 1 Seite (den Druckberiech) des Tabellenblatts im PDF haben (zurzei macht es alle Seiten)
-anstelle Range C3 sollte der Dateiname erschienen
-Mail soll PDF als Anhang haben
Danke für deine Hilfe.
Sub SaveAsPDF()
' Speichert Tabellenblatt als PDF und versende Mail mit PDF im Anahng
Dim DateiName As String
DateiName = ThisWorkbook.Path & Application.PathSeparator & Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".") - 1))
ThisWorkbook.ExportAsFixedFormat Type:=xlTypePDF, filename:= _
filename & Format(Now, "yyyy_mm_dd") & "_" & Sheets("Furnierte Platten").Range("B2") & "_" & Sheets("Furnierte Platten").Range("C3"), _
Quality:=xlQualityStandard, IncludeDocProperties _
:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
Dim WSh As Worksheet, WkS As Worksheet
Dim sMailtext As String, sBild As String, sSignatur As String
Dim sBer As String, iEinf As Integer
With CreateObject("Outlook.Application").CreateItem(0)
.BodyFormat = 2 'HTML-Format, Angabe optional
.Subject = "Bestellung " & WSh.Range("B4").Value 'Betreff
.To = "test@mail.com" 'Empfänger
sMailtext = "Hi ," & vbLf & vbLf & "Order for " _
& WSh.Range("B4").Value & ":" & vbLf & vbLf
.Getinspector: sSignatur = .htmlbody 'Signatur holen
.htmlbody = Replace(sMailtext, vbLf, "<br>") & sSignatur
.Display
End With
End Sub
Gruss
CH79
|