sende emails med aspMAIL

og nej... det er ikke email adressen som er forkert...

hej

tillader din remotehost at du sender mails fra den adresse?

altså om din:

Mailer.RemoteHost  = "smtp.unoeuro.com"

tillader:

Mailer.FromAddress = "Underground@mdk-photo.com"

som afsender?

/hiks

hvorfor skulle det være et problem... afsender adressen bliver jo bare stoppet ind i headeren

desuden bliver mailen sendt fra domænet af samme navn

det er ikke sikkert at mail relayet er åbent for den afsender - det er jo sådan de fleste systemet afviser spam afsendere - således at det bliver sværere at gætte hvem der har adresser på den specifikke smtp-server.

prøv evt. at bare lav en afsendelse uden loop i:

<%
Function sendMessage(mailFrom, mailTo, mailSubject, mailBody)
' sendMessage takes the same parameters as MPS.SendMail
' response = sendMessage (From, To, Subject, Body)
Set mailer = Server.CreateObject ("SMTPsvg.Mailer")
mailer.FromAddress = mailFrom
mailer.AddRecipient "", mailTo
mailer.Subject = mailSubject
mailer.BodyText = mailBody

mailer.RemoteHost = "smtp.unoeuro.com"

If mailer.Sendmail then ' Send message
    sendMessage = True ' Email was sent ok, return True
else ' Send Failure
    sendMessage = mailer.Response ' Return error message
end if

end function

sendMessage("Underground@mdk-photo.com", "mdk@mdk-photo.com.nt1.unoeuro.com", "Testmail", "Dette er en tester")

%>

så finder du ud af om du afsende på den konto? evt. lav en response.write på sendMessage functionen så du kan se den evt. fejlbesked!

/hiks

jamen.... det her script virker

<%
    Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
    Mailer.RemoteHost  = "smtp.unoeuro.com"
    Mailer.FromName    = "Joe's Shrimp Shack"
    Mailer.FromAddress = "anyone@unknownhost.net"
    Mailer.AddRecipient "someone", "mdk@mail.dk"
    Mailer.Subject    = "Stock Split Announced!"
    Mailer.BodyText    = ":-)"
    Mailer.SendMail
%>

der er ikke fordi den så skal have " " omkring addRecipient eller sådan noget lamt?

Sådan at det oprindelige kommer til at se således ud:

Do while not Send_Mail.EOF
    Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
    Mailer.RemoteHost  = "smtp.unoeuro.com"
    Mailer.FromName    = "Underground CarCompare Mail"
    Mailer.FromAddress = "Underground@mdk-photo.com"
    Mailer.AddRecipient Chr(34) & Send_Mail("Username") & Chr(34),"mdk@mdk-photo.com.nt1.unoeuro.com" 'Replace(Send_Mail("Email"),",","")
    Mailer.ContentType = "text/html"
    Mailer.Subject    = Request.form("Subject")
   
    strBody = Request.form("Body")
    strBody = Replace(strBody,"strName",Send_Mail("Username"))
    strBody = Replace(strBody,"strDate",Send_Mail("Created_Date"))
    strBody = Replace(strBody,"strID",Send_Mail("ID"))
    Mailer.BodyText = strBody
   
    Mailer.SendMail
    Mails = Mails + 1
    strErr = Mailer.Response
    Set Mailer = Nothing
Send_Mail.MoveNext
Loop

tror jeg ikke lige, men kan da prøve

ARGHH...

det viste sig at være Replace(Send_Mail("Email"),",","") funktionen som stallede det hele...

den kan åbenbart ikke æde den...

lukker