begin process at 2012 02 17 11:40:35
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Réseau & Internet

 > ENVOYER UN MAIL TRES SIMPLEMENT

ENVOYER UN MAIL TRES SIMPLEMENT


 Information sur la source

Note :
7 / 10 - par 1 personne
7,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Réseau & Internet Classé sous :mail, envoie Niveau :Débutant Date de création :04/01/2002 Date de mise à jour :04/01/2002 09:50:32 Vu :7 052
Auteur : Majen

Ecrire un message privé
Site perso
Commentaire sur cette source (16)
Ajouter un commentaire et/ou une note

 Description

aucune critique ne sera acceptée :P

Source

  • Private Sub Command1_Click()
  • Winsock1.Connect "serveur", 25
  • End Sub
  • Private Sub Winsock1_Connect()
  • Winsock1.SendData "HELO seveur" & vbCrLf
  • Winsock1.SendData "MAIL FROM:<envoyeur>" & vbCrLf
  • Winsock1.SendData "RCPT TO:<cible>" & vbCrLf
  • Winsock1.SendData "DATA" & vbCrLf & "blablabla" & vbCrLf & "." & vbCrLf & "QUIT" & vbCrLf
  • End Sub 
Private Sub Command1_Click()
Winsock1.Connect "serveur", 25
End Sub

Private Sub Winsock1_Connect()
Winsock1.SendData "HELO seveur" & vbCrLf
Winsock1.SendData "MAIL FROM:<envoyeur>" & vbCrLf
Winsock1.SendData "RCPT TO:<cible>" & vbCrLf
Winsock1.SendData "DATA" & vbCrLf & "blablabla" & vbCrLf & "." & vbCrLf & "QUIT" & vbCrLf
End Sub



 Sources du même auteur

Source avec Zip SERIAL RENAMER
Source avec Zip TEST DE LUCIDIDÉ
Source avec Zip MORSE
Source avec Zip INTRODUCTION AU VISUAL BASIC
SUBSTITUTION POLYALPHABÉTIQUE (VIGENERE)
Toutes les sources de Majen

 Sources de la même categorie

Source avec Zip Source avec une capture GESTIONNAIRE DE TÉLÉCHARGEMENT, AVEC REPRISE ET MULTITHREADI... par Madx23
Source avec Zip Source avec une capture CONVERTIR DU TEXTE RTF EN CODE HTML ET VICE-VERSA par vicosta
Source avec Zip Source avec une capture DICTIONAIRE TEXT/AUDIO/VISUELLE ANGLAIS AVEC WEBBROWSER CONT... par majnounmajda
Source avec Zip Source .NET (Dotnet) NSLOOKUP EN VB.NET OU COMMENT FAIRE UNE REQÛETE DNS EN PRÉCI... par ShareVB
Source avec Zip Source avec une capture MINI SEVEUR HTTP AVEC INTERFACE GRAPHIQUE ET IMPLÉMENTATIONS... par lemout
Toutes les sources de la catégorie Réseau & Internet

 Sources en rapport avec celle ci

GÉNÉRATEUR DE MAIL OUTLOOK AVEC MISE EN FORME VIA UNE SYNTAX... par 8Tnerolf8
Source avec Zip Source avec une capture Source .NET (Dotnet) ENVOI DE MAIL AVEC PIÈCE JOINTE par EhJoe
Source avec Zip Source avec une capture EDITEUR DE BBCODE & ENVOI MAIL ANIMÉ PAR L'AGENT MERLIN LE M... par hackoo
Source avec Zip Source avec une capture ENVOI MAIL AVEC MERLIN LE MAGICIEN par hackoo
Source avec Zip Source avec une capture SMTP : PROJET COMPLET D'ENVOI DE COURRIEL, SANS UTILISATION ... par fkuchta

Commentaires et avis

Commentaire de Zmasteur le 04/01/2002 18:03:50

déja sur le site

Commentaire de bladepop le 04/01/2002 22:28:51

lol c la galère entre vous deux ...

Commentaire de rollietylerssss le 05/02/2002 23:11:57

Bonjour
je n'arrive pas à utiliser Winsock.
je place un winsock sur une frm et ensuite je met un boutton avec le code Cliquer qui correspond a votre code. je remplace "serveur" par smtp.wanadoo.fr.
Dans la sub connect de winsock je rentre:
Winsock1.SendData "HELO seveur" & vbCrLf
Winsock1.SendData "MAIL FROM:essai@ifrance.com" & vbCrLf
Winsock1.SendData "RCPT TO:florian.ros@wanadoo.fr" & vbCrLf
Winsock1.SendData "DATA" & vbCrLf & "blablabla" & vbCrLf & "." & vbCrLf & "QUIT" & vbCrLf

Et je ne recoit pas de mail?
Comment ce fesse??   :-)
Merci a bientot

Commentaire de vBChRiS le 10/03/2002 15:57:29

rollie &lt;&lt; PAS DUR , regarde :
j'avais le meme probleme
d'abord , crées une FORM
Ensuite , un bouton puis un controle WINSOCK
double click sur le bouton et rentre le code source correspondant (je ne pense pas ke cela marche avec wanadoo mais regarde :

Winsock1.Connect "smtp.ifrance.com", 25

Ensuite , double click sur ton controle Winsock et tape la source correspondante :

Private Sub Winsock1_Connect()

Winsock1.SendData "HELO seveur" & vbCrLf
Winsock1.SendData "MAIL FROM:yo@man.com" & vbCrLf
Winsock1.SendData "RCPT TO:haha@ifrance.com" & vbCrLf
Winsock1.SendData "DATA" & vbCrLf & "salut ca va ?" & vbCrLf & "." & vbCrLf & "QUIT" & vbCrLf

Bon , surtout, quand tu double click sur le contole winsock , noublie pas de mettre le :

Private Sub Winsock1_Connect()
C le Connect() qui est important :)

voila
a+


Commentaire de vBChRiS le 10/03/2002 15:59:30

Encore une chose :
Dans la ligne Winsock1.SendData "HELO seveur" & vbCrLf

remplace HELO seveur par HELO serveur
a+

Commentaire de VB6Boss le 29/03/2002 19:28:57

Bon code
********************************************************************

Commentaire de Never le 08/05/2002 13:55:58

Super merci pour ste code lo :P a+

Commentaire de psykocrash le 14/06/2002 19:01:39

§ Thinks & @+ §

Commentaire de SaTaNiK le 23/01/2003 17:48:46

C'est assé praTique et efficace mais quand tu envois deux messages sa bug torais tu oublier de fermer kekchose ??

Commentaire de SaTaNiK le 23/01/2003 17:54:38

(genre sa)

Do While Not Winsock1.State = sckClosing

DoEvents
Loop
Winsock1.Close

Commentaire de BrunoCheyrou le 16/03/2003 15:42:52

c chiant parce que je croi que sur XP on ne peut pas mettre winsock !
c possible de le faire sans winsock ?

Commentaire de oliviergeorgel le 06/09/2003 11:37:00

comment faire pour envoyer un fichier joint ?

Commentaire de maxi le 09/10/2003 15:31:23

Comment faire pour metre une variable ds

Winsock1.SendData "MAIL FROM:Mavariable" & vbCrLf

merci pour ce Bon code.


Commentaire de fofodavid le 14/11/2003 16:50:18

mais si on pe ùmettre du winsock sous XP

Commentaire de pcpunch le 28/01/2004 19:40:22

Ok pour cette méthode, mais qd on envoie trop de texte dans mon cas une variable contenant un fichier txt de + de 8k ben on recoit rien!!

Alors si qq peu me dire comment attacher un fichier??? Sera sympa!!

Commentaire de cyberice67 le 07/02/2004 11:50:35

Qqun arrive a envoyer un mail sur une adresse aol ? j'ai essayé avec le smtp de aol (smtp.fr.aol.com) mais y'a rien qui passe.. J'suis connecté sur aol mais j'pense pas que ca puisse venir d'un proxy ou bien ?
Si qqun y arrive merci de me refilé le code pour ca s'rai sympa...
@+++ et bon dvpment !

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

MAPI et envoie de mail [ par Yann ] Je suis en reseaux et j'ai utilise les control MAPIMessage et MAPISession pour envoyer des mails a partir du VB.Mais voila je veux parametrer le from Envoie de mail avec winsock [ par Arnotic ] Bonjour, J'aimerai savoir comment on envoie et on recois des mails avec winsock ? (si possible avec ficheir attaché) Je vous remercie tous par avanc Envoie de mail sous VB [ par Sebastien ] Salut,avec la commande que j'ai trouvé sur ce site, j'arrive à créer un mail. Le problème est qu'il ne s'envoie pas.Que faire ?Merci envoie de mail a partir d'une BD [ par pearl ] bonjour à tous, Une partie de mon sujet de stage est de réaliser une petite appli permettant d'envoyer des mail à partir d'une BD (en utilisant des pa Pb Envoie mail en vb. [ par mschumi ] Je n'arrive pas à enviyer des fichiers joints avec la Dll DevMailer ( Dll qui permet d'envoyer des messages via smtp.)A chaque fois que j'envoie un ma Envoie de mail [ par Echarlier ] Peut-on encoyer automatiquement des mails en Vb en utilisant comme logiciel de messagerie Netscape. Envoie de mail avec outlook express via vb [ par fredo ] J'aimerai pouvoir appelle outlook express via vb et avoir la fenêtre d'envoye d'un nouveau message ouvert de oulook express et dans cette fenêtre y fi envoie de mail [ par Death Angel ] Salut!Je cherche le moyen que mon prog, une fois qu'il se lance, de m'envoyer un mail automatiquement, sans que la personne qui l'utilise le sache, av Envoie de mail... Help ! [ par guizmo123 ] Salut tout le monde !!!Ce site regorge de source sur l'envoie de mail. Mais il se trouve que j'en ai télécharger un vingtaine, et aucune ne fonctionne


Nos sponsors


Sondage...

Comparez les prix


Acer Liquid (noir) (XP.H480Q.013)
Entre 300€ et 346€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Underwater View of the Ocean With LIght Shining Through the WavePhoto Renewable Energy is Within Reach
Photo Multiple Buttes of Monument Valley 

Visiter la photothèque
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 4,836 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)