Är det ingen som har någon form av förklaring på eländet??
Hej! Har en databas med epostadresser som man kan välja att skicka till en eller flera medlemmar eller till alla.
så här ser koden ut för själva skickandet
amne = Request.Form("amne")
meddelande = Request.Form("meddelande")
fnamn = Request.Form("fnamn")
enamn = Request.Form("enamn")
min_epost = Request.form("min_epost")
uppg = "Från: " & fnamn & " " & enamn & vbCrLf & vbCrLf & vbCrLf
uppg = uppg & meddelande
set Jmail = Server.CreateOBject( "JMail.SMTPMail" )
JMail.ServerAddress = "mail.amts.nu"
JMail.Sender = min_epost
JMail.AddRecipientBCC "info@amts.nu"
epost = request.form("epost")
if request.form("epost") = "alla" then
do while not rs.EOF
JMail.AddRecipient ""& rs("epost")&"" rs.MoveNext
loop
else if instr(epost, ",") >0 then
for each item in request.form("epost")
JMail.AddRecipient item
next
else
JMail.AddRecipient "" & epost & ""
end if
end if
JMail.Subject = amne
JMail.Body = uppg
Jmail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
Jmail.execute
...........
Varför blir resultatet så här när mailet kommer??
X-Priority: 3
X-MSMail-Priority: Normal
Content-Transfer-Encoding: Quoted-Printable
MIME-Version: 1.0
X-USER_IP: 212.116.80.155
X-Mailer: JMail 4.1.2 by Dimac
X-Originating-IP: =?iso-8859-1?Q?212=2E116=2E80=2E155?=
Content-Type: text/plain;
charset="iso-8859-1"
Message-Id: <200108241547782.SM00801@s15>
Fr=E5n: Bengt Pells=E4ter
P=C5 m=E5ndag f=E5r ATR ett fax med ett positivt besked om HAIR!!
Ha de t bra
Jag =E4r s=E5=E5=E5=E5=E5=E5=E5=E5=E5=E5=E5=E5=E5=E5=E5=E5 lycklig
Det är ca 50 adresser.
Bengt
Vi har fått rättigheter till Hair!!!!
