Envoi d'email avec VB.net 2003

hikma -  
MohaBaba Messages postés 149 Statut Membre -
salut

j ai une application et j ai besoin d'envoyer des email
vous pouvez m aider dans le code
merci d'avance
Configuration: Windows XP
Internet Explorer 6.0

3 réponses

  1. Anotine Messages postés 7 Statut Membre 1
     
    Dim Mail As New Net.Mail.MailMessage("from@from.fr", "to@to.fr", "Sujet du Mail", "Contenu du Mail")
    Dim MailSender As New Net.Mail.SmtpClient("smtp.fournisseur.fr", 25)
    MailSender.Send(Mail)

    En redefinissant les champs From avec ton Mail, To avec celui du destinataire, et "smtp.fournisseur.fr" avec le SMTP du tient
    Bonne chance
    1
  2. MohaBaba Messages postés 149 Statut Membre 10
     
    Finalement j'ai fignoler avec Mayzz un code qui finalement a marché (pour ceux qui voudront le consulter, il faudra savoir que je suis en Tunisie et que le fournisseur internet de la boîte est Globalnet. Donc il vous suffira de changer le smtp. Exemple : pour gmail vous mettez smtp.gmail.com)

    Voici le code : avec VB.NET 2008

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
    Dim mail As New MailMessage() 
    
    'set the addresses 
    mail.From = New MailAddress("contact@prodit.net") 
    mail.To.Add("joedassin87@gmail.com") 
    
    'set the content 
    mail.Subject = "sujet de mail" 
    mail.Body = "le body du mail." 
    
    Dim client As New SmtpClient("xsmtp.gnet.tn") 
    
    Try 
    client.Send(mail) 
    MsgBox("coucou ca va") 
    Catch ex As Exception 
    
    MsgBox("Echec de l'envoi") 
    
    End Try 
    
    
    End Sub
    1
    1. ouchayan Messages postés 13 Date d'inscription   Statut Membre Dernière intervention  
       
      merci pour le code
      0
    2. ouchayan Messages postés 13 Date d'inscription   Statut Membre Dernière intervention  
       
      mais vous n'avez pas cité le port de serveur,nom d'utilisateur et le mot de passe??????
      merci d'avance
      0
    3. MohaBaba Messages postés 149 Statut Membre 10
       
      ce n'est pas nécessaire mais sinon je vais te dégoter la ligne de code qu'il faut mettre
      0
    4. MohaBaba Messages postés 149 Statut Membre 10
       
      client.Credentials = New NetworkCredential("*****@gmail.com", "*****")
      voila.
      Et Forza Taraji!!! (Taraji= Espérance Sportive de Tunis -23 fois champions de Tunisie-))
      0
    5. ouchayan Messages postés 13 Date d'inscription   Statut Membre Dernière intervention  
       
      je l'ai essayé mais ca marche pas malheuuresement donc esk tu peux m'envoyer l'application que tu'as realisé
      merci boco
      0
  3. Nico# Messages postés 328 Date d'inscription   Statut Membre Dernière intervention   102
     
    Salut il me semble que tu as l'espace de nom Mail a importer donc

    Imports System.Net.Mail

    ou

    Imports System.Web.Mail

    je ne sais plus lequel des deux et le bon
    0
    1. MohaBaba Messages postés 149 Statut Membre 10
       
      Import System.Net.Mail
      0