Ich habe folgendes Makro, mit dem ich eine Tabelle per Email versende:
Dim objOutlook As Object
Dim strSignature As String
Dim strDateiname As String
strDateiname = ThisWorkbook.FullName & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strDateiname, _
IncludeDocProperties:=False, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Set objOutlook = CreateObject("Outlook.Application")
With objOutlook.CreateItem(0)
.GetInspector.Display 'Signatur abfragen
strSignature = .Body 'Signatur zwischenspeichern
.To = "max@mustermann.de"
' .Cc =
' .Bcc =
.Subject = "PDF umwandeln und automatisch versenden"
.Body = "Ihr Text..." & strSignature 'Signatur wieder einfügen
.attachments.Add strDateiname
'Mail anzeigen
.Display
'mit dem folgenden Befehl kann direkt gesendet werden:
'mail.send
Kill strDateiname
End With
End Sub
Wie bewerkstellige ich es, dass anstatt des Namens der ganzen Mappe nur der Name des aktiven Blattes als PDF Name erstellt wird? Hab schon mi ActiveSheet rumgespielt aber ohne Erfolg.
Danke