Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

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


Information sur la source

Catégorie :Réseau & Internet Source .NET ( DotNet ) Classé sous : mail, smtp, envoyer Niveau : Initié Date de création : 12/04/2004 Vu : 9 862

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

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10

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

Commentaires et avis

signaler à un administrateur
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

signaler à un administrateur
Commentaire de Linuss le 28/06/2004 22:08:12

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

signaler à un administrateur
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

signaler à un administrateur
Commentaire de ricounet le 24/06/2005 08:14:16

NUL car pas d'authentification possible

signaler à un administrateur
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

signaler à un administrateur
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...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Téléchargements

Comparez les prix Nouvelle version

Photothèque Nouveau !



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
Temps d'éxécution de la page : 0,608 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.