Fichier SMTPsvg.dll

Utilisateur anonyme -  
 -Shadow- -
Bonjour,
j'ai besoin d'un fichier SMTPsvg.dll qui permet d'envoyer message aux email.
Configuration: Windows XP
Internet Explorer 6.0

13 réponses

  1. -Shadow-
     
    Salut
    apparemment, on peut pas trouver cette librairie, mais jette un oeil sur dll-files.com.
    C'est un site où on peut trouver des fichiers DLL.

    A+
    0
    1. Utilisateur anonyme
       
      merci bien pour votre aide
      0
  2. Utilisateur anonyme
     
    car lorsque j'envoi un message a l'aide d'une script asp, une erreur affichera (fichier manque)
    0
  3. -Shadow-
     
    Oui je sais, c'est ASP qui affiche un msg d'erreur parce que une librairie manque...
    Tu as essayé avec CDO?
    0
  4. Utilisateur anonyme
     
    il ya aucune dll avec le nom SMTPsvg dans le site dll-files.com
    0

  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. -Shadow-
     
    C'est bizarre, si ASP a besoin de cette librairie, pourquoi elle n'est pas là...

    J'ai trouvé un site sur ASP peut-être qu'il y a le fichier à télécharger:
    http://www.aspin.com/
    0
    1. Utilisateur anonyme
       
      tu na pas script qui permet denvoyer message a un email
      0
  7. Utilisateur anonyme
     
    tu veux voir le script pour m'indiquer sil ya une faute
    0
  8. Utilisateur anonyme
     
    voici script :

    <%
    msg = 0
    ENVOY = Left(UCase(Request("ENVOYER")),5)
    If ENVOY = "ENVOY" Then
    Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
    Mailer.RemoteHost=MailServer
    'RemotServer
    Mailer.ContentType="text/html"
    Mailer.FromName = "Webmaster Nautilum"
    Mailer.FromAddress= "webmaster@nautilum.com"
    Mailer.RemoteHost = "SMTP.nautilum.com"
    Mailer.AddRecipient request("Nom"), request("Mail")
    Mailer.Organization = "Nautilum"
    Mailer.Subject = "Test d'ASPMail"
    strBody = "Vous avez des questions, des demandes précises ?" & CHR (10) & CHR(13)
    strBody = strBody & "webmaster@nautilum.com" & CHR (10) & CHR(13)
    strBody = strBody & " " & CHR (10) & CHR(13)
    strBody = strBody & "Cordialement" & CHR (10) & CHR(13)
    strBody = strBody & "L'équipe de Nautilum" & CHR (10) & CHR(13)
    Mailer.BodyText = strBody
    if Mailer.SendMail then
    Response.Write "Le mail a bien été envoyé"
    else
    Response.Write "Problème d'envoi<br>"
    Response.Write Mailer.Response
    end if
    msg = 1
    End If
    %>
    0
  9. Utilisateur anonyme
     
    ce nest pas SMTPsvg.dll cest SMTPsvg.Mailer
    0
  10. -Shadow-
     
    Je sais: en fait c'est une erreur de script.
    SMTPsvg.Mailer n'est pas pris en charge.

    Donc l'erreur c'est le truc en gras : 
    <%
msg = 0
ENVOY = Left(UCase(Request("ENVOYER")),5)
If ENVOY = "ENVOY" Then
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.RemoteHost=MailServer
'RemotServer
Mailer.ContentType="text/html"
Mailer.FromName = "Webmaster Nautilum"
Mailer.FromAddress= "webmaster@nautilum.com"
Mailer.RemoteHost = "SMTP.nautilum.com"
Mailer.AddRecipient request("Nom"), request("Mail")
Mailer.Organization = "Nautilum"
Mailer.Subject = "Test d'ASPMail"
strBody = "Vous avez des questions, des demandes précises ?" & CHR (10) & CHR(13)
strBody = strBody & "webmaster@nautilum.com" & CHR (10) & CHR(13)
strBody = strBody & " " & CHR (10) & CHR(13)
strBody = strBody & "Cordialement" & CHR (10) & CHR(13)
strBody = strBody & "L'équipe de Nautilum" & CHR (10) & CHR(13)
Mailer.BodyText = strBody
if Mailer.SendMail then
Response.Write "Le mail a bien été envoyé"
else
Response.Write "Problème d'envoi<br>"
Response.Write Mailer.Response
end if
msg = 1
End If
%>

    Donc, si SMTPsvg n'est pas pris en charge, alors tout le code n'est pas pris en charge.
    Essaye avec CDO, il n'y aura pas d'erreur.
    0
    1. Utilisateur anonyme
       
      comment integrer CDO dans le code
      0
      1. -Shadow- > Utilisateur anonyme
         
        Je connais mal le ASP, mais ça ressemble au VBS: 
        Dim objMail ' Objet Courriel
Dim oIE     ' Objet Navigateur
Dim sReponse ' Chaine de caractères
'Dim Message ' Chaine de caractères

Dim envoyeur
Dim destinataire
Dim sujetmail

envoyeur = InputBox("Entrez votre adresse e-mail", "Mailer")
destinataire = InputBox("Entrez le destinataire du mail", "Mailer")
sujetmail = InputBox("Entrez le sujet", "Mailer")
sReponse = InputBox("Entrez le texte du mail", "Mailer")

'Création d'une instance du facteur (Outlook Express)
Set objMail = CreateObject("CDO.Message")

With objMail

  .From = envoyeur
  .To = destinataire

  .Subject = sujetmail
  .TextBody =  sReponse

  .Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.cegetel.net"
  .Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
  .Configuration.Fields.Update

  .Send

End With

If objMail.Send = False Then
msgbox"Mail envoyé!"
Else
msgbox"Mail non envoyé!"
End If

Set objMail = nothing

        C'est pour utiliser CDO.
        0
  11. Utilisateur anonyme
     
    CDONTS.dll ça marche avec laposte.net et gmail mais ça marche pas avec hotmail
    merci d'avance
    0
  12. Utilisateur anonyme
     
    vraiment je suis besoin de cette astuce merci
    0
  13. Utilisateur anonyme
     
    jai fait limpossible mais aucune resultat
    0
  14. -Shadow-
     
    je ne m'y connais pas grand-chose en ASP.
    0

Discussions similaires

Ouvrir un fichier .pub sans Publisher
baissaoui -
baissaoui -

0 réponse