Email - "Zuviele Zeichenfortsetzungen"
23.11.2006 11:35:59
Dirk
Stehe mal wieder vor einem kleinen Problem wo ich mit Sicherheit mal wieder den Wald vor lauter Bäumen nicht sehe.
Ich möchte eine Email versenden.
In dem Body werden viele Tabellenwerte eingefügt.
Ich bekomme beim erweitern des Codes allerdings immer die Meldung "Zuviele Zeichenfortsetzungen".
Was muss ich dazwischensetzen um meinen Body fortsetzen zu können ?
IST:
Sub SEND_ACT()
Set Outapp = CreateObject("Outlook.Application")
Set OutSpace = Outapp.GetNamespace("MAPI")
Set Newmail = Outapp.CreateItem(0)
With Newmail
.To = Sheets(1).Cells(19, 4)
.Subject = "Mein Betreff" & Date
.Body = "Hallo" _
& vbLf & "Mit dieser email sende ich mein logfile ..." _
& vbLf _
& vbLf & "Rubrik 1:" _
& vbLf & "______________" _
& vbLf _
& vbLf & Sheets("Sheet1").Cells(20, 2) _
& vbLf & Sheets("Sheet1").Cells(21, 2) _
& vbLf & Sheets("Sheet1").Cells(22, 2) _
& vbLf & Sheets("Sheet1").Cells(23, 2) _
& vbLf & Sheets("Sheet1").Cells(24, 2) _
& vbLf & Sheets("Sheet1").Cells(25, 2) _
& vbLf & Sheets("Sheet1").Cells(26, 2) _
& vbLf & Sheets("Sheet1").Cells(27, 2)
.SEND
Application.DisplayAlerts = False
End With
Set Newmail = Nothing
Set OutSpace = Nothing
Set Outapp = Nothing
End Sub
Soll:
Sub SEND_ACT()
Set Outapp = CreateObject("Outlook.Application")
Set OutSpace = Outapp.GetNamespace("MAPI")
Set Newmail = Outapp.CreateItem(0)
With Newmail
.To = Sheets(1).Cells(19, 4)
.Subject = "Mein Betreff" & Date
.Body = "Hallo" _
& vbLf & "Mit dieser email sende ich mein logfile ..." _
& vbLf _
& vbLf & "Rubrik 1:" _
& vbLf & "______________" _
& vbLf _
& vbLf & Sheets("Sheet1").Cells(20, 2) _
& vbLf & Sheets("Sheet1").Cells(21, 2) _
& vbLf & Sheets("Sheet1").Cells(22, 2) _
& vbLf & Sheets("Sheet1").Cells(23, 2) _
& vbLf & Sheets("Sheet1").Cells(24, 2) _
& vbLf & Sheets("Sheet1").Cells(25, 2) _
& vbLf & Sheets("Sheet1").Cells(26, 2) _
& vbLf & Sheets("Sheet1").Cells(27, 2) _
& vbLf _
& vbLf & "Rubrik 2:" _
& vbLf & "______________" _
& vbLf _
& vbLf & Sheets("Sheet1").Cells(29, 2) _
& vbLf & Sheets("Sheet1").Cells(30, 2) _
& vbLf & Sheets("Sheet1").Cells(31, 2) _
& vbLf & Sheets("Sheet1").Cells(32, 2) _
& vbLf & Sheets("Sheet1").Cells(33, 2) _
& vbLf & Sheets("Sheet1").Cells(34, 2) _
& vbLf & Sheets("Sheet1").Cells(35, 2) _
& vbLf & Sheets("Sheet1").Cells(36, 2) _
& vbLf _
& vbLf & "Rubrik 3:" _
& vbLf & "______________" _
& vbLf _
& vbLf & Sheets("Sheet1").Cells(29, 2) _
& vbLf & Sheets("Sheet1").Cells(30, 2) _
& vbLf & Sheets("Sheet1").Cells(31, 2) _
& vbLf & Sheets("Sheet1").Cells(32, 2) _
& vbLf & Sheets("Sheet1").Cells(33, 2) _
& vbLf & Sheets("Sheet1").Cells(34, 2) _
& vbLf & Sheets("Sheet1").Cells(35, 2) _
& vbLf & Sheets("Sheet1").Cells(36, 2)
.SEND
Application.DisplayAlerts = False
End With
Set Newmail = Nothing
Set OutSpace = Nothing
Set Outapp = Nothing
End Sub
In der Recherche habe ich keine Lösung gefunden !
Danke
Gruß
Dirk (KR)