inline images via sendmail... hvordan?
Jeg fifler med at kunne afsende et nyhedsbrev, og det virker fint, men det undrer mig at billederne også bliver lagt med som bilag. Hvordan kan dette undgås?Når jeg modtager andre nyhedsbreve/html-mails i mit mailprogram er der ikke bilag med.
Jeg har prøvet forskellige mailprogrammer.
Min kode ser således ud:
<% On Error Resume Next
'== DB-connection åbnes ==
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("/dude/m.mdb")
'== Her starter DB-forespørgelse og loop ==
SQL = "select * from mailingliste"
Set RS = conn.execute( SQL )
Do while not RS.eof
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Hej "& RS("Navn")&", Her er en informationsmail fra JOEY Danmark"
objMessage.From = "JOEY <someone@domain.dk>"
objMessage.TextBody = "This is some sample message text."
objMessage.CreateMHTMLBody "http://www.domain.dk/news/news.htm"
'==This section provides the configuration information for the remote SMTP server.
'==Normally you will only change the server name or IP.
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'Name or IP of Remote SMTP Server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtprelay.domain.dk"
'Server port (typically 25)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objMessage.Configuration.Fields.Update
'==End remote SMTP server configuration section==
objMessage.To = ""& RS("Email")&""
response.write rs("Email")
response.write "<br>"
objMessage.Send
RS.movenext
loop
%>