Arjuna Aircraft Ident.: F-MBSD | 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 :
- sub SendMail(de, a, cc, cci, sujet, texte)
- Dim objCDOSYSCon
- Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration" )
- dim objMail
- Set objMail = Server.CreateObject("CDO.Message" )
- objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver" ) = "localhost"
- objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport" ) = 25
- objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing" ) = 1
- objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout" ) = 60
- objCDOSYSCon.Fields.Update
- Set objMail.Configuration = objCDOSYSCon
- objMail.From = de
- objMail.To = a
- objMail.Subject = sujet
- objMail.Cc = cc
- objMAIL.Bcc = cci
- objMail.HTMLBody = texte
- objMail.Send
- set objMail = nothing
- Set objCDOSYSCon = Nothing
- end sub
- sub SendMailAttach(de, a, cc, cci, sujet, texte, fichier)
- Dim objCDOSYSCon
- Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration" )
- dim objMail
- Set objMail = Server.CreateObject("CDO.Message" )
- objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver" ) = "localhost"
- objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport" ) = 25
- objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing" ) = 1
- objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout" ) = 60
- objCDOSYSCon.Fields.Update
- Set objMail.Configuration = objCDOSYSCon
- objMail.Subject = sujet
- objMail.From = de
- objMail.To = a
- objMail.Cc = cc
- objMAIL.Bcc = cci
- objMail.HTMLBody = texte
- objMail.AddAttachment fichier
- objMail.Send
- set objMail = nothing
- Set objCDOSYSCon = Nothing
- end sub
|
|