|
Hallo ralf_b,
ich meinte natürlich in meinem vorherigen Beitrag natürlich das Makro, da hatte ich wohl einen Buchstabendreher drin.
Der Code sieht jetzt so aus:
Sub Mail_erstellen()
End Sub
Dim sDateiname As String
Dim sPfad As String
sPfad = "c:\Temp\"
sDateiname = "Test.pdf"
'++ PDF erzeugen vom aktuellen Tabellenblatt
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=sPfad & sDateiname, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True
With CreateObject("Outlook.Application")
With .CreateItem(0)
.To = "aline.martin@amco.one"
.Subject = sDateiname
.BodyFormat = 2
.Attachments.Add sPfad & sDateiname
.Display
End With
End Sub
Es kommt aber auch wieder zu einer Fehlermeldung.
Fehler bei Kompilieren:
Nach End Sub, End Function oder End Property können nur Kommentare stehen.
Ich bin ja komplette VBA Neuling, kann damit nicht so viel anfangen.
Ist es möglich, dass das Tabellenblatt als Excel Datei (kein pfd) an die Mail rangehängt wird? Ich brauche die Datei im Excel Format um dann anschließend um über ein Power Query, die Daten abzuziehen.
Vielen liebe Dank für Eure Hilfe.
Aline
|