donc g une fonction qui permet d'envoye d mails certifié par un autre site d'ASP, le probleme étant que g bo m'en servir, aucun mail n'arrive dans ma boite j'ai pourtant installé ASPeMail que le sniffeur de composant email (recup sur asp france) reconnait en tant que tel, apres avoir install APSEmail ya t il une manip particuliere a faire sachant que je suis sous XP ?
fonction ===>
Function sendMail(nomFrom,mailFrom,nomTo,mailTo,CC,BCC,subject,body,pj)
on error resume next
dim Mail,FSO,inF,i,temp,test,premium
premium=true ' false si vous n'avez pas cette version
' création des objets
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set Mail = Server.CreateObject("Persits.MailSender")
' SERVEUR
Mail.Host = "asp-php.net"
' EXPÉDITEUR
Mail.FromName = nomFrom
Mail.From = "webmaster@asp-php.net"
' Mail.AddReplyTo mailFrom
' DESTINATAIRE
if inStr(mailTo,"@") > 0 then
if nomTo<>"" then Mail.AddAddress mailTo, nomTo _
else Mail.AddAddress mailTo
end if
' COPIE CONFORME
if inStr(CC,"@") > 0 then
' adresses séparées par ,
temp = split(CC,",",-1,1)
for i = 0 to ubound(temp)
if inStr(temp(i),"@") > 0 then Mail.AddCC temp(i)
next
end if
' COPIE CONFORME INVISIBLE
if inStr(BCC,"@") > 0 then
' adresses séparées par ,
temp = split(BCC,",",-1,1)
for i = 0 to ubound(temp)
if inStr(temp(i),"@") > 0 then Mail.AddBCC temp(i)
next
' ou en lisant un fichier (65 Ko max !)
elseif BCC <> "" then
temp = BCC
if left(temp,1) = "/" then temp = server.MapPath("/") & replace(temp,"/","\")
if FSO.fileExists(temp) then
set inF = FSO.openTextFile(temp,1,false)
while not inF.AtEndOfStream
test = inF.readLine
if inStr(test,"@") > 0 then Mail.AddBCC test
wend
inF.close
end if
end if
' TITRE
Mail.Subject = subject
' CORPS (format html ou non)
if lcase(left(body,6)) = "<html>" then Mail.IsHTML=true
Mail.Body = body
' PIÈCES JOINTES séparées par ,
if pj <> "" then
temp = split(pj,",",-1,1)
for i = 0 to ubound(temp)
if instr(temp(i),"\") < 1 then ' path court
test = prefix
if test = "" then test = "/"
temp(i) = server.MapPath(test & temp(i))
end if
if FSO.fileExists(temp(i)) then Mail.AddAttachment temp(i)
next
end if
' et zou... retourne false si erreur !
if premium then
Mail.SendToQueue
else
Mail.Send
end if
sendMail = (err=0)
end Function