Hvordan formatere jeg en mail tekst

Jeg har aldrig selv oplevet problemer med ASPmail. Men her er en anden, der har samme problem som dig:
http://eksperten.dk/spm/549646

Nå, det var også dig, der har oprettet den. Go'morgen ;o)

Ja der var ikke rigtig nogen der svarede på den, skod. Tror du det er serveren der er noget i vejen med så ?

hvordan kan en eksempeltekst se ud

prøv at bruge VbCrLf istedet for linieskift, dvs.

"Mailen er afsendt til "" + objRec("strEmail").Value + VbCrLf

undskyld
"Mailen er afsendt til "" & objRec("strEmail").Value & VbCrLf

undskyld endnu engang

Response.Write "Mailen er afsendt til "" & objRec("strEmail").Value & """ & VbCrLf

Det hjalp ikke rigtig.

Den tekst jeg sender er fx:
"
Lorem ipsum dolor sit amet, consectetuer adipiscing elit, sed diam nonummy nibh euismod tincidunt ut laoreet dolore magna aliquam erat volutpat. Ut wisi enim ad minim veniam, quis nostrud exerci tation ullamcorper suscipit lobortis nisl ut aliquip ex ea commodo consequat. Duis autem vel eum iriure dolor in hendrerit in vulputate velit esse molestie consequat, vel illum dolore eu feugiat nulla facilisis at vero eros et accumsan et iusto odio dignissim qui blandit praesent luptatum zzril delenit augue duis dolore te feugait nulla facilisi.

Lorem ipsum dolor sit amet, consectetuer adipiscing elit, sed diam nonummy nibh euismod tincidunt ut laoreet dolore magna aliquam erat volutpat. Ut wisi enim ad minim veniam, quis nostrud exerci tation ullamcorper suscipit lobortis nisl ut aliquip ex ea commodo consequat. Duis autem vel eum iriure dolor in hendrerit in vulputate velit esse molestie consequat, vel illum dolore eu feugiat nulla facilisis at vero eros et accumsan et iusto odio dignissim qui blandit praesent luptatum zzril delenit augue duis dolore te feugait nulla facilisi.
"

men det jeg får tilbage i min mail er:

"
Lorem ipsum dolor sit amet, consectetuer adipiscing elit, sed diam nonummy nibh euismod tincidunt ut laoreet dolore magna aliquam erat volutpat. Ut wisi enim ad minim veniam, quis nostrud exerci tation ullamcorper suscipit lobortis nisl ut aliquip ex ea commodo consequat. Duis autem vel eum iriure dolor in hendrerit in vulputate velit esse molestie consequat, vel illum dolore eu feugiat nulla facilisis at vero eros et accumsan et iusto odio dignissim qui blandit praesent luptatum zzril delenit augue duis dolore te feugait nulla facilisi.  Lorem ipsum dolor sit amet, consectetuer adipiscing elit, sed diam nonummy nibh euismod tincidunt ut laoreet dolore magna
"

hvordan ser denne html tekst ud rå

forøvigt skal du ved linieskift altid bruge VbCrLf i aspmail

Der var det første jeg skrev fra " og til "

Hvordan erstatter jeg et linie skift med VbCrLf så ?
"Jeg har en siden hvor man skriver det ind og så sender den det til næsteside der så sender en mail"

Altså ingen formatering?? Hvordan ser formularfilen ud og den fil som sender mailen ud, vi er nok nød til at se noget mere end ovenstående.

simpel replace funktion

replace(strBesked, VbCrLF, "<br>")

Her er selve afsenderen:

strTitle=Request.Form("title")
strBesked=Request.Form("besked")
Dim Mailer
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.ContentType = "text/html"
Mailer.FromName = "Nyhedsbrev"
Mailer.FromAddress = "xxxx@xxxx.dk"
       
Mailer.RemoteHost = "mail.sonofon.dk"
       
Mailer.AddRecipient "xx@xx.dk", "xx@xx.dk"
       
Mailer.Subject = "" & strTitle
       
Mailer.BodyText = "" & strBesked
       
if Mailer.SendMail then
Response.Write "Mailen er afsendt til &quot;" & objRec("strEmail").Value & "&quot;" & VbCrLf
else
Response.Write "Der skete en fejl &quot;" + objRec("strEmail").Value + "&quot;:" + Mailer.Response
end if
       
' Fjern objekt igen
Set Mailer = Nothing
       
Response.Write(strBesked)

Og den der sender teksten til mail afsenderen:


<form name="nyhedsbrev" method="post" action="mailer.asp">

<table border="0" cellpadding="0" cellspacing="0" width="800" height="40">
    <tr>
        <td width="800" height="40" align="center" valign="middle"><a href="index.asp"><img src="../pic/hmc_logo.gif" width="36" height="30" border="0"></a></td>
    </tr>
</table>
<table width="800" border="0" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF">
  <tr>
    <td width="20">&nbsp;</td>
    <td width="155" height="35">&nbsp;</td>
    <td width="25" height="35">&nbsp;</td>
    <td width="400" height="35">&nbsp;</td>
    <td width="25" height="35">&nbsp;</td>
    <td width="150" height="35">&nbsp;</td>
    <td width="25" height="35">&nbsp;</td>
  </tr>
  <tr>
    <td width="20" valign="top">&nbsp;</td>
    <td width="155" valign="top" align="left">&nbsp;</td>
    <td width="25" align="left" valign="top" class="lodretstreg">&nbsp; </td>
    <td width="400" valign="top">
        <h1>Send nyhedsbrev</h1><br><form name="nyhedsbrev" method="post" action="mailer.asp"><br>
       
        <input name="title" type="text" class="general_input" value="" style="width:400px;"><br><br>
        <textarea name="besked" rows="30" class="general_input" style="width:400px;"></textarea>
    </td>
    <td width="25">&nbsp;</td>
    <td width="150" valign="top">
        <h2>mail
        </h2>
    </td>
    <td width="25">&nbsp;</td>
  </tr>
  <tr>
    <td width="20">&nbsp;</td>
    <td width="155" height="35">&nbsp;</td>
    <td width="25" height="35">&nbsp;</td>
    <td width="400" height="35">&nbsp;</td>
    <td width="25" height="35">&nbsp;</td>
    <td width="150" height="35">&nbsp;</td>
    <td width="25" height="35">&nbsp;</td>
  </tr>
</table>

</form>

De to objRec("strEmail").Value er forresten ikke med.

Replace komandoen virker ikke rigtig den kommer med denne fejl:
"Der kan ikke bruges parenteser ved kald af en Sub"

Når ja undskyld Replace komandoen virker fint det er mig der kager rundt i det.

Men den tager stadig ikke al teksten med :(

Okey det er mystidt, den sidste setning ser sådan ud:

"...Lorem ipsum dolor sit amet, consectetuer adipiscing elit, sed diam nonummy nibh euismod tincidunt ut facilisi."

"facilisi." er det sidste ord fra hele meddelelsen, det har den med men så den har klippet midt i teksten !

Prøv at indsætte dette
<%
strTitle = Request.Form("title")
strBesked = replace(Request.Form("besked"), VbCrLf, "<br>")

Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.ContentType = "text/html"
Mailer.FromName = "Test"
Mailer.FromAddress = "test@test.dk"
       
Mailer.RemoteHost = "smtp.mail.dk"
       
Mailer.AddRecipient "info@cpcdata.dk"
       
Mailer.Subject = strTitle
       
Mailer.BodyText = strBesked
       
if Mailer.SendMail then
Response.Write "Mailen er afsendt til 'tt'" & VbCrLf
else
Response.Write "Der skete en fejl 'tt':" & Mailer.Response
end if
       
' Fjern objekt igen
Set Mailer = Nothing
       
Response.Write(strBesked)
%>
og skriv en hilen til mig

Det har jeg lige prøvet nu skriver den:

Der skete en fejl 'tt':554 Error: no valid recipients
også den besked jeg sendte dig...

Har du fået en mail ?

Prøv så dette istedet og prøv så igen
Mailer.RemoteHost = "mail.sonofon.dk"

Skriv den samme tekst som den deler

Så skulle den være sendt

okay den skrev følgende
Lorem ipsum dolor sit amet, consectetuer adipiscing elit, sed diam nonummy nibh euismod tincidunt ut laoreet dolore magna aliquam erat volutpat. Ut wisi enim ad minim veniam, quis nostrud exerci tation ullamcorper suscipit lobortis nisl ut aliquip ex ea commodo consequat. Duis autem vel eum iriure dolor in hendrerit in vulputate velit esse molestie consequat, vel illum dolore eu feugiat nulla facilisis at vero eros et accumsan et iusto odio dignissim qui blandit praesent luptatum zzril delenit augue duis dolore te feugait nulla facilisi.

Lorem ipsum dolor sit amet, consectetuer adipiscing elit, sed diam nonummy nibh euismod tincidunt ut facilisi.

var det det du skrev

Nej jeg skrev:

Lorem ipsum dolor sit amet, consectetuer adipiscing elit, sed diam nonummy nibh euismod tincidunt ut laoreet dolore magna aliquam erat volutpat. Ut wisi enim ad minim veniam, quis nostrud exerci tation ullamcorper suscipit lobortis nisl ut aliquip ex ea commodo consequat. Duis autem vel eum iriure dolor in hendrerit in vulputate velit esse molestie consequat, vel illum dolore eu feugiat nulla facilisis at vero eros et accumsan et iusto odio dignissim qui blandit praesent luptatum zzril delenit augue duis dolore te feugait nulla facilisi.

Lorem ipsum dolor sit amet, consectetuer adipiscing elit, sed diam nonummy nibh euismod tincidunt ut laoreet dolore magna aliquam erat volutpat. Ut wisi enim ad minim veniam, quis nostrud exerci tation ullamcorper suscipit lobortis nisl ut aliquip ex ea commodo consequat. Duis autem vel eum iriure dolor in hendrerit in vulputate velit esse molestie consequat, vel illum dolore eu feugiat nulla facilisis at vero eros et accumsan et iusto odio dignissim qui blandit praesent luptatum zzril delenit augue duis dolore te feugait nulla facilisi.

hvis du sender 1. del skulle det hele jo komme

Jeg prøver lige at sende den 1. del...

Har du fået 1. del ?

ja, nå men prøv at erstatte

Mailer.ContentType = "text/html"

med

Mailer.CharSet = 2

send så det hele igen

Har lige gjordt det.

Shit,jeg har byttet om på replace

strBesked = replace(Request.Form("besked"),"<br>",VbCrLf)
prøv så at indsætte
Mailer.ContentType = "text/html"
igen

og send så det hele igen

Lorem ipsum dolor sit amet, consectetuer adipiscing elit, sed diam nonummy nibh euismod tincidunt ut laoreet dolore magna aliquam erat volutpat. Ut wisi enim ad minim veniam, quis nostrud exerci tation ullamcorper suscipit lobortis nisl ut aliquip ex ea commodo consequat. Duis autem vel eum iriure dolor in hendrerit in vulputate velit esse molestie consequat, vel illum dolore eu feugiat nulla facilisis at vero eros et accumsan et iusto odio dignissim qui blandit praesent luptatum zzril delenit augue duis dolore te feugait nulla facilisi. Lorem ipsum dolor sit amet, consectetuer adipiscing elit, sed diam nonummy nibh euismod tincidunt ut laoreet dolore magna

er ikke det hele...ved det faktisk ikke så

Okey men mange tak fordi du ville prøve !