pat: Eine multipart Emailversenden mittels CDO oder anderem

SELF-Forum

Eine multipart Emailversenden mittels CDO oder anderem

pat
– Informationen zu den Bewertungsregeln

Hallo,

ich bin schon seit einigen tagen auf der suche nach einer lösung für mein problem. und zwar möchte ich mittels asp-script und der cdonts komponente html mails verschicken, diese sollen aber nicht "nur" den html teil enthalten sondern auch einen text teil und bilder.

ich habe mein script schon mehrmals umgeschrieben bekomme aber im mail body nach dem versenden nur eine "0" angezeigt! wieso?

anbei das script. ich weiss nicht wo es hängt. ich weiss auch nicht ob die zusammensetzung so stimmt (header usw)

bitte helft mir. grüsse
pat

trNachricht = "MIME-Version: 1.0" & vbCRLF & _
strNachricht = strNachricht & "Content-type: multipart/mixed; boundary=___boing123Bound___" & _
strNachricht = strNachricht & vbCRLF & vbCRLF & _
strNachricht = strNachricht & "Hier steht der Text für alle die es nicht verstehen!" & vbCRLF & _

strNachricht = strNachricht & "___boing123Bound___" & _
strNachricht = strNachricht & vbCRLF & _
strNachricht = strNachricht & "Content-type= text/plain; charset = iso-8859-1" & vbCRLF &_
strNachricht = strNachricht & "Content-transfer-encoding: quoted-printable" & vbCRLF & _
strNachricht = strNachricht & vbCRLF & _

strNachricht = strNachricht & "Hier Textnachricht in Plaintext" & _

strNachricht = strNachricht & vbCRLF & _

strNachricht = strNachricht & "___boing123Bound___" & _
strNachricht = strNachricht & vbCRLF & _
strNachricht = strNachricht & "Content-type= text/html; charset = iso-8859-1" & vbCRLF &_
strNachricht = strNachricht & "Content-transfer-encoding: quoted-printable" & vbCRLF & _
strNachricht = strNachricht & vbCRLF & _

strNachricht = strNachricht & "<html><body><h1>htmltext</h1></body></html>" & _
strNachricht = strNachricht & vbCRLF & _
strNachricht = strNachricht & "___boingMediaBound___" & _
strNachricht = strNachricht & vbCRLF & _

strNachricht = strNachricht &  "was hier steht wird ignoriert" & vbCRLF

Email wird mit folgender Funktion versendet:

Function emailsenden()
 Set objNewMail = CreateObject("CDONTS.NewMail")

With objNewMail
     .From = "newsletter@xyz.de"
     .To = rs.Fields("email")
     .Subject = "Newsletter"
  .MailFormat = cdoMailFormatMime
  .BodyFormat = cdoBodyFormatHTML
     .Body = strNachricht
     .Send
 End With

Set objNewMail = Nothing
End Function

Beitrag melden
–
Informationen zu den Bewertungsregeln