ASP CDO ....PROBLEME DE RETURN PATH

ASP CDO ....PROBLEME DE RETURN PATH - ASP - Programmation

Marsh Posté le 06-12-2004 à 20:50:28    

Hello tout le monde!
 
Bo bah g un probleme avec le nouveau composant cdo.
Je voudrais faire un mailing a des utilisateurs...
 
mais je voudrais cacher le return path...
 
avec le nouveau composant...ce con affiche le message :
 
envoyé de dsfjmdsf@monfrom.fr de la part de sdlfkdsf@clamerde.fr
 
deja d'une c moche de deux....je peux rien gerer des retours de mails si je fé pas ca.
 
Impossible de trouver sur le net une reponse à ma question
 
si i a un dieu du vb pour me depanner  :bounce:  :bounce:  :jap:  :jap:

Reply

Marsh Posté le 06-12-2004 à 20:50:28   

Reply

Marsh Posté le 06-12-2004 à 21:48:24    

heu ...toujours personne ?
ouainnnnnn c cho :'(

Reply

Marsh Posté le 07-12-2004 à 16:44:06    

rien compris. en langage humain ça donne quoi ? (quel objet, quel comportement exactement, le code, etc.)


Message édité par Arjuna le 07-12-2004 à 16:44:24
Reply

Marsh Posté le 08-12-2004 à 10:30:01    

Voila mon code....
Le return path n'est jamais pris en compte...:'(
 
 
'Set iMsg = CreateObject("CDO.Message" )
'With iMsg
  '.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing" ) = 2
  '.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver" ) = "10.0.0.1"
  '.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport" ) = 25
  '.Configuration.Fields.item("urn:schemas:mailheader:return-path" ) = "return@nom.com"
  '.Configuration.Fields.item("urn:schemas:mailheader:reply-by" )="reply@nom.com"
  '.from="aaa.fr"
  '.To = "aa@domaine.fr"
  '.Subject = "testouille"
  '.XSender= "test@domaine.fr "
  '.Configuration.Fields.Update
'End With
'iMsg.send
'Set iMsg = nothing


Message édité par snooooop le 08-12-2004 à 10:44:47
Reply

Marsh Posté le 08-12-2004 à 10:32:04    

voila c plus propre comme ca :
<%  
'Set iMsg = CreateObject("CDO.Message" )
'With iMsg
  '.Configuration.Fields.Item("http:\\schemas.microsoft.com/cdo/configuration/sendusing" ) = 2
  '.Configuration.Fields.Item("http:\\schemas.microsoft.com/cdo/configuration/smtpserver" ) = "10.0.0.1"
  '.Configuration.Fields.Item("http:\\schemas.microsoft.com/cdo/configuration/smtpserverport" ) = 25
  '.Configuration.Fields.item("urn:schemas:mailheader:return-path" ) = "return@nom.com"
  '.Configuration.Fields.item("urn:schemas:mailheader:reply-by" )="reply@agefi.fr"
  '.from="aaa.fr"
  '.To = "jseroussi@agefi.fr"
  '.Subject = "testouille"
  '.XSender= "test@agefi.fr "
  '.Configuration.Fields.Update
'End With
'iMsg.send
'Set iMsg = nothing
 
%>

Reply

Marsh Posté le 08-12-2004 à 10:34:05    

bref ce code ne marche pas....voila ligne a la place de l'image...
Il interpretre tout ce forum :'(
 
urn:schemas:mailheader:

Reply

Marsh Posté le 08-12-2004 à 10:53:05    

:heink:
 
Ben c'est pas la bonne fonction ça, parceque toutes les lignes sont en commentaires :pt1cable:


Message édité par Arjuna le 08-12-2004 à 10:53:30
Reply

Marsh Posté le 08-12-2004 à 15:45:45    

lol merci
suffit de decocher :)
 
tu en penses quoi ?

Reply

Marsh Posté le 08-12-2004 à 17:42:06    

J'en pense pas grand chose, parceque j'ai jamais utilisé d'adresse de réponse différente de celle d'envois...
 
J'utilise ça comme fonctions. Mais j'ai pas de "XSender"...
 

Code :
  1. sub SendMail(de, a, cc, cci, sujet, texte)
  2. Dim objCDOSYSCon
  3. Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration" )
  4. dim objMail
  5. Set objMail = Server.CreateObject("CDO.Message" )
  6. objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver" ) = "localhost"
  7. objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport" ) = 25
  8. objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing" ) = 1
  9. objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout" ) = 60
  10. objCDOSYSCon.Fields.Update
  11. Set objMail.Configuration = objCDOSYSCon
  12. objMail.From = de
  13. objMail.To = a
  14. objMail.Subject = sujet
  15. objMail.Cc = cc
  16. objMAIL.Bcc = cci
  17. objMail.HTMLBody = texte
  18. objMail.Send
  19. set objMail = nothing
  20. Set objCDOSYSCon = Nothing
  21. end sub
  22. sub SendMailAttach(de, a, cc, cci, sujet, texte, fichier)
  23. Dim objCDOSYSCon
  24. Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration" )
  25. dim objMail
  26. Set objMail = Server.CreateObject("CDO.Message" )
  27. objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver" ) = "localhost"
  28. objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport" ) = 25
  29. objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing" ) = 1
  30. objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout" ) = 60
  31. objCDOSYSCon.Fields.Update
  32. Set objMail.Configuration = objCDOSYSCon
  33. objMail.Subject = sujet
  34. objMail.From = de
  35. objMail.To = a
  36. objMail.Cc = cc
  37. objMAIL.Bcc = cci
  38. objMail.HTMLBody = texte
  39. objMail.AddAttachment fichier
  40. objMail.Send
  41. set objMail = nothing
  42. Set objCDOSYSCon = Nothing
  43. end sub

Reply

Marsh Posté le 10-12-2004 à 12:56:25    

oué mé helas ca ne gere pas les retours mail :)


Message édité par snooooop le 10-12-2004 à 12:56:53
Reply

Marsh Posté le 10-12-2004 à 12:56:25   

Reply

Marsh Posté le 10-12-2004 à 13:13:04    

les titres de sujet en majuscule, c'est mal :o

Reply

Marsh Posté le 11-12-2004 à 20:07:05    

g mon caps loc coincé :)
 
desolé

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed