Page 2 sur 3
Publié : mar. 06/déc./2005 15:06
par Backup
Publié : mar. 06/déc./2005 15:21
par gadjet35
eume vous auriez rien de un peu moi html sa fait depuis longtemps que je l'ai oublier celui la !

Publié : mar. 06/déc./2005 15:40
par Chris
Nan!
Publié : mar. 06/déc./2005 16:40
par AWEAR
Woaw !
Fallait l'oser celle-là !

Publié : mar. 06/déc./2005 16:47
par gadjet35
Publié : mar. 06/déc./2005 16:48
par Chris
AWEAR a écrit :Woaw !
Fallait l'oser celle-là !

Hein !!
Fallait oser quoi ?
Publié : mar. 06/déc./2005 16:48
par AWEAR
Demander une autre solution "moins html"..
Publié : mar. 06/déc./2005 16:50
par Chris
Ah ben c'est tout gadget ça!
Tu lui donnes le doigt, y te prends le bras!
C'est un Pitbull ce mec

Publié : mar. 06/déc./2005 17:21
par gadjet35
oh sa va !

Publié : mar. 06/déc./2005 18:00
par Chris
gadjet35 a écrit :oh sa va !

Pas mal, oui!
Et toi?
Publié : mar. 06/déc./2005 18:49
par CameleonTH
Mega lol mdr ptdr enfin tous quoi
La c'est le sujet MDR de Chris.
Et puis pour envoyer des mail il existe des librairie SMTP mais je ne les ai pas sous la main (ou pluto dans mon PC) donc je ne peut te donner les liens mais ils existe.
Publié : sam. 17/déc./2005 15:57
par Flype
Publié : sam. 17/déc./2005 16:37
par Chris
@Flype
Je ne suis pas sûr que l'utilisation d'une lib lui apprenne la programmation, et l'utilisation de la lib Network()
En cherchant un peu sur les forums , il y a des exemples de codes qui utilisent les fonctions de Purebasic pour l'envoi d'e-mail.
Les libs, c'est bien pour éviter de reprogrammer un truc, mais ça ne dispense pas de connaître un peu comment ca se code.
Enfin, c'est ce que j'en pense

Publié : sam. 17/déc./2005 17:35
par gansta93
Pour Outlook, il y a MAPI mais je c pas comment ça fonctione.
Publié : dim. 18/déc./2005 19:43
par Gillou
Un code pour envoyer un email sans utiliser un programme externe
(Je l'utilise avec le serveur mail de ma boîte

)
Procedure send(msg.s)
Global resultSM.s, connectionID
SendNetworkData (connectionID,@msg, Len (msg))
EndProcedure
Procedure.l SendMail(ServerIP.s, mailto.s, mailfrom.s, subject.s, msgbody.s, port) ; Envoie un message à l'adresse mail choisie (vous pouvez utiliser GetIP pour obtenir l'adresse IP) (port=25 la plupart du temps)
Global resultSM.s, connectionID
If InitNetwork ()
connectionID = OpenNetworkConnection (ServerIP,port)
If connectionID
wait()
error=0
If resultSM= "220"
send( "HELO CGIapp" + #CRLF$ )
wait()
If resultSM= "250"
Delay (100)
send( "MAIL FROM: <" +mailfrom+ ">" + #CRLF$ )
wait()
If resultSM= "250"
send( "RCPT TO: <" +mailto+ ">" + #CRLF$ )
wait()
If resultSM= "250"
send( "DATA" + #CRLF$ )
wait()
If resultSM= "354"
Delay (100)
send( "Date: " + #CRLF$ )
send( "From: <" +mailfrom+ ">" + #CRLF$ )
send( "To: <" +mailto+ ">" + #CRLF$ )
send( "Subject: " +subject+ #CRLF$ )
send( "X-Mailer: PBMailer" + #CRLF$ )
Delay (100)
send( "--" + #CRLF$ + "--" + #CRLF$ + #CRLF$ )
send(msgbody)
Delay (100)
send( "" + #CRLF$ )
send( "." + #CRLF$ )
wait()
If resultSM= "250"
Delay (100)
send( "QUIT" + #CRLF$ )
wait()
ProcedureReturn 1
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
CloseNetworkConnection (connectionID)
EndIf
EndIf
EndProcedure