ENVOYER MAIL AVEC SERVEUR SMTP ET CONNEXION AVEC LOGIN OU PAS ET AVEC PIECE JOIN
OneHacker
Messages postés
1447
Date d'inscription
jeudi 2 novembre 2000
Statut
Membre
Dernière intervention
23 septembre 2007
-
22 nov. 2006 à 17:17
mafieulemouton Messages postés 24 Date d'inscription lundi 30 juin 2008 Statut Membre Dernière intervention 26 janvier 2010 - 14 juil. 2010 à 16:01
mafieulemouton Messages postés 24 Date d'inscription lundi 30 juin 2008 Statut Membre Dernière intervention 26 janvier 2010 - 14 juil. 2010 à 16:01
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/40401-envoyer-mail-avec-serveur-smtp-et-connexion-avec-login-ou-pas-et-avec-piece-jointe
https://codes-sources.commentcamarche.net/source/40401-envoyer-mail-avec-serveur-smtp-et-connexion-avec-login-ou-pas-et-avec-piece-jointe
14 juil. 2010 à 16:01
public shared function envoi(.........) as string
8 juil. 2010 à 13:26
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")
11 mars 2009 à 09:42
Sa marche nickel !
Je peut remonter les erreurs de mon service "ServeurModBus" directement par mail !
Merci à toi thepoe, et à ceux qui ont posés les commentaires !
JC... ;-)
25 févr. 2008 à 09:38
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
24 oct. 2007 à 15:13
Dim client As Net.Mail.SmtpClient = New Net.Mail.SmtpClient(SMTPServerName,XXX)
ou XXX est ton numéro de port plutôt?
Salutations...
24 oct. 2007 à 10:16
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 ?
3 sept. 2007 à 20:53
Le problème c'est que sur ce site on a pas le droit de poster de MailBomber.
3 sept. 2007 à 20:51
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
31 août 2007 à 23:50
31 août 2007 à 09:54
schédulé c'est quoi ?
27 août 2007 à 22:19
24 août 2007 à 11:37
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
14 août 2007 à 18:14
14 août 2007 à 08:27
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é...
2 juin 2007 à 21:14
2 juin 2007 à 20:40
17 févr. 2007 à 11:47
3 févr. 2007 à 13:46
3 févr. 2007 à 12:59
merci
31 janv. 2007 à 14:53
24 janv. 2007 à 20:52
16 janv. 2007 à 17:30
13 janv. 2007 à 12:48
efféctivement je recherche à faire un soft permetant (via une base access) d'envoyer en une seule opération x mail..
merci
4 janv. 2007 à 11:44
2 janv. 2007 à 12:45
envoi d'une centaine de mails personalisés
merci
30 déc. 2006 à 19:35
22 déc. 2006 à 19:10
Si quelqu'un peut m'en dire plus sur comment envoyer et gérer une éventuelle liste d'attente pour éviter embouteillage...
Merci
1 déc. 2006 à 18:55
30 nov. 2006 à 11:37
Merci beaucoup pour ce source très rare en net 2.0
22 nov. 2006 à 17:22
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
22 nov. 2006 à 17:17