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