Range in Email Body einfuegen
03.07.2016 08:51:42
dave
folgende Funktion bereitet mir Schwierigkeiten:
Public Sub Email(EmailAdresse As String)
Dim bereich As Range
Sheets("Pivot_Analysis").Activate
Set bereich = Sheets("Pivot_Analysis").Range(Cells(1, 1), Cells(1, 3).End(xlDown))
Set MyOutApp = CreateObject("Outlook.Application")
Set MyMessage = MyOutApp.CreateItem(0)
With MyMessage
.To = EmailAdresse
.Subject = "PHILOS OVERDUE OPPORTUNITIES"
.body = bereich
.Display
End With
Set MyOutApp = Nothing
Set MyMessage = Nothing
End Sub
Die Zeile
.body = bereich
verursacht einen Fehler: Array lower bound must be zero
Wie loese ich dieses problem?