Envoyer des valeurs par email ???

lord mathius

12/08/2005 à 04:29

--=-pURyiSI+XugviukCHPGo
Content-Type: text/plain; charset=iso-8859-15
Content-Transfer-Encoding: quoted-printable

Bonjour

quelle est ton OS ?

sous 2000 2003 et XP
tu peut faire comme ca : cela fait appel a un serveur SMTP pour relayer
le mail. et si le serveur SMTP necessite une identification, ce code et
magic car il te permet de saisir l'identification pour l'envois de
mail.

Lord Mathius

Const cdoSendUsingMethod = "http://schemas.microsoft.com/cdo/confi guration/sendusing"
Const cdoSendUsingPort = 2
Const cdoSMTPServer = "http://schemas.microsoft.com/cdo/confi guration/smtpserver"
Const cdoSMTPServerPort = "http://schemas.microsoft.com/cdo/confi guration/smtpserverport"
Const cdoSMTPConnectionTimeout = "http://schemas.microsoft.com/cdo/confi guration/smtpconnectiontimeout"
Const cdoSMTPAuthenticate = "http://schemas.microsoft.com/cdo/confi guration/smtpauthenticate"
Const cdoBasic = 1
Const cdoSendUserName = "http://schemas.microsoft.com/cdo/confi guration/sendusername"
Const cdoSendPassword = "http://schemas.microsoft.com/cdo/confi guration/sendpassword"

Dim objConfig ' As CDO.Configuration
Dim objMessage ' As CDO.Message
Dim Fields ' As ADODB.Fields

' Get a handle on the config object and it's fields
Set objConfig = Server.CreateObject("CDO.Configuration")
Set Fields = objConfig.Fields

' Set config fields we care about
With Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = "ServerSmtp"
.Item(cdoSMTPServerPort) = 25
.Item(cdoSMTPConnectionTimeout) = 20
.Item(cdoSMTPAuthenticate) = cdoBasic
.Item(cdoSendUserName) = "LOGIN"
.Item(cdoSendPassword) = "Mot De Passe"

.Update
End With

Set objMessage = Server.CreateObject("CDO.Message")

Set objMessage.Configuration = objConfig

With objMessage
.To = "Adresse Mail destinataire"
.From = "Adresse Mail emetteur"
.Subject = "Sujet du mail"
.TextBody = "Contenu du message a envoyer "
.Send
End With

Set Fields = Nothing
Set objMessage = Nothing
Set objConfig = Nothing

Envoyer des valeurs par email ???

Bonjour, j'ai:

onClick="document.location.href='mailto:?sub ject�mande
de thème&body=t1,r1,t2,t3,t4,t5,t6'";>

Ces valeurs (je présume) t1, t2, etc, proviennent de
saisies:

Sa date de naissance ? 
<input
type="text"
size="88"
style="color:#ff0000"
style="font:bold"
name="t6"> 

Comment faire svp (je n'y connais rien), essayez de me
faireun truc qui marche :o)

Merci, au revoir et à bientôt :o)

--=-pURyiSI+XugviukCHPGo
Content-Type: text/html; charset=utf-8

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 TRANSITIONAL//EN">
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; CHARSET=UTF-8">
<META NAME="GENERATOR" CONTENT="GtkHTML/3.2.5">
</HEAD>
<BODY>
Bonjour 
 
quelle est ton OS ? 
 
sous 2000 2003 et XP 
tu peut faire comme ca : cela fait appel a un serveur SMTP pour relayer le mail. et si le serveur SMTP necessite une identification, ce code et magic car il te permet de saisir l'identification pour l'envois de mail. 
 
Lord Mathius 
 
 
Const cdoSendUsingMethod        = "http://schemas.microsoft.com/cdo/configuration/sendusing" 
Const cdoSendUsingPort          = 2 
Const cdoSMTPServer             = "http://schemas.microsoft.com/cdo/configuration/smtpserver" 
Const cdoSMTPServerPort         = "http://schemas.microsoft.com/cdo/configuration/smtpserverport" 
Const cdoSMTPConnectionTimeout  = "http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout" 
Const cdoSMTPAuthenticate       = "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate" 
Const cdoBasic                  = 1 
Const cdoSendUserName           = "http://schemas.microsoft.com/cdo/configuration/sendusername" 
Const cdoSendPassword           = "http://schemas.microsoft.com/cdo/configuration/sendpassword" 
 
Dim objConfig  ' As CDO.Configuration 
Dim objMessage ' As CDO.Message 
Dim Fields     ' As ADODB.Fields 
 
' Get a handle on the config object and it's fields 
Set objConfig = Server.CreateObject("CDO.Configuration") 
Set Fields = objConfig.Fields 
 
' Set config fields we care about 
With Fields 
   .Item(cdoSendUsingMethod)       = cdoSendUsingPort 
   .Item(cdoSMTPServer)            = "ServerSmtp" 
   .Item(cdoSMTPServerPort)        = 25 
   .Item(cdoSMTPConnectionTimeout) = 20 
   .Item(cdoSMTPAuthenticate)      = cdoBasic 
   .Item(cdoSendUserName)          = "LOGIN" 
   .Item(cdoSendPassword)          = "Mot De Passe" 
 
   .Update 
End With 
 
Set objMessage = Server.CreateObject("CDO.Message") 
 
Set objMessage.Configuration = objConfig 
 
With objMessage 
   .To       = "Adresse Mail destinataire" 
   .From     = "Adresse Mail emetteur" 
   .Subject  = "Sujet du mail" 
   .TextBody = "Contenu du message a envoyer " 
   .Send 
End With 
 
Set Fields = Nothing 
Set objMessage = Nothing 
Set objConfig = Nothing  
 
 
 
<BLOCKQUOTE TYPE=CITE>
<PRE>
Envoyer des valeurs par email ???

Bonjour, j'ai:

 onClick="document.location.href='mailto:<A HREF="mailto:"></A>?subjectÞmande 
de thème&body=t1,r1,t2,t3,t4,t5,t6'";>

Ces valeurs (je présume) t1, t2, etc, proviennent de 
saisies:

Sa date de naissance ? 
 <input
 type="text"
 size="88"
 style="color:#ff0000"
 style="font:bold"
 name="t6"> 

 Comment faire svp (je n'y connais rien), essayez de me 
faireun truc qui marche :o)

 Merci, au revoir et à bientôt :o)
</PRE>
</BLOCKQUOTE>
</BODY>
</HTML>

--=-pURyiSI+XugviukCHPGo--

--=-pURyiSI+XugviukCHPGo
Content-Type: text/plain; charset=iso-8859-15
Content-Transfer-Encoding: quoted-printable

Bonjour

quelle est ton OS ?

sous 2000 2003 et XP
tu peut faire comme ca : cela fait appel a un serveur SMTP pour relayer
le mail. et si le serveur SMTP necessite une identification, ce code et
magic car il te permet de saisir l'identification pour l'envois de
mail.

Lord Mathius

Const cdoSendUsingMethod = "http://schemas.microsoft.com/cdo/confi guration/sendusing"
Const cdoSendUsingPort = 2
Const cdoSMTPServer = "http://schemas.microsoft.com/cdo/confi guration/smtpserver"
Const cdoSMTPServerPort = "http://schemas.microsoft.com/cdo/confi guration/smtpserverport"
Const cdoSMTPConnectionTimeout = "http://schemas.microsoft.com/cdo/confi guration/smtpconnectiontimeout"
Const cdoSMTPAuthenticate = "http://schemas.microsoft.com/cdo/confi guration/smtpauthenticate"
Const cdoBasic = 1
Const cdoSendUserName = "http://schemas.microsoft.com/cdo/confi guration/sendusername"
Const cdoSendPassword = "http://schemas.microsoft.com/cdo/confi guration/sendpassword"

Dim objConfig ' As CDO.Configuration
Dim objMessage ' As CDO.Message
Dim Fields ' As ADODB.Fields

' Get a handle on the config object and it's fields
Set objConfig = Server.CreateObject("CDO.Configuration")
Set Fields = objConfig.Fields

' Set config fields we care about
With Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = "ServerSmtp"
.Item(cdoSMTPServerPort) = 25
.Item(cdoSMTPConnectionTimeout) = 20
.Item(cdoSMTPAuthenticate) = cdoBasic
.Item(cdoSendUserName) = "LOGIN"
.Item(cdoSendPassword) = "Mot De Passe"

.Update
End With

Set objMessage = Server.CreateObject("CDO.Message")

Set objMessage.Configuration = objConfig

With objMessage
.To = "Adresse Mail destinataire"
.From = "Adresse Mail emetteur"
.Subject = "Sujet du mail"
.TextBody = "Contenu du message a envoyer "
.Send
End With

Set Fields = Nothing
Set objMessage = Nothing
Set objConfig = Nothing

Envoyer des valeurs par email ???

Bonjour, j'ai:

onClick="document.location.href='mailto:montmartre75018@free.fr?sub ject=Demande
de thème&body=t1,r1,t2,t3,t4,t5,t6'";>

Ces valeurs (je présume) t1, t2, etc, proviennent de
saisies:

Sa date de naissance ? 
<input
type="text"
size="88"
style="color:#ff0000"
style="font:bold"
name="t6"> 

Comment faire svp (je n'y connais rien), essayez de me
faireun truc qui marche :o)

Merci, au revoir et à bientôt :o)

--=-pURyiSI+XugviukCHPGo
Content-Type: text/html; charset=utf-8

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 TRANSITIONAL//EN">
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; CHARSET=UTF-8">
<META NAME="GENERATOR" CONTENT="GtkHTML/3.2.5">
</HEAD>
<BODY>
Bonjour 
 
quelle est ton OS ? 
 
sous 2000 2003 et XP 
tu peut faire comme ca : cela fait appel a un serveur SMTP pour relayer le mail. et si le serveur SMTP necessite une identification, ce code et magic car il te permet de saisir l'identification pour l'envois de mail. 
 
Lord Mathius 
 
 
Const cdoSendUsingMethod        = "http://schemas.microsoft.com/cdo/configuration/sendusing" 
Const cdoSendUsingPort          = 2 
Const cdoSMTPServer             = "http://schemas.microsoft.com/cdo/configuration/smtpserver" 
Const cdoSMTPServerPort         = "http://schemas.microsoft.com/cdo/configuration/smtpserverport" 
Const cdoSMTPConnectionTimeout  = "http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout" 
Const cdoSMTPAuthenticate       = "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate" 
Const cdoBasic                  = 1 
Const cdoSendUserName           = "http://schemas.microsoft.com/cdo/configuration/sendusername" 
Const cdoSendPassword           = "http://schemas.microsoft.com/cdo/configuration/sendpassword" 
 
Dim objConfig  ' As CDO.Configuration 
Dim objMessage ' As CDO.Message 
Dim Fields     ' As ADODB.Fields 
 
' Get a handle on the config object and it's fields 
Set objConfig = Server.CreateObject("CDO.Configuration") 
Set Fields = objConfig.Fields 
 
' Set config fields we care about 
With Fields 
   .Item(cdoSendUsingMethod)       = cdoSendUsingPort 
   .Item(cdoSMTPServer)            = "ServerSmtp" 
   .Item(cdoSMTPServerPort)        = 25 
   .Item(cdoSMTPConnectionTimeout) = 20 
   .Item(cdoSMTPAuthenticate)      = cdoBasic 
   .Item(cdoSendUserName)          = "LOGIN" 
   .Item(cdoSendPassword)          = "Mot De Passe" 
 
   .Update 
End With 
 
Set objMessage = Server.CreateObject("CDO.Message") 
 
Set objMessage.Configuration = objConfig 
 
With objMessage 
   .To       = "Adresse Mail destinataire" 
   .From     = "Adresse Mail emetteur" 
   .Subject  = "Sujet du mail" 
   .TextBody = "Contenu du message a envoyer " 
   .Send 
End With 
 
Set Fields = Nothing 
Set objMessage = Nothing 
Set objConfig = Nothing  
 
 
 
<BLOCKQUOTE TYPE=CITE>
<PRE>
Envoyer des valeurs par email ???

Bonjour, j'ai:

 onClick="document.location.href='mailto:<A HREF="mailto:montmartre75018@free.fr">montmartre75018@free.fr</A>?subjectÞmande 
de thème&body=t1,r1,t2,t3,t4,t5,t6'";>

Ces valeurs (je présume) t1, t2, etc, proviennent de 
saisies:

Sa date de naissance ? 
 <input
 type="text"
 size="88"
 style="color:#ff0000"
 style="font:bold"
 name="t6"> 

 Comment faire svp (je n'y connais rien), essayez de me 
faireun truc qui marche :o)

 Merci, au revoir et à bientôt :o)
</PRE>
</BLOCKQUOTE>
</BODY>
</HTML>

--=-pURyiSI+XugviukCHPGo--

Vous avez filtré cet utilisateur ! Consultez son message

--=-pURyiSI+XugviukCHPGo
Content-Type: text/plain; charset=iso-8859-15
Content-Transfer-Encoding: quoted-printable

Bonjour

quelle est ton OS ?

sous 2000 2003 et XP
tu peut faire comme ca : cela fait appel a un serveur SMTP pour relayer
le mail. et si le serveur SMTP necessite une identification, ce code et
magic car il te permet de saisir l'identification pour l'envois de
mail.

Lord Mathius

Const cdoSendUsingMethod = "http://schemas.microsoft.com/cdo/confi guration/sendusing"
Const cdoSendUsingPort = 2
Const cdoSMTPServer = "http://schemas.microsoft.com/cdo/confi guration/smtpserver"
Const cdoSMTPServerPort = "http://schemas.microsoft.com/cdo/confi guration/smtpserverport"
Const cdoSMTPConnectionTimeout = "http://schemas.microsoft.com/cdo/confi guration/smtpconnectiontimeout"
Const cdoSMTPAuthenticate = "http://schemas.microsoft.com/cdo/confi guration/smtpauthenticate"
Const cdoBasic = 1
Const cdoSendUserName = "http://schemas.microsoft.com/cdo/confi guration/sendusername"
Const cdoSendPassword = "http://schemas.microsoft.com/cdo/confi guration/sendpassword"

Dim objConfig ' As CDO.Configuration
Dim objMessage ' As CDO.Message
Dim Fields ' As ADODB.Fields

' Get a handle on the config object and it's fields
Set objConfig = Server.CreateObject("CDO.Configuration")
Set Fields = objConfig.Fields

' Set config fields we care about
With Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = "ServerSmtp"
.Item(cdoSMTPServerPort) = 25
.Item(cdoSMTPConnectionTimeout) = 20
.Item(cdoSMTPAuthenticate) = cdoBasic
.Item(cdoSendUserName) = "LOGIN"
.Item(cdoSendPassword) = "Mot De Passe"

.Update
End With

Set objMessage = Server.CreateObject("CDO.Message")

Set objMessage.Configuration = objConfig

With objMessage
.To = "Adresse Mail destinataire"
.From = "Adresse Mail emetteur"
.Subject = "Sujet du mail"
.TextBody = "Contenu du message a envoyer "
.Send
End With

Set Fields = Nothing
Set objMessage = Nothing
Set objConfig = Nothing

Envoyer des valeurs par email ???

Bonjour, j'ai:

onClick="document.location.href='mailto:?sub ject�mande
de thème&body=t1,r1,t2,t3,t4,t5,t6'";>

Ces valeurs (je présume) t1, t2, etc, proviennent de
saisies:

Sa date de naissance ? 
<input
type="text"
size="88"
style="color:#ff0000"
style="font:bold"
name="t6"> 

Comment faire svp (je n'y connais rien), essayez de me
faireun truc qui marche :o)

Merci, au revoir et à bientôt :o)

--=-pURyiSI+XugviukCHPGo
Content-Type: text/html; charset=utf-8

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 TRANSITIONAL//EN">
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; CHARSET=UTF-8">
<META NAME="GENERATOR" CONTENT="GtkHTML/3.2.5">
</HEAD>
<BODY>
Bonjour 
 
quelle est ton OS ? 
 
sous 2000 2003 et XP 
tu peut faire comme ca : cela fait appel a un serveur SMTP pour relayer le mail. et si le serveur SMTP necessite une identification, ce code et magic car il te permet de saisir l'identification pour l'envois de mail. 
 
Lord Mathius 
 
 
Const cdoSendUsingMethod        = "http://schemas.microsoft.com/cdo/configuration/sendusing" 
Const cdoSendUsingPort          = 2 
Const cdoSMTPServer             = "http://schemas.microsoft.com/cdo/configuration/smtpserver" 
Const cdoSMTPServerPort         = "http://schemas.microsoft.com/cdo/configuration/smtpserverport" 
Const cdoSMTPConnectionTimeout  = "http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout" 
Const cdoSMTPAuthenticate       = "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate" 
Const cdoBasic                  = 1 
Const cdoSendUserName           = "http://schemas.microsoft.com/cdo/configuration/sendusername" 
Const cdoSendPassword           = "http://schemas.microsoft.com/cdo/configuration/sendpassword" 
 
Dim objConfig  ' As CDO.Configuration 
Dim objMessage ' As CDO.Message 
Dim Fields     ' As ADODB.Fields 
 
' Get a handle on the config object and it's fields 
Set objConfig = Server.CreateObject("CDO.Configuration") 
Set Fields = objConfig.Fields 
 
' Set config fields we care about 
With Fields 
   .Item(cdoSendUsingMethod)       = cdoSendUsingPort 
   .Item(cdoSMTPServer)            = "ServerSmtp" 
   .Item(cdoSMTPServerPort)        = 25 
   .Item(cdoSMTPConnectionTimeout) = 20 
   .Item(cdoSMTPAuthenticate)      = cdoBasic 
   .Item(cdoSendUserName)          = "LOGIN" 
   .Item(cdoSendPassword)          = "Mot De Passe" 
 
   .Update 
End With 
 
Set objMessage = Server.CreateObject("CDO.Message") 
 
Set objMessage.Configuration = objConfig 
 
With objMessage 
   .To       = "Adresse Mail destinataire" 
   .From     = "Adresse Mail emetteur" 
   .Subject  = "Sujet du mail" 
   .TextBody = "Contenu du message a envoyer " 
   .Send 
End With 
 
Set Fields = Nothing 
Set objMessage = Nothing 
Set objConfig = Nothing  
 
 
 
<BLOCKQUOTE TYPE=CITE>
<PRE>
Envoyer des valeurs par email ???

Bonjour, j'ai:

 onClick="document.location.href='mailto:<A HREF="mailto:"></A>?subjectÞmande 
de thème&body=t1,r1,t2,t3,t4,t5,t6'";>

Ces valeurs (je présume) t1, t2, etc, proviennent de 
saisies:

Sa date de naissance ? 
 <input
 type="text"
 size="88"
 style="color:#ff0000"
 style="font:bold"
 name="t6"> 

 Comment faire svp (je n'y connais rien), essayez de me 
faireun truc qui marche :o)

 Merci, au revoir et à bientôt :o)
</PRE>
</BLOCKQUOTE>
</BODY>
</HTML>

--=-pURyiSI+XugviukCHPGo--

scraper

12/08/2005 à 12:21

Bonjour LE TROLL, dans le message
news:%23fxPT$
tu disais :

Pourquoi ça ne saute pas à la ligne à chaque élément,
que faire ???

Merci, au revoir et à bientôt :o)

pourquoi tu ne respectes pas la charte de ces forums ??

Pas de HTML lourdingue et hideux, et réponse en dessous !

c'est ballot, pour un peu je t'aurais presque donné la réponse ...

mais c'est vrai que j'y connais rien, pas vrai ? ;-)

--

Adresse invalide
Merci de répondre sur le forum ...
http://scraper.chez.tiscali.fr

scraper

LE TROLL

12/08/2005 à 12:44

Ben voui, la peuve que tu n'y connais rien! Pas de
réponse!

scraper

12/08/2005 à 12:59

Bonjour LE TROLL, dans le message
news:%
tu disais :

Ben voui, la peuve que tu n'y connais rien! Pas de
réponse!

trop facile ;-)

essaie encore :-)

--

Adresse invalide
Merci de répondre sur le forum ...
http://scraper.chez.tiscali.fr

scraper

LE TROLL

12/08/2005 à 13:02

Je crois que tu n'as pas vu que c'est du script, et non pas
du html, si c'est ça que tu imagines, je ne crois pas qu'un
 fonctionne dans le script en s'appliquant aux éléments
de la liste...

scraper

12/08/2005 à 13:52

Bonjour LE TROLL, dans le message
news:
tu disais :

Je crois que tu n'as pas vu que c'est du script, et non pas
du html, si c'est ça que tu imagines, je ne crois pas qu'un
 fonctionne dans le script en s'appliquant aux éléments
de la liste...

tu es trop bon (et aussi trop fort .... ;-)

--

Adresse invalide
Merci de répondre sur le forum ...
http://scraper.chez.tiscali.fr

scraper

LE TROLL

12/08/2005 à 14:04

Tiens tu as ton copain Allender, à vous deux vous allez
pouvoir foutre le bordel dans les questions, comme tu viens
déjà de commencer, moi ça m'amuse, ça m'amuse parce que peu
sont capable de voir que c'est toi qui parasite les autres
et les forums, mais heureusement, les plus intelligents ne
s'y laissent pas prendre...

Envoyer des valeurs par email ???

7 réponses

Veuillez sélectionner un problème