Hallo zusammen,
mit Hilfe von diesem Code wird an einen bestimmten Empfänger, welcher in Zelle U1 steht, dass Tabellenblatt "unverbindliche Voranmeldung" verschickt.
Nun möchte ich, dass das Tabellenblatt ohne Zellbezüge kopiert.
Der Grund dafür liegt darin, dass nach abspeichern der empfangenen Datei, sich die Inhalte verschieben.
Danke und Grüße
Felix
VBA-Code:
Sub einzelnes_Blatt_senden()
Dim strBlatt As String
Dim strDatei 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)
strPfad = "C:\Temp"
strBlatt = "unverbindliche Voranmeldung"
Sheets(strBlatt).Copy
ActiveWorkbook.SaveAs strPfad & "\" & ActiveSheet.Name
strDatei = ActiveWorkbook.FullName
With Mail
.To = Range("V1").Value
.Subject = "unverbindliche Voranmeldung"
.BodyFormat = 2
.Attachments.Add strDatei
.Body = strBodyText
End With
Workbooks(Dir(strDatei)).Close
Kill (strDatei)
Mail.Display
End Sub