Ik loop tegen het volgende probleem op bij het verzenden van mijn nieuwsbrief: In Outlook en Eudora werkt de handel correct. Gebruik ik een webbased mailprog dan werkt de handel niet. Ik ontvang wel regelmatig nieuwsbrieven van bedrijven die ik wel kan lezen. Ik moet er wel bij vermelden dat ze in laatst genoemde prog als een include worden weergegeven.(???).
Heeft iemand een idee waar het fout gaat???
Hier de 'troep' die in het mailprogje aankomt:
Heeft iemand een idee waar het fout gaat???
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
| strBody="<html>"
strBody=strBody & "<title>Nieuwsbrief</title>"
strBody=strBody & "<meta http-equiv=""Content-Type"" content=""text/html; charset=iso-8859-1"">"
strBody=strBody & "</head>"
strBody=strBody & "<body>"
strBody=strBody & "<table width='450' cellpadding='0' cellspacing='0' border='0'>"
strBody=strBody & "<tr><td>" & mailtekst & "</td></tr>"
strBody=strBody & "</table>"
strBody=strBody & "</body>"
strBody=strBody & "</html>"
sqlstr = "select * from eco_config"
rs.open sqlstr, conn, 1, 3
afzender = rs("afzender")
rs.close
sqlstr = "select * from eco_klant where mailing = 1
rs.open sqlstr, conn, 1, 3
do until rs.eof
Set MailObject = Server.CreateObject("CDONTS.NewMail")
MailObject.Body = strBody
MailObject.To = rs("email")
MailObject.From = "noreply" & mid(afzender,instr(afzender,"@"))
MailObject.Subject = "Nieuwsbrief"
MailObject.Bodyformat = cdoBodyFormatHTML
MailObject.MailFormat = cdoMailFormatMime
MailObject.Send
Set MailObject = Nothing
rs.movenext
loop
rs.close |
Hier de 'troep' die in het mailprogje aankomt:
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
| This is a multi-part message in MIME format.
------=_NextPart_000_0C09_01C57B38.F74868F0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: 7bit
Indien u er geen prijs op stelt in het vervolg deze nieuwsbrief te
ontvangen, klik dan hier
<http://www.voorbeeld.nl/default.asp?div=uit&id={455AA7A7-3146-4
516-9FE6-0716D22ACDFB}> .
------=_NextPart_000_0C09_01C57B38.F74868F0
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<html><title>Nieuwsbrief</title><meta http-equiv=3D"Content-Type" =
content=3D"text/html; charset=3Diso-8859-1"></head><body><table =
width=3D'450' cellpadding=3D'0' cellspacing=3D'0' =
border=3D'0'><tr><td><img =
src=3D"http://www.voorbeeld.nl/images/lib/nieuwsbrief/nieuwsbrief=
90 webshop 06-2005.jpg"><BR><WBR><BR><WBR><BR><WBR>Indien u er geen =
prijs op stelt in het vervolg deze nieuwsbrief te ontvangen, klik dan <a =
href=3D'http://www.voorbeeld.nl/default.asp?div=3Duit&id=3D{455AA=
7A7-3146-4516-9FE6-0716D22ACDFB}'>hier</a>.<WBR></td></tr></table></body>=
</html>
------=_NextPart_000_0C09_01C57B38.F74868F0-- |