Tabellenblatt als Email Anhang
15.03.2017 22:25:54
Felix
ich brauch mal wieder Eure Hilfe, da ich mir die Zähne an einem Problem ausbeiße.
Ich möchte ein Tabellenblatt an Outlook als Attachment übergeben. Das Attachment soll einen bestimmten haben.
Das kopieren der Datei und die Übergabe an Outlook funktionieren, aber ich den Dateinamen bekomme ich nicht verändert.
Muß die neu erstellte Datei dafür nicht nur umbenannt, sondern auch gespeichert werden?Wenn ja habe ich das nächste Problem, da ich auf Grund unserer IT nur auf Desktop oder "eigene Dateien" etwas zwischenspeichern kann. Dort sollte es dann auch gelöscht werden.
Ich hoffe ich mein Problem verständlich darlegen. Danke schon mal vorweg.
Hier der Code:
Option Explicit
Sub OL_Export()
'Define Variables
Dim Target As Object
Dim Source As Object
Dim Orderlist As Worksheet
Dim ProcessID As String
Dim Windfarm As String
Dim Package As String
Dim Adress As String
Dim n As Name
Dim Filename As String
ProcessID = Range("processID")
Windfarm = Range("Windfarm")
Package = Range("package")
Adress = Range("adress")
Filename = Format(ProcessID, "000") & " - " & Windfarm & " - " & Package & " - " & "Order _
list"
'Neues Arbeitsblatt erstellen
Sheets.Add after:=Worksheets(Worksheets.Count)
'Define Source & Target - Target benennen
Set Source = ThisWorkbook.Worksheets(1)
Set Target = Worksheets(Worksheets.Count)
Target.Name = Format(ProcessID, "000") & " - " & "Order list"
'Quellbereich kopieren
Source.Columns("B:BD").Copy
Target.Paste Destination:=Sheets(Worksheets.Count).Columns("A:A")
Application.CutCopyMode = False
'Copy and Paste Header
Source.Range("D4:D8").Value = Target.Range("C4:C10").Value
Source.Range("f4:f8").Value = Target.Range("e4:e10").Value
'Überflüssige Spalten löschen
Target.Columns("AC:BB").Delete
'Zeilenhöhe Zeile 1 anpassen
Target.Rows("1:1").RowHeight = 40
'Alle benannte Bereiche löschen
For Each n In Target.Names
n.Delete
Next
'Target an email übergeben Mail
Target.Copy
ActiveWindow.Caption = Filename
Application.Dialogs(xlDialogSendMail).Show Adress, Format(ProcessID, "000") & " - " & _
Windfarm & " - " & Package & " - " & "Order list"
'Target löschen
Application.DisplayAlerts = False
Target.Delete
Application.DisplayAlerts = True
End Sub