Asp email
jeg sender jkl afsted i variablen mailmodtagertil hvert bogtstav hører en email til.
If Request("Send") = "OK" Then
On Error Resume Next
IF INSTR(mailmodtager,oRs("katid")) > 0 then
do While not oRs.EOF
strHost = "smtp.mail.dk"
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = strHost
Mail.From = Request("from") ' From address
Mail.FromName = "100% Fyn" 'optional
Mail.AddAddress "xx@xx-xxx.dk"
Mail.Subject = request("subject") & " " & ordrenummeret
Mail.IsHTML = True
Mail.Body = "<HTML><body bgcolor='#ffffff' leftmargin='0' marginwidth='0' topmargin='0' marginheight='0'>" & strHTML & "</BODY></HTML>"
Mail.Altbody = altbody
strErr = ""
bSuccess = False
Mail.Send
oRs.movenext
loop
If Err <> 0 Then ' error occurred
strErr = Err.Description
else
bSuccess = True
End If
End If
end if
hvorfor er det så lige jeg ikke får nogen mails ?
