envoi fichier pièce jointe avec Jmail

**nickg** · 03/07/2006, 19h15

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.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
' --------------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&ecirc;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
%>

Edité par immobilis pour les balises de code. Merci d'y penser la prochaine fois.

**Immobilis** · 03/07/2006, 21h15

Salut,

Merci de ne pas oublier les balises de code.

Sinon, es-tu certain que ton hebergeur authorise l'execution de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Server.MapPath

A+

**nickg** · 04/07/2006, 09h38

c'est mon copier/coller qui a oublié la balise ici

Auparavant sur son ancien serveur, ca marchait, donc j'en conclus pourquoi ca serait différent à présent.
Si il ne l'authorise pas on peut écrire le code différemment?

envoi fichier pièce jointe avec Jmail

ASP

Discussions similaires

Partager

Partager