3 fejl i mail-videresendelse
Jeg har lavet det nedenstående script der skal kunne videresende en mails sendt til en række mail-adresser til brugernes egne mail-adresser gemt i databasen:*********************************
on error resume next
Set rs = Conn.execute("select mail,titel,afd from MailRouting")
if not rs.EOF then
do until rs.EOF
Dim pop3, msg, objMailPersoner, i, subPerson
Set pop3 = Server.CreateObject("JMail.POP3")
pop3.Connect LCase(rs("mail")) & "@mydomain.dk", "password", "mail7.wannafind.dk"
if pop3.count > 0 then
For i = 1 to pop3.count
Set msg = pop3.Messages.item(i)
msg.Logging = true
msg.silent = true
msg.Subject = "[" & PCase(rs("mail")) & "] " & msg.Subject
Set objMailPersoner = objPerson(CStr(rs("titel")), CStr(rs("afd")), true)
for each subPerson in objMailPersoner.personer
if isEmail(subPerson.email) and InStr(LCase(subPerson.email),"@hadstenspejderne.dk") = 0 then
msg.ClearRecipients
msg.AddRecipient LCase(subPerson.email), subPerson.navn
msg.Send("pasmtp.tele.dk")
end if
next
Set objMailPersoner = Nothing
msg.Close() Set msg = Nothing
pop3.DeleteSingleMessage i
next
end If
pop3.Disconnect
Set pop3 = Nothing
rs.MoveNext
loop
end if
Set rs = Nothing
*********************************
Der er dog et par problemer med systemet...
1)
Mails der kommer til brugerne indeholder en gang imellem underlige tegn i subject.
Som det ses i koden skrives mail-adressen sendt til først i [] og derefter skrives det originale subject efter... Men det originale subject bliver en gang imellem erstattet af nogle underlige tegn.
Eksempelvis:
"Så er der møde igen..." ==> "ŠÊ<óŸu©"
"Næste møde" ==> "ŠÊ<óŸu¨"
Det underlige er at jeg har oprettet en test-adresse der kun videresender til én mail-adresse (min egen) og der kan jeg ikke få fejlen til at komme...
Hvordan kommer jeg af med de sære tegn!
2)
Én af brugerne får ikke de udsendte mails fordi en eller anden server tror det er spam...
Der kommer følgende meddelelse tilbage når man prøver:
**********************************
Dato: Thu, 28 Oct 2004 11:41:20 +0200 (CEST)
Fra: MAILER-DAEMON@pasmtp.tele.dk (Mail Delivery System)
Emne: Undelivered Mail Returned to Sender
Til: xxxxx@xxxxx.dk
This is the Postfix program at host pasmtp.tele.dk.
I'm sorry to have to inform you that your message could not be
be delivered to one or more recipients. It's attached below.
For further assistance, please send mail to
If you do so, please include this problem report. You can
delete your own text from the attached returned message.
The Postfix program
: host mailhub.orangenet.dk[212.97.206.89] said: 554 5.7.1
Orange Denmark doesn't accept spam (score 6.942) (in reply to end of DATA
command)
> ATTACHMENT part 2 message/delivery-status
> ATTACHMENT part 3 message/rfc822
Emne: [Samfundshjaelperne] ŠÊ<óŸu©
Fra: "xxxxxxxx"
Dato: Thu, 28 Oct 2004 11:42:24 +0200
Til: "xxxxxxxxx"
************************************
Er der noget jeg kan gøre for at han kan modtage mailene?
3)
Én af brugerne modtager ikke vedhæftede filer på mailene... hans mail er xxxxxx@mail.tele.dk - Er der et eller andet jeg kan gøre for at han får de vedhæftede filer eller er det hans computer der er noget galt med...?
