|
Hallo,
da mir auf diesem Wege schon einmal so super geholfen wurde versuche ich es doch glatt nochmal. :)
Ich habe ein VBA Code, dieser erstellt mir aus einem Tabellenblatt meiner Datei eine extra Datei und bereitet sie zum E-Mail Versand vor.
Mein Problem ist nun das ich gerne in der neuen Datei die Verknüpfungen zu anderen Tabellenblättern löschen möchte damit dort nicht die Warnung kommt das Verknüpfungen fehlen.
Code:
Sub TN-Datei()
Application.DisplayAlerts = False
Worksheets(2).Activate
ChDir Sheets("Tabelle1").Range("G6").Value
Dim TBName$, WBName$
TBName = "TN - Liste"
If TBName = "" Then Exit Sub
WBName = Sheets("Tabelle1").Range("G7").Value
If WBName = "" Then Exit Sub
Worksheets(TBName).Copy
ActiveWorkbook.SaveAs WBName, FileFormat:=xlOpenXMLWorkbook, _
Password:="x"
ActiveWorkbook.Close
Dim OutLookApp As Object
Dim OutLookMailItem As Object
Dim myAttachments As Object
Set OutLookApp = CreateObject("Outlook.application")
Set OutLookMailItem = OutLookApp.CreateItem(0)
Set myAttachments = OutLookMailItem.Attachments
With OutLookMailItem
.To = Sheets("Tabelle1").Range("G5").Value
.Subject = "TN - Liste"
.Body = "Anbei die aktuelle TN - Liste." & Chr(13) & _
Sheets("Tabelle1").Range("G4").Value
myAttachments.Add Sheets("Tabelle1").Range("G7").Value
.Display
End With
Set OutLookMailItem = Nothing
Set OutLookApp = Nothing
Worksheets(1).Activate
Application.DisplayAlerts = True
End Sub
Mfg Yenz
|