Hallo zusammen.
Ich habe folgenden Code der eine Excel-Datei im C:Temp speichert und diese dann als Anhang an ein Mail anhängt. Die Datei wird als .xltm aus dem Sharepoint geladen und sollte dann als .xlsm gespeichert werden. Bis jetzt hat dies auch funktioniert. Doch plötzlich wird die Datei als .231 Datei gespeichert. Ich habe keine Ahnung an was es liegt. Könnt ihr mir helfen? Besten Dank. Gruss Jarod
Private Sub MailFS_Click()
Dim Nachricht As Object, OutlookApplication As Object
Dim Anhang As String, Pfad As String
Pfad = "c:\temp\"
Anhang = ThisWorkbook.FullName ' Ist noch ohne Endung
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=Pfad & Anhang, FileFormat:= _
xlOpenXMLWorkbookMacroEnabled
Application.DisplayAlerts = True
Anhang = ThisWorkbook.FullName ' komplett mit Pfad und Endung
Set OutlookApplication = CreateObject("Outlook.Application")
Set Nachricht = OutlookApplication.CreateItem(0)
With Nachricht
.To = "xxxxxxxxx@xxxxxxx"
.Subject = "Wertschriften-Eröffnungsauftrag (Datei in Kundenordner speichern)"
.attachments.Add Anhang
.Display
'.Mail.Send
End With
Set OutlookApplication = Nothing
Set Nachricht = Nothing
End Sub