.... und es geht doch !
13.12.2002 10:28:16
Sven
Moin Moin,habe die Lösungsansätze von Mario dankbar angenommen, mich damit aber noch nicht ganz zufrieden gegeben und noch ein bisschen gewühlt.
Jetzt ist es möglich jede x-beluiebige Datei zu versenden.
Hier jetzt meine Lösung:
(Outlook als eMailprogramm)
Sub Workbook_via_Outlook_Senden()
Dim Nachricht As Object, OutApp As Object
Set OutApp = CreateObject("Outlook.Application")
Dim AttAdd As String
Pfad = Range("pfad") ' zunaechst den Unterordner waehlen
Datei = Range("filename_xls").Value ' Dateinamen aus Zelle lesen
AttAdd = Pfad & "\" & Datei 'Arbeitsmappe wird als Anhang deklariert
'InitializeOutlook = True
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = "adresse@email.de"
.Subject = "Testmeldung von Excel2000 " & Date & " " & Time
.attachments.Add AttAdd
.Body = "Das ist ein Test." & vbCrLf & "Bitte ignorieren."
'Hier wird die Mail nochmals angezeigt
'.Display
'Hier wird die Mail gleich in den Postausgang gelegt
.Send
End With
OutApp.Quit
Set OutApp = Nothing
Set Nachricht = Nothing
End Sub
Danke an das Forum !!!
Grüsse Sven
PS: Und mit einem Auto, wo Du draußen sitzt, kannst Du auch fahren !!!