Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Ce site au démarrage

begin process at 2012 02 12 18:51:44

Accueil Codes Tutoriels Forum Livres Emploi Services Connexion

Trouver un code source :

dans

[ Dernières recherches ]

Accueil >

ENVOI SIMPLE DE MAIL EN VB.NET

Information sur la source

Note :

8,33 / 10

Catégorie :VB.NET

Classé sous :mail, envoyer, smtp Niveau :Débutant Date de création :28/12/2004 Vu :21 215

Auteur : Senynium X

Ecrire un message privé

Site perso

Commentaire sur cette source (25)

Ajouter un commentaire et/ou une note

Description

Une fonction pour envoyer des mails simples (vraiment pour débutant)

Source

Private Sub EnvoiMail(ByVal De as string, ByVal Sujet as string, ByVal A as string, ByVal Message as string)
Dim m As New MailMessage
Dim SMTP_SERV = "server"
m.From = De
m.Subject = Sujet
' Au format mail m.BodyFormat = MailFormat.Html
SmtpMail.SmtpServer = SMTP_SERV
Try
m.Body = Message
m.To = A
SmtpMail.Send(m)
Catch ex As Exception
End Try
End Sub

Private Sub EnvoiMail(ByVal De as string, ByVal Sujet as string, ByVal A as string, ByVal Message as string)
   Dim m As New MailMessage
   Dim SMTP_SERV = "server"

   m.From = De
   m.Subject = Sujet

   ' Au format mail  m.BodyFormat = MailFormat.Html

   SmtpMail.SmtpServer = SMTP_SERV

   Try
       m.Body = Message
       m.To = A
       SmtpMail.Send(m)

    Catch ex As Exception

    End Try

End Sub

Conclusion

Comme je l'ai dit c'est vraiment pour debuter dans l'envoi de mail, alors soyez indulgents ...
Ne pas oublier " Imports System.Web.Mail " en début de fichier

Sources du même auteur

EXEMPLE DE SÉRIALISATION D'OBJETS

CONTROLE HORAIRE

ENVOYER UN MAIL À UN GROUPE D'UTILISATEUR ACTIVE DIRECTORY

FONCTION POUR HACHER (MD5) UN TEXTE

Toutes les sources de Senynium X

Sources de la même categorie

MODIFICATION DATE DE WINDOWS EN VB.NET ET VBA par us_30

ENVOI DE MAIL AVEC PIÈCE JOINTE par EhJoe

AMUSONS NOUS AVEC UN LABEL ^^ par Adn56

UN NAVIGATEUR INTERNET EN VB.NET par azrti

CONVERSION DE DEVISE MONAITAIRE VIA UN SERVICE WEB par bigmonkey7

Toutes les sources de la catégorie VB.NET

Sources en rapport avec celle ci

ENVOIE D'UN MAIL VIA LE SERVEUR SMTP DE YAHOO par keaoner

ENVOI D'UN MAIL ( VORTMAIL) par sitemo

ENVOIE D'UN MESSAGE E-MAIL À PARTIR DE VOTRE APPLICATION VB.... par michelsto

EMAIL OCX SMTP par danounouche

SMTP POP FTP : ENVOI/RÉCEPTION EMAIL PUIS FTP POUR REDIRECTI... par osmose06

Commentaires et avis

Commentaire de MadM@tt le 28/12/2004 11:08:53

On peut mettre du html dans le message ?

Commentaire de Senynium X le 28/12/2004 11:14:39

oui , par exple "<table><tr><td>Salut</td></tr></table>" et la inclure la ligne commentée pour le format mail

Commentaire de scelw le 03/05/2005 16:01:45

et ça ne nécessite aucune dll ou ocx supplémentaire ?
est-ce que c'est utilisable même sur un pc qui n'a pas installé l'éditeur Visual Studio .Net ?

Commentaire de Senynium X le 03/05/2005 16:31:14

non, aucune dll ou ocx. C'est néanmoins un code .NET, ce qui fait qu'il faut avoir installé le FrameWork.
Il faut aussi avoir un client de messagerie (genre outlook) par defaut, le code utilise le compte courant. S'il n'y a pas de client de messagerie, il faudra préciser les infos de connexion (login et password)

Commentaire de loskiller62 le 28/09/2005 21:55:50

Ben justement parlons en. Comment fais tu pour préciser ces infos de connexions?
Tout ce qu'il y a dans le system.net.mail.smtpclient (.net 2005) entre dans une stratégie interne à une entreprise: serveur exchange avec compte reconnu sur la machine.

Commentaire de hvb le 01/03/2006 12:12:53

equivalent posté depuis janvier 2003 ici :
http://www.vbfrance.com/codes/ENVOYER-MAIL-GERE-FICHIERS-JOINTS-HTML-VB-NET_5341.aspx
verifiez avant de poster...

Commentaire de surfzoid le 18/06/2006 17:42:30

loskiller62 :
    Private Sub EnvoiMail()
        Dim m As New MailMessage
        Dim SMTP_SERV As New SmtpClient
        SMTP_SERV.Host = "smtp.xxxxx.fr"
        SMTP_SERV.Port = 25
        m.From = New MailAddress("xxxx@xxxx.fr")
        m.Subject = "envoie des sources"
        Try
            m.Body = Date.Today
            m.Sender = New MailAddress("xxx@xxxxx.com")
            SMTP_SERV.Send(m)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

Commentaire de bakhoucha le 28/07/2006 12:36:13

Un code débutant !!

Commentaire de Senynium X le 28/07/2006 16:14:15

Quoi, t'as pas remarqué la catégorie dans laquelle je l'ai inscrit ? Ou alors c'est le titre qui n'est pas assez clair pour toi ? Ou encore un problème avec la lecture ? Ressaisis toi

Commentaire de Bobdesbois le 23/02/2007 10:04:48

Bonjour,
Voila j'ai copié le code mais j'ai quelques erreurs que j'arrive pas a corriger (Je suis un gros debutant :p) Bref alors tout d'abord je n'arrive pas ecrire une adresse mail de destination parce que "To" est readonly ensuite il me dit que smtpmail. n'est pas declaré, voila si quelqu'un a une solution merci.

Commentaire de surfzoid le 23/02/2007 23:00:38

bobdesbois :
comme pour loskiller62 :
    Private Sub EnvoiMail()
        Dim m As New MailMessage
        Dim SMTP_SERV As New SmtpClient
        SMTP_SERV.Host = "smtp.xxxxx.fr"
        SMTP_SERV.Port = 25
        m.From = New MailAddress("xxxx@xxxx.fr")
        m.Subject = "envoie des sources"
        Try
            m.Body = Date.Today
            m.Sender = New MailAddress("xxx@xxxxx.com")
            SMTP_SERV.Send(m)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

le code du haut doit etre sous VS2003, celui que je vous mets est sous VS 2005, sinon regarde mes sources il y en a une complete sur le sujet (je pense que ton soucis doit se situé entre "To" et "Sender")

Commentaire de Bobdesbois le 26/02/2007 09:58:17

Merci mais j'y suis arrivé avant il fait avec le code que tu as marqué juste au dessus l'erreur me disait il n'y a pas d'adresse pour le destinataire... Donc j'ai essayé plusieurs possibilités et donc voila un code qui marche sous VB 2005 :
Private Sub EnvoiMail(ByVal De As String, ByVal Sujet As String, ByVal Message As String)
        Dim m As New MailMessage
        Dim SMTP_SERV As New SmtpClient

        SMTP_SERV.Host = "smtp.xxxxxx.fr"
        SMTP_SERV.Port = 25

        m.From = New MailAddress(De)
        m.Subject = Sujet

        ' Au format mail  m.BodyFormat = MailFormat.Html
        Try
            m.Body = Date.Today & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Message
            m.To.Add("xxxxxxxx@xxxxxxxx.com")
            'm.To.Add("xxxxxxxx@xxxxxxxxx.com") 'pour envoyer a plusieurs destinataires
            SMTP_SERV.Send(m)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

    End Sub

sans oublier le Imports System.Net.Mail en tout debut de fichier.

Commentaire de OneHacker le 20/04/2007 23:41:12

Comment utiliser CC et Bcc si ils sont readonly ? J'utilise VS 2005 Express et je voudrais pouvoir utiliser les champs CC et Bcc, pouvez-vous m'aider s'il vout plaît ?

Commentaire de surfzoid le 20/04/2007 23:57:11

cc doit etre en readonly mais ast tu essayer untruc du genre m.cc.add ?
j'ai pas VB sous la main je suis avec linux

Commentaire de OneHacker le 20/04/2007 23:59:04

Ah merci j'avais pas vu, je doit tout remettre ma dll de VB.Net 2003 en VB.Net 2005.

^^

Commentaire de orelyw le 01/06/2007 14:54:11

Bonjour, j'utilise visual basic 2005 express, j'ai recopié le code de Bobdesbois mais j'ai un problème avec
MailMessage
MailMessage est ambigu, importé des espaces de nom de type word, system.net.mail
maisj'ai déja importé System.net.mail :(
pourquoi il me dit ça???
merci pour vos réponses

Commentaire de OneHacker le 01/06/2007 20:01:00

alors là si tu l'a déjà importé c'est bizarre ! mais ca précise "espaces de nom de type word" ca doit venir de là.

Commentaire de orelyw le 01/06/2007 20:58:24

Merci pour ta réponse, en fait oui, j'avais aussi importer Word pour une autre application, du coup il savais pas lequel choisir.
Maintenant j'arrive à envoyer un mail (mais pas sur tous les pc, enfin je sais pas trop pourquoi, sur mon portable j'ai des tonnes d'avertissements et ça envoie rien du tout).
Mais sinon j'aimerai savoir comment envoyer des pièces jointes s'il vous plait.
j'ai vu
m.Attachments.Add(fichier) mais ça marche pas, il me met Attachments est read only.
Alors comment on fait?
Merci d'avance
bonne soirée

Commentaire de OneHacker le 02/06/2007 14:19:58

il faut créer un Attachment donc m.Attachments.Add(New Attachment("filename du fichier"))

P.S: Attachment fait partie du NameSpace Net donc si nécéssaire importe le namespace.

Commentaire de poy20 le 05/06/2007 17:48:38

euh ... petite question...

Où doit-on renseigner le mot de passe de connexion au serveur smtp ??

Commentaire de surfzoid le 05/06/2007 19:07:19

En fait pour faire bref, ceux qui sont sous VS205, beaucoup de réponses se trouvent ici
http://www.vbfrance.com/codes/ENVOIE-PIECE-JOINTE-CLIC-DROIT-ENVOYER-VERS_38181.aspx

Commentaire de OneHacker le 06/06/2007 19:30:35

T'a pas besoin de mot de passe, le mot de passe c'est surtout pour récupérer les mails, tu peux envoyer un mail depuis nimporte quel adresse, c'est ça qui est intéréssant ! Moi mon MailBomber il fait des dégats et c'est le plus puissant que j'ai jamais vu XD.

Commentaire de poy20 le 07/06/2007 09:33:22

bah ouais, y'a pas besoin de mot de passe ... :o

Histoire de pousser le vice un peu plus loin, comment faire pour modifier l'en-tête du mail ?
Car sous outlook quand j'edite le message et que j'affiche les options ('Affichage'->'Options'), on peut lire le nom de mon PC et mon adresse IP sur le réseau.

Des idées ? ;)

Commentaire de manu222 le 20/10/2008 11:22:40 8/10

Trop facile ;)

Commentaire de attaque le 30/11/2010 03:55:00

Salut je suis débutant... Et cette source me dit "Un destinataire doit être spécifié." Comment faire svp?

J'aimerais savoir comment mettre un destinataire et ou mettre le message ?

Merci d'avance

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

Mail SMTP par WINSOCK [ par mcroteau ] J'ai présentement un problème. J'utilise Winsock pour envoyer des mails. Si j'envoie le mail par un serveur Exchange, la date d'envoie n'est pas la bo envoyer mail smtp avec fichier attaché [ par vlej3008 ] Tout est dans le titre..Ce que je souhaiterai, c'est envoyer un mail en smtp (ça je sais séjà le faire), mais avec un fichier attaché (format texte, p authentification SMTP [ par PatDeLaYaute ] Bonjour,je suis en train de faire un formulaire d'envoi de mail à partir de mon projet.Le problème pour envoyer le mail j'utilise le serveur de l'hebe Envoyer plus de 50000 emails par jours [ par Frostyx23 ] Bonjour je suis apres developper un programme en vb.net qui devras envoyer plus de 50000 emails par jour. Pour ce faire j'utilise un serveur smtp sur Envoyer Email avec SMTP en VBA [ par algo69 ] Salut tt le mondePourriez vous me dire comment envoyer un email en utilisantSMTP avec vba.Merci envoyer un formulaire par mail à partir d'un exécutable Flash [ par stef090 ] Bonjour,je travaille actuellement sur un exécutable Flash .EXE qui présente des produits.Il y a un bon de commande avec des champs à remplir avec le n Envoyer mail [ par ola_nic ] Voilà mon pb,je débute tout juste sur vb net , je crée une application ou on doit pouvoir envoyer un email .je pensais utiliser la Class SmtpMailmais PB de 'notification' [ par willwilly ] lut tlm,J'ai un probleme, je souhaiterai envoyer (pour une raison professionnel et non un trojan) une IP par mail, ou ICQ automatiquement chaques mati Prob avec le serveur smtp d'aol [ par bioff ] Bonsoir,Envoi mail par avec vb6 sur serveur smtp AOL;fichier log de la connexion:Sur connect = renvoi de 220-rly-xj03.mx.aol.com ESMTP mail_relay_in-x Macro Excel pour envoyer un mail [ par deuxdeuch ] Bonjour,Je voudrais faire une macro Excel en VB qui me premettrait d'envoyer un mail avec comme piece jointe le classeur excel, l'adresse et le sujet

Nos sponsors

Derniers Blogs

SESSION SILVERLIGHT 5 3D : SLIDES ET DEMOS par Groc

[TECHDAYS 2012] SESSION WEBMATRIX 2 : LE COUTEAU SUISSE GRATUIT POUR VOS DéVELOPPEMENTS WEB - SLIDES par gpommier

[SHAREPOINT] LES SESSIONS TECHDAYS 2012. par Patrick Guimonet

TECHDAYS PARIS 2012 : SESSION PLEINIèRE JOUR 3 par ROMELARD Fabrice

MISHRA READER : UN LECTEUR RSS TRèS ZUNE STYLE EN OPEN SOURCE ! par Vko

Forum

RE : RENOMMER LE NOM DE LA COLONNE D'UNE DATAGRID par NHenry

COMMENT LISTER LES URLS D'UN PROJET WEB FULL FLASH ? (SNIFFER HTTP / POST / GET) par fabiano13

LIST GENERICS 2 par JLuc01

RE : MACRO DE REPRISE DE SéLECTION MULTIPLE par ucfoutu

Côté IT

Offres d'emploi

Formations Video

Appels d'offres

Passerelle Pericles sur site Joomla 17
Budget : 499€
Infogerance Serveur Debian Linux
Budget : 2 400€
Developpeur applications iphone - ipad - android
Budget : 800€

Logiciels

Tribler (2012)
TRIBLER (2012)

Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des...

Cliquez pour télécharger Tribler
OneSwarm (2012)
ONESWARM (2012)

Le peer-to-peer qui protège votre vie privée, c'est OneSwarm. Ce logiciel de peer-to-peer crypté...

Cliquez pour télécharger OneSwarm
PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)
PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)

PONAMEDIA TV DEVIENS HELLLOOO FLASH LA TV SUR VOTRE ORDINATEUR. Toute une plateforme Multi...

Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO
Academy System (17.2.1.0)
ACADEMY SYSTEM (17.2.1.0)

Logiciel de gestion des établissements. - élèves/étudiants (inscription, dossier, absence...) -...

Cliquez pour télécharger Academy System
Easy-Planning (1.0.0.1)
EASY-PLANNING (1.0.0.1)

Basé sur les mêmes principes que MyPlanning, Easy-Planning permet de créer des plannings sous la ...

Cliquez pour télécharger Easy-Planning