PDF als E-Mail VBA

[Semi069]

Hi Zusammen,

ich habe folgendes Problem!

Ich würde gerne jedes einzelne Tabellenblatt als PDF erstellen und als E-Mail verschicken. Derzeit erstellt er mithilfe des untenstehenden Makro eine Datei mit allen Tabellenblätter.

Was müsste ich ändern dass er mir ein Tabellblatt PDF erstellt und nicht eine DATEI PDF


Option Explicit
 
Sub pdfExport()
 
    Dim CurrentCustomerSheet As Integer
    Dim sFileName As String
       
    For CurrentCustomerSheet = 5 To Worksheets.Count
   
        'AufbauRechnung (CurrentCustomerSheet)
   
        Sheets(CurrentCustomerSheet).Select
        sFileName = ActiveSheet.Name
       
        Range("A1:I100").Select
        ActiveSheet.PageSetup.PrintArea = "$A$1:$I$100"
       
       
              
        ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            "C:\Users\ssagir\Desktop\" & sFileName, Quality:=xlQualityStandard _
            , IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish _
            :=False
           
        Application.WindowState = xlNormal
 
    Next CurrentCustomerSheet
End Sub

Wäre es ausserdem möglich anhand einer Regel (Empfänger, CC, Betreff, E-Mail Text) eine E-Mail aufzubauen?

Wenn ja, wie würde der Code in etwa aussehen, sodass ich die Regeln mit vielen IF's anlegen könnte!

Grüße

[mumpel]

Hallo!

Mal ein paar Beispiele.


1. Das aktive Tabellenblattin der aktiven Datei: ThisWorkbook.ActiveSheet.ExportAsFixedFormat
2. Ein beliebiges Blatt in der aktiven Datei: ThisWorkbook.Sheets("Tabelle2").ExportAsFixedFormat
3. Ein Tabellenblatt in einer geöffneten, nicht aktiven Datei: Workbooks("datei2.xlsm").Sheets("Tabelle1").ExportAsFixedFormat

Gruß, René

[Semi069]

Danke für die Antwort.

Aber wenn ich die verschiedenen Lösung einsetze erscheint ein Syntax Fehler

[mumpel]

Wie lautet die Fehlermeldung?

[Semi069]

.ActiveSheet.ExportAsFixedFormat hat ausgereicht ohne ThisWorkbook