VBA-Zeile voll
29.03.2006 09:49:03
Dirk
der Silvio hat mir gestern wunderbar geholfen.
Nur stehe ich nun vor einem neuen "Problem".
Und zwar wird per Buttonclick eine email mit Daten aus div. zellen versendet.
.Body = "Hi " & Sheets(1).Cells(25, 4) & "ganz viel text"
nun ist aber die VBA-Bodyzeile voll aber da muss noch text rein.
Wie gehe ich nun vor um noch behr "Body" hinzuzufügen ?
Hatte es noch nie das ich am ende einer VBA-Zeile angelangt bin !
Komplett sieht es so aus:
Private Sub CommandButton13_Click()
Set Outapp = CreateObject("Outlook.Application")
Set OutSpace = Outapp.GetNamespace("MAPI")
Set Newmail = Outapp.CreateItem(0)
With Newmail
.To = Sheets(1).Cells(25, 4) & "." & Sheets(1).Cells(25, 10) & "@email.de"
.Subject = "text " & Date
.Body = "Hi " & Sheets(1).Cells(25, 4) & B & "," & vbLf & vbLf & "today i had:" & vbLf & " text " & Sheets(1).Cells(13, 16) 'und noch mehr bis die Zeile voll ist
.Send
End With
Set Newmail = Nothing
Set OutSpace = Nothing
Set Outapp = Nothing
End Sub
Danke schon im voraus für euere tatkräftige unterstützung.
Gruß
Dirk