ENVOYER MAIL AVEC SERVEUR SMTP ET CONNEXION AVEC LOGIN OU PAS ET AVEC PIECE JOINTE

Commentaire de OneHacker le 22/11/2006 17:22:31

Voici la correction :

Public Class traknoMail
    Shared Function Envoi(ByVal server As String, ByVal De As String, ByVal A As String, ByVal Sujet As String, ByVal Corps As String, ByVal Fichier As String, ByVal Utilisateur As String, ByVal MotDePasse As String, ByVal avecLogin As Boolean)
        'On essaye, tres pratique en vb
        Try
            'Creer un Message par surcharge avec De et A
            Dim message As New Web.Mail.MailMessage
            message.From = De
            message.To = A

            'Definir Sujet et Corps
            message.Subject = Sujet
            message.Body = Corps
            'Creer la piece jointe
            Dim data As Web.Mail.MailAttachment = New Web.Mail.MailAttachment(Fichier)
            'Ajouter le Time Stamp du fichier

            'Ajoute la piece jointe au message
            message.Attachments.Add(data)
            'Ouvrir la Connexion vers le serveur SMTP
            Web.Mail.SmtpMail.SmtpServer = "mail.hotmail.com"
            Web.Mail.SmtpMail.Send(message)
            'On Retourne Vrai comme résultat de la Fonction
            Return True
            'Oh non !!! , une erreur...
        Catch ex As Exception
            'On Retourne le message d'erreur comme résultat de la Fonction
            Return ex.Message
            'On a Fini d'essayer
        End Try
    End Function
End Class

Commentaire de OneHacker le 01/12/2006 18:55:03

Ah ok c'est du .NET 2. Croyais que c'était du .Net 1.1 désolé.

Commentaire de OneHacker le 30/12/2006 19:35:46

En VB.Net 1 ?

Commentaire de OneHacker le 04/01/2007 11:44:42

Tu veux dire un MailBomber ? Moi j'en ai fait un pas mal.

Commentaire de OneHacker le 16/01/2007 17:30:11

Un xmail via une base acess ? Tu veux dire que chaque champ de la base correspond aux champs et headers du mail ?

Commentaire de OneHacker le 31/01/2007 14:53:34

Ah je vois c'est plutôt quelquechose qui ressemble à du spam que tu veux faire, pas besoin de BDD tu le fais juste avec un fichier texte. Et ton programme doit voir selon le mail mettre le nom à la place de <nom> par ex c'est que du texte qui faut manipuler en fait.

Commentaire de OneHacker le 03/02/2007 13:46:55

Non désolé je programme que en VB.Net 2003.

Commentaire de pinok12 le 02/06/2007 20:40:49

Très bien ce code, par contre, pour passer par certains serveurs SMTP du type GMAIL il faut mettre clien.EnableSSL = true juste après client.Credentials = New System.Net.NetworkCredential(Utilisateur, MotDePasse)

Commentaire de thepoe le 14/08/2007 08:27:18

Merci PINOK12 pour l'astuce de gmail.
Encore désolé pour la confusion de VB.net 1.1 et 2. C'est bien du .net v2 edité avec la VB 2005 Express. Si NIX passe par la peut-être germera l'idée de les différencier quand on post une source.
RENOCMOA tu fait une boucle qui utilise cette fonction pour en envoyer plusieur, mais ca ne sera jamais du simultané, juste du schédulé...

Commentaire de renocmoa le 24/08/2007 11:37:56

merci à thepoe

schédulé ??

j'ai fait une boucle mais il semblerait qu'il y est un fonctionnement aléatoire et tous les mails ne partent pas...
pb FAI, autre.... une idée?

merci

Commentaire de renocmoa le 31/08/2007 09:54:39

ben ils ne partent pas tous sans savoir pourquoi?

schédulé c'est quoi ?

Commentaire de renocmoa le 03/09/2007 20:51:43

onehacker, piocher dans ma BDD n'est pas un pb mon seul soucis et de faire un envoi de mail à un nombre variable de déstinataire (de quelque un à environ 200)

J'aimerais une boucle qui envoi le même mail à chaque dest et me donne l'état d'avencement le tout dans un thread séparé

merci

Commentaire de BLU le 24/10/2007 10:16:32

Bonjour,

le serveur SMTP de ma boite n'est pas configueré avec le port 25 en standard.
J'ai essayer de modifier ton code avec :
            Dim client As Net.Mail.SmtpClient = New Net.Mail.SmtpClient(SMTPServerName)
            client.DeliveryMethod = Net.Mail.SmtpDeliveryMethod.Network
            client.Port = "XXX"

Mais cela ne passe pas
=> le catch me retourne délai d'attente dépassé ...
As tu une idée ?

Commentaire de ab52ab le 25/02/2008 09:38:03

L'equivalent de votre code en C# me pose un problème avec la classe Net,
j'aimerais savoir la directive using et la référence assembly à ajouter au projet.
J'ai utilisé les directives "using System.Net.mail" et "System.web.mail" en ajoutant aussi la référence System.web mais ça n'a pas marché.
Merci

Commentaire de mafieulemouton le 08/07/2010 13:26:09

Pratique et simple... Mais je l'aurais plutot mis sur codyx comme snippet.

Pour une utilisation plus intuitive, vous pouvez utiliser "optional" lors de la déclaration de la fonction pour les variables "utilisateur", "motDePasse" & "avecLogin "

du coup pour l'appel de la fonction sans login on pourrait faire:
traknoMail.Envoi("serveur SMTP", "De@domain.com", "A@domain.com", _
                 "La Classe vb d'envoi mail avec piece jointe", _
                 "Justement, "je l'utilise, là", "C:\traknoMail.vb")