Ich will per Button aus der Datei Test.xls die letzte Zeile der Datei Daten.xls als Email verschicken.
Ein Tipp von Lorenz:
Sub SendeNachricht()
Dim oOL As Object
Dim oOLMsg As Object
Dim oOLRecip As Object
Set oOL = CreateObject("Outlook.Application")
Set oOLMsg = oOL.CreateItem(0)
With oOLMsg
Set oOLRecip = .Recipients.Add(Worksheets("Daten").Range("A10").Value) '@emailadresse
.Subject = "Info"
'Wie kann ich unten bei Body Pfad für die Datei Daten.xls eingeben?
'und bei Range ganze Zeile eingeben Range("15:15") funktioniert nicht
'noch besser wäre es die ganze letzte Zeile.
.Body = Worksheets("Daten").Range("15").Value
.Importance = 0
.Send
End With
oOLRecip.Resolve
Set oOLMsg = Nothing
Set oOLRecip = Nothing
Set oOL = Nothing
End Sub
Gruß Stan