Datei zum Versenden umbennen
16.02.2021 16:11:02
Blume
ich habe eine Frage, ist es möglich die Datei umzubenennen ohne sie zwischendurch zu speichern?
Hier der Code, den ich aktuell verwende:
Sub Mappe_versenden_als_EMail()
' Verweis auf Microsoft Outlook Bibliothek setzen
Dim objOL As Object
Dim objMail As Object
Dim Bezeichnung As String ' 1) oder As Range
Dim MAdr As String ' 2) oder As Range
Set objOL = CreateObject("Outlook.Application")
Set objMail = objOL.CreateItem(0)
'Set Bezeichnung = [Tabelle1!G27] ' 1)
Bezeichnung = ActiveWorkbook.Name
'Set MAdr = [Tabelle1!A2] ' 2)
MAdr = "Mail@adresse"
Application.ScreenUpdating = False
With objMail
.To = MAdr
.Subject = Range("B3") & " " & Range("D3") & " Zettel " & Date & " " & Time
.Body = "Text"
.Attachments.Add ActiveWorkbook.FullName
.Send ' Display für Indirektversand oder .Send für Direktversand
End With
' Meldung:
MsgBox ("Die Daten wurden erfolgreich versendet.")
Application.Goto Sheets("Eingabe").Range("C5")
Application.ScreenUpdating = True
ActiveWorkbook.Save
End Sub
.Attachments.Add ActiveWorkbook.FullName
noch etwas zu ergänzen, damit der Name gleich bleibt aber in der Datei die man verschickt die Datei noch den Namen und beispielsweise das Datum oder den Text der Zelle B3 hat?