Envoyer un mail avec smtp depuis gmail,hotmail,yahoo...
Soyez le premier à donner votre avis sur cette source.
Snippet vu 14 503 fois - Téléchargée 19 fois
Contenu du snippet
Un simple code complet pour envoyer des message depuis votre application avec le protocole SMTP en utilisant les serveurs GMAIL ou HOTMAIL ou YAHOO...
Mercie
Source / Exemple :
Imports System.Net.Mail
Public Class Form1
Sub EnvoiMail(ByVal De As String, ByVal Pass As String, ByVal Sujet As String, ByVal A As String, ByVal Message As String, ByVal attach As String)
Dim TheServer As String = "" 'pour modifier le serveur selon les besoins
If De.Contains("gmail") Then
TheServer = "smtp.gmail.com"
ElseIf De.Contains("hotmail") Then
TheServer = "smtp.live.com"
ElseIf De.Contains("yahoo") Then
TheServer = "smtp.mail.yahoo.com"
'
'vous pouvez ajouter d'autre...
'
End If
Dim Smtp As New SmtpClient(TheServer, 587) 'Simple Mail Transfer Protocol
Dim EmailMessage As New MailMessage
Try
With EmailMessage
.From = New MailAddress(De)
.To.Add(A)
.Subject = Sujet
.Body = Message
If attach <> "" Then
.Attachments.Add(New Attachment(attach))
End If
End With
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical)
End Try
Try
With Smtp
.UseDefaultCredentials = False
.DeliveryMethod = SmtpDeliveryMethod.Network
.Timeout = 1
If TheServer = "smtp.mail.yahoo.com" Then
.EnableSsl = False
Else
.EnableSsl = True
End If
.Credentials = New Net.NetworkCredential(De, Pass) 'De:Votre Email , Pass: password de l'Email
.Send(EmailMessage)
MsgBox("Message envoyé!", MsgBoxStyle.Information)
End With
Catch ex As Exception
MsgBox("Echec d'envoi du message!", MsgBoxStyle.Critical)
End Try
End Sub
End Class
Conclusion :
Mercie
A voir également
- Hotmail yahoo
- Send email vb net source code - Meilleures réponses
- Yahoo basic mail - Meilleures réponses
- PHP : Envoyer un mail en smtp (socket) - CodeS SourceS - Guide
- Visual Basic / VB.NET : Vb.net,envoie de mail par smtp avec authentification - CodeS SourceS - Guide
- PHP : Class d' envoie de mail en smtp - CodeS SourceS - Guide
- ASP / ASP.NET : C# - fonction très simple pour envoyer un mail via smtp - CodeS SourceS - Guide
- Pb d'envoi de mail par SMTP ✓ - Forum - ASP.NET
- Messages postés
-
2813
- Date d'inscription
- mardi 15 avril 2003
- Statut
- Membre
- Dernière intervention
- 2 juin 2020
335 juin 2012 à 23:23
Malheureusement non, car ce n'est pas une question de langage mais de librairie. VB6 ne fonctionne pas avec le Framework et donc ne possède pas nativement les fonctionnalités permettant d'envoyer un email. Pour envoyer un e-mail en VB6 il faut soit utiliser Winsock ou inet et saisir manuellement le code qui permettra le dialogue avec le serveur soit utiliser un activex conçu pour envoyer les e-mails.
5 juin 2012 à 16:44
Ce code est très bien mais serait-il possible d'avoir une version VB6 de ce code ?
Merci d'avance !
- Messages postés
-
58
- Date d'inscription
- dimanche 19 septembre 2010
- Statut
- Membre
- Dernière intervention
- 26 juillet 2013
128 avril 2012 à 01:01
23 janv. 2011 à 19:36
23 janv. 2011 à 19:33
Effectivement Produits.zip ne passait pas depuis gmail, il croit qu'il contient un exe alors que non :)
J'ai fais un test sans compresser les fichiers et ça a marché !
Merci pour le temps que tu m'as consacré Mayzz ^^
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.