Hej! Gör en Replace funktion som ersätter vbCrlf med <br> på din textarea.RADBYTE - CDONTS - HTML
Någon som vet hur man automatiskt skapar radbyten efter ett visst antal tecken när man skickar ett mail med CDONTS i HTML format.
Koden för "body" ser ut så här:
###########################
HTML1 = "<!DOCTYPE HTML PUBLIC""-//IETF//DTD HTML//EN"">"
HTML1 = HTML1 & "<html>"
HTML1 = HTML1 & "<head>"
HTML1 = HTML1 & "<title>The Title</title>"
HTML1 = HTML1 & "</head>"
HTML1 = HTML1 & "<body bgcolor=""FFFFFF"">"
HTML1 = HTML1 & "<p><font size =""3"" face=""Arial"">"
HTML1 = HTML1 & "<strong><left>Contact request from" & vbCrLf & "<font color=""red"">" & strName & "</font>" & "</left></strong><br>"
HTML1 = HTML1 & "<table border=""0"" cellpadding=""3"" width=""90%"" align= ""left"">"
HTML1 = HTML1 & "<tr><td> E-mail: " & "</td><td>" & "<a href=""mailto:"& strEmail &"""</a>" & strEmail & "</td></tr>"
HTML1 = HTML1 & "<tr><td> Address: " & "</td><td>" & strAddress & "</td></tr>"
HTML1 = HTML1 & "<tr><td> Town: " & "</td><td>" & strTown & "</td></tr>"
HTML1 = HTML1 & "<tr><td> Postcode: " & "</td><td>" & strPostcode & "</td></tr>"
HTML1 = HTML1 & "<tr><td> Telephone: " & "</td><td>" & strTelephone & "</td></tr>"
HTML1 = HTML1 & "<tr><td> Fax: " & "</td><td>" & strFax & "</td></tr>"
HTML1 = HTML1 & "<tr><td> Price: " & "</td><td>" & strPrice & "</td></tr>"
HTML1 = HTML1 & "<tr><td> Special Request: " & "</td><td>" & strSpecialRequest & "</td></tr>"
HTML1 = HTML1 & "<tr><td> Arrival Day: " & "</td><td>" & strArrivalDay & "</td></tr>"
HTML1 = HTML1 & "<tr><td> Arrival Month: " & "</td><td>" & strArrivalMonth & "</td></tr>"
HTML1 = HTML1 & "<tr><td> No Nights: " & "</td><td>" & strNoNights & "</td></tr>"
HTML1 = HTML1 & "<tr><td> Apartment Name: " & "</td><td>" & strApartmentName & "</td></tr>"
HTML1 = HTML1 & "<tr><td> Number in Party: " & "</td><td>" & strNoParty & "</td></tr>"
HTML1 = HTML1 & "<tr><td> Airline: " & "</td><td>" & strAirline & "</td></tr>"
HTML1 = HTML1 & "<tr><td> Flight No: " & "</td><td>" & strFlightNo & "</td></tr>"
HTML1 = HTML1 & "<tr><td> Arrival Time: " & "</td><td>" & strArrivalTime & "</td></tr>"
HTML1 = HTML1 & "</table>"
HTML1 = HTML1 & "</body>"
HTML1 = HTML1 & "</html>"
############################
Den kritiska delen är "Special Request" som är en Text area. Det som händer nu är att när mailet tas emot i e-post programmet så är innehållet i "strSpecialRequest" en (1) enda rad utan radbyte.
Jag vill helst kunna sätta automatiskt radbyte inom tabellens bredd.
Någon som kan hjälpa mig med detta??
PeterSv: RADBYTE - CDONTS - HTML
då får du med de enterslag som görs och det kommer inte på en lång sträng.
Anna-Karin