Zu der Zeile
mail.attachment.add "C:\anhänge\Datei.txt"
sagt VBA Datei nicht gefunden, obwohl sie da ist.
Könnt Ihr mir helfen, habe ich einen Parameter vergessen?
Helmuth Vosbeck
Sub Via_Outlook_Senden()
Dim Nachricht As Object, OutApp As Object
Set OutApp = CreateObject("Outlook.Application")
Dim AWS As String
'hier hin deine Dateiii !!
anh = "c:\test.txt"
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = "anwen@de.com"
.Subject = "Testmeldung von Excel2000 " & Date & " " & Time
.Body = "Das ist ein Test." & vbCrLf & " Bitte ignorieren."
On Error GoTo cb
.attachments.Add anh
cb:
.send
End With
'Schliest Outlook
'OutApp.Quit
Set OutApp = Nothing
Set Nachricht = Nothing
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen