ich habe eine Datei im format *.AKB (es handelt sich um eine xltextMSDOS also eine txt Datei)
diese Datei erstelle ich über Excel und lege sie im Ordner
s:\bg2.1\DTA\files\ ab
der Name der Datei is variabel und wird über
Dim f As String
f = Cells(13, 4) & ".AKB"
Set rngSource = Range(Cells(19, 9), Cells(mark - 1, 9))
Application.ScreenUpdating = False
Workbooks.Add
rngSource.Copy ActiveSheet.Range("A1")
'Datei als txt speichern
ActiveWorkbook.SaveAs "s:\BG2.1\DTA\Files\" & f, xlTextMSDOS erstellt.
wenn ich die datei jetzt mit
activeworkbook.sendmail "xxx@xx.x"
verschicke, werden zeilen in denen ein komma steht beim empfänger in der datei in "" gesetzt. Dies ist in der original Datei nicht der Fall.
Ich möchte jetzt die Datei die ich hier speichere
ActiveWorkbook.SaveAs "s:\BG2.1\DTA\Files\" & f, xlTextMSDOS
aus excel per outlook verschicken.
ungefähr so habe ich mir das vorgestellt
Dim olApp As Object
Dim objNachricht As MailItem
Set olApp = CreateObject("s:\BG2.1\DTA\Files\" & f)
Set objNachricht = olApp.CreateItem(olMailItem)
With objNachricht
.Subject = "verwendungszweck"
.Recipients = "xxx@xx.xx"
.Body = "Hier steht text"
.Send
End With
Set objNachricht = Nothing
Set olApp = Nothing
leider kommt er nicht über die dritte zeile hinaus. irgendwas mit "kann kein activX object erstellen.
Wie kann ich also meine externe *.akb datei (variabler Name) über outlook aus excel verschicken?
Vielen Dank nochmal für Eure Mühe