VB6 envoie des mails. Mais comment ?

Question

Salut !
& Bonsoir !

Je fais un petit programme qui sert de bon de commande pour 20 commandes.

Seulement lorsque que l'on valide les commandes, elle s'enregistre dans un fichier.log, et j'aimerais qu'à la  fin de la saisie le programme  me  renvoie la commande dans ma boite mail  à l'aide d'  un boutton "command2" cliquer par l'utilisateur .

Pouvez-vous m'aider sur ce point

++

et bonne prog.

____________________________________
Acolyte vous remercie...

                                                    
_______________________by Acolyte __

cboulas · Answer

Look my source :

http://www.vbfrance.com/code.aspx?ID=27208

Chris...
Web : Firstruner - eMail :  [mailto:support@firstruner.com Support]

cs_Acolyte · Answer

ok mais serait-il possible d'avoir un peut plus de détails sur ta source.

- Comment fonctionne-t-elle ?

- Quel objet faut-il à la form ?

++

et bonne prog.

____________________________________
Acolyte vous remercie...

                                                    
_______________________by Acolyte __

acive · Answer

Salut,  moi j'utilise un service gratos de OVH depuis 10 ans +/- et qui fonctionne à merveille sans avoir à regler des serveurs SMTP etc, c'est à dire que tu peux l'installer sur n'importe quel ordi sans reglages
Tu fais une form avec un WebBrowser1 et une command1 et tu remplaces l'adresse email
A+

Private Sub Command1_Click()

WebBrowser1.Navigate "http://www.ovh.net/cgi-bin/reponse.pl?cava2=HTTP://ACIVE.FREE.FR&email_master1=" & "acive@free.fr" & "&url=" & "http://aucunsite.com" & "&subject=" & Replace("Essai d'envoi d'un mail", " ", "%20") & "&message=" & Replace("Voila voila c'était moi encore...", " ", "%20")

End Sub

cboulas · Answer

Acive> j'ai essayé le :

"http://www.ovh.net/cgi-bin/reponse.pl?cava2=HTTP://ACIVE.FREE.FR&email_master1=" & "acive@free.fr" & "&url=" & "http://aucunsite.com" & "&subject=" & Replace("Essai d'envoi d'un mail", " ", "%20") & "&message=" & Replace("Voila voila c'était moi encore...", " ", "%20")

Mais marche pas, IE me retourne un résultat de recherche avec MSN Search

Chris...
Web : Firstruner - eMail :  [mailto:support@firstruner.com Support]

cs_Acolyte · Answer

oki mais c'est où que l'on a le WebBrowser si cela et un objet ?

++

et bonne prog.

____________________________________
Acolyte vous remercie...

                                                    
_______________________by Acolyte __

cboulas · Answer

Dans le contrôle : Microsoft Internet Control

Chris...
Web : Firstruner - eMail :  [mailto:support@firstruner.com Support]

cs_Acolyte · Answer

Si ca marche dans une form mais un boutton nommer command1 et un WebBrowser1 et met cette source :

Private Sub Command1_Click()

WebBrowser1.Navigate "http://www.vbfrance.com/forum.v2.aspx?ID=323804" & "acive@free.fr" & "&url=" & "http://aucunsite.com" & "&subject=" & Replace("Essai d'envoi d'un mail", " ", "%20") & "&message=" & Replace("Voila voila c'était moi encore...", " ", "%20")

End Sub


Tu vas arriver sur la page des topic du forum.
quand command1 et cliquer

++

et bonne prog.

____________________________________
Acolyte vous remercie...

                                                    
_______________________by Acolyte __

cs_Acolyte · Answer

Seul problème : c'est pas du tout ça que je cherche
Mon problème est :

J'ai un programme qui écrit dans un fichier.log et je veux que quand l'utilisateur clique le boutton command3, le programme envoie le fichier.log sur une boîte mail. (plus précisement la mienne moacolyte@hotmail.com)

++

et bonne prog.

____________________________________
Acolyte vous remercie...

                                                    
_______________________by Acolyte __

cboulas · Answer

Donc ma source te conviendrais.

Chris...
Web : Firstruner - eMail :  [mailto:support@firstruner.com Support]

acive · Answer

Si ca marche moi j'ai recu ca :

Date:  Sun, 31 Oct 2004 22:59:23 +0100 
De:  acive@free.fr 
À:  acive@free.fr 
Objet:  Essai d'envoi d'un mail 
Bonjour,
Date: 31/10/104 à 22:59:22.

Le site : 

message = Voila voila c'était moi encore...
 
 
JE T'AVAIS DIT DE CHANGER L'ADRESSE E-MAIL

cs_Acolyte · Answer

on le sait qu'il marche !
Merci à toi mais cela n'était pas mon but. dsl :'(

++

et bonne prog.

____________________________________
Acolyte vous remercie...

                                                    
_______________________by Acolyte __

acive · Answer

dslé alors...
a+

VB6 envoie des mails. Mais comment ?

12 réponses

Discussions similaires