peterlol

bedankt voor de reactie, maar dit heb ik bovenaan mijn vba script waardoor ik dus wel html tekst in mijn body kan zetten. Option Explicit Sub Send_Mail() Dim olApp As Object, olMail As Object, Signature As String, strbody As String Set olApp = CreateObject("Outlook.Application") Dim r As Long Dim m As Long Dim a As Long m = Cells(Rows.Count, 1).End(xlUp).Row For r = 2 To m Set olMail = olApp.CreateItem(0) olMail.Display Signature = olMail.HTMLBody strbody = SchrijfText® With olMail .To = Cells(r, 16) .CC = "" .Subject = "Cash back " & Range("B1").Value & " - " & Cells(r, 1) & " te " & Cells(r, 13) & " " .HTMLBody = strbody & vbNewLine & Signature & "" .Display End With Next r End Sub Hierna mijn code samen met html tekst waardoor het wel lukt. Deze topic mag afgesloten worden. bedankt voor de reactie's

bedankt alvast voor de reactie, Ik heb dit allemaal in orde gekregen maar ik vind dat mijn code er erg verwarrend uitziet zoals alpha zegt. Kan ik mijn code hier posten zodat iemand deze kan aanpassen ? ik heb dus moeten zorgen dat de excel mijn body weergeeft in een html formaat. daardoor heb ik us overal <p>tags en andere. ook mijn tab krijg ik niet in orde waardoor er 20 x staat om bepaalde tekst op een lijn te krijgen. Als ik een prive post kan doen naar iemand laat maar iets weten

compileerfout; verwacht, instructie einde. moet ik anders eens de file uploaden dat je dit kan testen? of werk je niet met outlook? en na de foutmelding weg te klikken en nog eens run heb ik syntaxisfout

het enige dat dan in de mail verschijnt is Beste Tom, Onze cashbacks van januari... komen er niet meer bij.

bedankt voor de reactie, de zin komt nog steeds op deze manier verwerkt Beste Tom, Onze Cashbacks van de maand Januari hebben wij afgesloten en je mag ons dan ook 1 factuur opmaken van ... dus normaal zou het moeten zijn Beste Tom(cell 15), Onze cashbacks van de maand Januari .... Dus dit is geenoplossing. moet ik niets programeren van HTMLbody of dergerlijke?

beste allemaal, eerst en vooral wou ik jullie laten weten dat ik geen programmeur ben. deze code heb ik van internet gehaald maar wat aangepast aan mijn noden. het probleem is dat ik geen return ( enter ) tussen mijn tekst krijg. kan dit aangepast worden zodat dit wel lukt. mijn mail app is outlook. heb al in de opties van outlook gaan kijken en de plain text is uitgevinkt. Sub SendMail() Dim r As Long Dim m As Long m = Cells(Rows.Count, 1).End(xlUp).Row For r = 2 To m ActiveWorkbook.FollowHyperlink "mailto:" & Cells(r, 17) & _ "?Subject=Cash Back Januari 2016 - " & Cells(r, 1) & " te " & Cells(r, 16) & " &Body=Beste " & Cells(r, 15)(hier moet een vbclrf) & _ Cells(r, 20) & ", Onze Cashbacks van de maand Januari hebben wij afgesloten en je mag ons dan ook 1 factuur opmaken van € " & _ Cells(r, 10) & "excl. Btw." (hier moet een vbclrf) & _ " " & _ " met volgende vermelding: " & _ " " & _ " " & _ " Cashback Lightning " & Cells(r, 3) & "" (hier moet een vbclrf) & _ Cells(r, 9) & "." Next r End Sub