begin process at 2010 03 22 08:09:34
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Réseau & Internet

 > ENVOIE D'UN MESSAGE E-MAIL À PARTIR DE VOTRE APPLICATION VB.NET OU ASP.NET

ENVOIE D'UN MESSAGE E-MAIL À PARTIR DE VOTRE APPLICATION VB.NET OU ASP.NET


 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 Source .NET ( DotNet ) Classé sous :mail, smtp, envoyer Niveau :Initié Date de création :12/04/2004 Vu :10 867

Auteur : michelsto

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

 Description

Une simple fonction qui permet d'envoyer un Mail:
SendMail("me@me.com", "you@you.com","My Subject","My Message")

Source

  • ' la variable SMTPServer doit être définie avec l'adresse du serveur SMTP accessible par votre application.
  • Public Sub SendMail(ByVal pFrom As String, ByVal pTo As String, ByVal pSubject As String, ByVal pContent As String)
  • Dim Msg As New MailMessage()
  • Dim Erreur As Boolean = False
  • ' On envoie le mail au destinataire de base
  • Try
  • Mail.SmtpMail.SmtpServer = SMTPServer
  • Msg.From = pFrom
  • Msg.To = pTo
  • Msg.Subject = pSubject
  • Msg.Body = pContent
  • SmtpMail.Send(Msg)
  • Catch
  • Erreur = True
  • End Try
  • End Sub
' la variable SMTPServer doit être définie avec l'adresse du serveur SMTP accessible par votre application.


    Public Sub SendMail(ByVal pFrom As String, ByVal pTo As String, ByVal pSubject As String, ByVal pContent As String)
        Dim Msg As New MailMessage()
        Dim Erreur As Boolean = False

        ' On envoie le mail au destinataire de base

        Try
            Mail.SmtpMail.SmtpServer = SMTPServer
            Msg.From = pFrom
            Msg.To = pTo
            Msg.Subject = pSubject
            Msg.Body = pContent
            SmtpMail.Send(Msg)
        Catch
            Erreur = True
        End Try
    End Sub



 Sources du même auteur

Source avec Zip Source .NET (Dotnet) UNE CLASSE POUR TRAVAILLER AVEC OLDDB (ACCESS) ET OLEDB (AS...
Source .NET (Dotnet) PERMET DE REFORMATER UN CHAMP TEXTE SUR UNE LARGEUR DE PAGE ...
Source .NET (Dotnet) CONVERTION DE HH:MM EN SECONDE ET INVERSE
Source .NET (Dotnet) CONVERTION DE DATE J/M/AAAA EN AAAAMMJJ ET HEURE H:M EN HHMM
Source .NET (Dotnet) DOUBLAGE DES SIMPLE QUOTE ' POUR LES CHAMPS SQL

 Sources de la même categorie

Source avec Zip Source avec une capture MODULE DE TÉLÉCHARGEMENT DE FICHIER BASIQUE (SYNCHRONE / ASY... par Renfield
Source avec Zip Source avec une capture Source .NET (Dotnet) NAVIGATEUR INTERNET MDI MULTIFENETRES par Ant95
Source avec Zip Source avec une capture UPLOAD FTP VB 6 par Onin42
Source avec Zip Source avec une capture Source .NET (Dotnet) FAVORIS URL par Le Pivert
Source avec Zip Source avec une capture Source .NET (Dotnet) DEVSSH CLIENT SFTP/SSH par iblsysteme

 Sources en rapport avec celle ci

ENVOIE D'UN MAIL VIA LE SERVEUR SMTP DE YAHOO par keaoner
Source avec Zip ENVOI D'UN MAIL ( VORTMAIL) par sitemo
Source .NET (Dotnet) ENVOI SIMPLE DE MAIL EN VB.NET par Senynium X
Source avec Zip EMAIL OCX SMTP par danounouche
Source avec Zip Source avec une capture SMTP POP FTP : ENVOI/RÉCEPTION EMAIL PUIS FTP POUR REDIRECTI... par osmose06

Commentaires et avis

Commentaire de jesusonline le 12/04/2004 12:18:45 administrateur CS

Pour vérifier que l'email soit valide :

Public Function SendMail(ByVal pFrom As String, ByVal pTo As String, ByVal pSubject As String, ByVal pContent As String) as boolean
        Dim Msg As New MailMessage()
    
        'Verification du mail : ici pour plus d'info http://www.aspfr.com/code.aspx?ID=21651

Dim Valid As New Cyril.Utility.Validation.StringValidation
if not Valid.isEmail(pTo) then
return true
exit function
end if

        'Pas besoin de verifier Pfrom car si ce n'est pas un email il n'y aura pas d'erreur

        ' On envoie le mail au destinataire de base

        Try
            Mail.SmtpMail.SmtpServer = SMTPServer
            Msg.From = pFrom
            Msg.To = pTo
            Msg.Subject = pSubject
            Msg.Body = pContent
            SmtpMail.Send(Msg)
        Catch
            return True
        End Try
    End Sub

J'ai modifié ta fonction pour qu'elle te retourne un boolean soit il est true et il y a une erreur sinon pas d'erreur ca me permet d'enlever ta variable erreur, et c'est je trouve plus simple apres pour se servir de la gestion d'erreur, meme si le mieux serait de lever une exception.

J'ai rajouté un controle d'email grace à ma classe fait pour ca, je pense qu'elle a tout à fait sa place ici :)

sinon c'est une bonne source, bienque la gestion d'erreur est limite

Commentaire de Linuss le 28/06/2004 22:08:12

C'est possible de le faire en HTML???

Commentaire de jfbernier le 22/01/2005 16:41:24

jesusonline> Ton code permet bien de vérifier si l'email saisi respect bien la charte. En aucun cas, il vérifie si l'email existe réellement.

Et contrairement à ce que tu mets, si le from n'est pas un email valide, il y a une erreur en retour. Par contre aucune erreur n'est levée si l'email du destinataire n'est pas correct.

Je te dis cela car je cherche un code qui permet de s'assurer que le destinataire va bien recevoir l'email.

Pour résumer, s'il saisit dfsdsdf@ffsdfdf.com, je lui envoie une erreur.

As-tu une idée, autre que mettre dans le form son propre email (puisque une erreur est levée dans ce cas là) ?

Merci

Commentaire de ricounet le 24/06/2005 08:14:16

NUL car pas d'authentification possible

Commentaire de pierrot862 le 26/01/2006 15:51:34

Bonjour,
Je suis un peu novice dans tout ce qui est messagerie internet, par contre, je voudrais pouvoir envoyer 1 mail simplement et sans outlook à partir de mes appli, et je pense que ton développement est intéressant.
Je n'est pas réussi à trouver ce qu'il faut mettre dans la variable SMTPServer (je suis chez wanadoo et dans outlook, on met smtp.wanadoo.fr); quelle formule exacte dois-entrer ?
Merci d'avance
Pierre

Commentaire de hajaritta le 29/02/2008 00:28:27

Bsr!!
j essayé avc ce code l'envoie d'une fiche word,il marche bien mais le probleme c kon j recoit email il mouvr pa la iche,il me di k ce message é dangereux...!!
si qlq1 pe m'aider!

 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


Sondage...

Comparez les prix

CalendriCode

Mars 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
293031    

Consulter la suite du CalendriCode

 
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 : 1,076 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales