|
VBA bringt nun die Meldung:
Fehler beim Kompilieren: Ungültiger Bezeichner
Und markiert mir die im Code unten angeführten Zeilen in Gelb.
Also jetzt weiß ich dann wirklich nicht mehr weiter.... :(
Sub einzelnes_Blatt_senden()
'** Das aktive Tabellenblatt wird über Outlook versendet
'** Dimensionierung der Variablen
'Dim strBlatt As String
Dim strPDF As String
Dim strPfad As String
Dim outObj As Object
Dim Mail As Object
Dim strBodyText As String
Set outObj = CreateObject("Outlook.Application")
Set Mail = outObj.CreateItem(0)
'++ Dateiname
Dim Dateiname As String
Dateiname = Range("AA2")
'++ PDF erzeugen vom aktuellen Tabellenblatt
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\TEMP\" & Dateiname, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
'++Pfad der Zwischenspeicherung
strPfad = "C:\TEMP\"
'** Pfad und Dateiname der neuen Datei zwischenspeichern
strPDF = strPfad & Dateiname & ".pdf"
MsgBox strPDF
'** Body-Text festlegen
strBodyText = Range("AZ2")
'** Mail erzeugen
With Mail
.To = ""
.CC = ""
.Subject = Dateiname
.BodyFormat = 2
.Attachments.Add strPDF
.Body = strBodyText
End With
'** Erzeugte und geöffnete PDF Datei schließen
strPDF.Close
'** Erzeugte Datei wieder löschen
Kill (strPDF)
'** E-Mail anzeigen
Mail.Display
'++ Objektvariablen wieder löschen
Set outObj = Nothing
Set Mail = Nothing
End Sub
|