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!!!!