|
|
Vous êtes ici : Forums > Langage ASP > envoi fichier pièce jointe avec Jmail
envoi fichier pièce jointe avec Jmail
Bonjour
dans une zone membre , chaque membre par l'intermédiaire d'un formulaire, recupére un fichier qui lui est propre. C'est à dire que dans une zone de formulaire le membre entre son adresse mel et aprés validation il reçoit un mel avec en pièce jointe le fichier (pdf)
j'ai donc une base de donnée access et via une interface de gestion je définis pour chaque membre, le fichier qu'il peut télécharger. J'ai un fichier "expéditeur .asp qui a pour fonction d'attacher le fichier en question. Il a été fait pour aspEmail et ça fonctionnait trés bien.
Mon hébergeur à remis a neuf ces serveurs et me demande d'utiliser Jmail
J'ai essayé de modifier le code mais j'arrive à une erreur d'envoi de la piéce jointe avec le mel
-----
jmail.SMTPMail erreur '8000ffff'
Cannot open file
/zonem/expediteur.asp, ligne 26
------
Qu'est ce qui va pas dans le code ?
Merci pour l'aide.
' --------------le message dans le mail format html------------
message=date
message= message & "<br>" & "Bonjour<br>Ci-joint votre fichier.<br>A bientot."
'---------------adresse expéditeur----------------------------
adrExp="admi@domaine.org"
'---------------adresse en copie------------------------------
'permet de recevoir le compte rendu de la demande de doc
AdrAdmin="info@domaine.org"
'-----------------sujet---------------------------------------
sujet="Envoi de fichier"
'***************************************************************************************
Dim objJMail
Set objJMail = Server.CreateObject("JMail.SMTPMail")
objJMail.ServerAddress = "mon smtp"
objJMail.Sender = adrExp
objJMail.Subject = sujet
objJMail.Body = message
objJMail.AddRecipient Request.Form("adr")
'Mail.IsHTML = true
'***********************************
objJMail.AddAttachment fichier
>>>>>>>>>>>>> ligne 26 fichier=Server.MapPath("/document/pdf/revue/" & Request.Form("doc"))
'*****************************************
On Error Resume Next
Mail.Send ' ó Mail.SendToQueue
If Err <> 0 Then
Response.Write "An error occurred: " & Err.Description
else
%>
<HTML>
<HEAD>
<TITLE></TITLE>
</HEAD>
<BODY>
<p align="center"> Votre fichier a été envoyée à l'adresse email que vous
venez de nous indiquer.</p>
<form>
<p align="center"><input type="button" value="Fermer la fenêtre" onClick="window.close()" /></form>
</BODY>
</HTML>
<%
End If
Set Conn = Server.CreateObject("ADODB.Connection")
MdbChemin =Server.MapPath("../../../database/memb.mdb")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbChemin & ";"
sql = "SELECT * FROM login where n°=" & session("idClient")
Set RS = Conn.Execute(sql)
if not rs.eof then 'trouvé le mot de passe
nomPrenom= rs(4)
end if
Set objJMail = Server.CreateObject("JMail.SMTPMail")
objJMail.ServerAddress = "mon smtp"
objJMail.AddRecipient AdrAdmin
objJMail.Subject = sujet
objJMail.HTMLBody = date & "<br>" & nomPrenom & " a pris connaissance de son fichier."
objJMail.Execute
Set objJMail = Nothing
set rs=nothing
%>
Message posté le 03/07/2006
par nickg
Répondre à ce message |
|
|
|
A RETENIR CETTE SEMAINE |
21/11/2008 -
Microsoft Windows fête ses 23 ans !
Le célèbre système d'exploitation de Microsoft fête aujourd'hui son vingt-troisième anniversaire. C' ...
|
21/11/2008 -
Pratiques fondamentales pour un développement logiciel sûr
L'article de Micheal Howard vient d'être traduit en français par Kader Yildirim ! Ce document synthé ...
|
21/11/2008 -
Mise à jour de la méthode SDL pour éradiquer définitivement les Mécapoulets
Les Mécapoulets sont une menace perpétuelle pour les développeurs et les utilisateurs de leurs appli ...
|
20/11/2008 -
A la découverte des tests d’interfaces graphiques avec Visual Studio 2010
Microsoft introduit dans sa version 2010 de Visual Studio les « Coded UI Tests », ou « Tests d’inter ...
|
20/11/2008 -
PDC 2008 - Windows Azure vu par Grégory Renard
Grégory vous propose de découvrir en vidéo - et en 5 minutes - les annonces faites autour de Windows ...
|
20/11/2008 -
Microsoft prépare une suite antivirus gratuite
L’éditeur abandonne Live One Care, sa solution payante, au profit de Morro, une suite antivirus grat ...
|
19/11/2008 -
Comprendre le fonctionnement des Rules de WF
L'activité Policy va nous permettre de piloter nos workflows à partir de règles simples mais efficac ...
|
|
|
