Ich habe da ein Problem und hoffe mir kann jemand Helfen.
Ich transferiere meine Tabelle in ein Word Dokument und benenne dieses doc. dann über eine Inputtbox um. Das Funktioniert alles prima. Ich würde jetzt gerne nachdem die Datei umbenannt ist, diese sofort in Outlook als Anlage einfügen. So das ich nur noch Emfänger anwählwn muss um Sie dann zu senden. Leider Habe ich keinen Blassen Schimmer wie das gehen könnte. Hier noch mal der Code mit welchem ich das Doc. umbenenn:
Sub Umbenennen()
Dim strFile As String, strPath As String, strExt As String
Dim newName As String, strNew As String
strFile = "J:\Störbericht\Eilmeldung.doc"
If Dir(strFile) = "" Then Exit Sub
newName = InputBox("Eilmeldung neuer Name ist:", "Umbenennen", "Eilmeldung SB-" & Date & "/")
If newName "" Then
strPath = Left(strFile, InStrRev(strFile, "\"))
strExt = Mid(strFile, InStrRev(strFile, "."))
strNew = Left(newName, InStrRev(newName, "") - 1)
Name strFile As strPath & strNew & strExt
End If
End Sub
Ich hoffe mir kann jemand helfen.
Grüße Karl