Envoie d'email avec VB Résolu

Question

Je souhaiterais pouvoir envoyer un email automatique à partir d'une application VB. La seule solution que j'ai trouvée est d'utiliser MAPI. Seulement je n'arrive pas à m'en servir... Deplus je ne trouve aucun endroit ou l'on spécifie l'adresse du serveur pop3!!!
Est-ce que dueldu'un peut me detailler la procédure à suivre ou mieux encore m'indiquer une autre solution que MAPI.
Merci d'avance

Lupin.A · Accepted Answer

Bonjour,

Exemple type sous VB6 :

Cet exemple utilise Outlook Express même si celui-ci n'est pas congiguré.
La configuration est effectué dans le code !

Les valeurs suivantes doivent être remplacer par des valeurs valides.

[ smtp.serveur.net ]
[ monadresse@monserveur.net ]
[ destinataire@serveur.net ]

Option Explicit
'
'Déclaration de constantes

Const PourLecture = 1
Const cteAdresseSource = "monadresse@monserveur.net"


Private Sub cmd_Click(Index As Integer)

    If (Index > 0) Then
       
        ' Déclaration de variables
        Dim objMail As Object
        Dim sDestination As String
        Dim sPieceJointe As String
        Dim msgTitre As String
        Dim msgTexte As String
        
        Dim Drapeau As Boolean
    
        Set objMail = CreateObject("CDO.Message")
        Drapeau = False
        sDestination = "destinataire@serveur.net"
        msgTitre = "Automatisme"
        msgTexte = "Bonjour," & vbLf & "Corps du message"
        sPieceJointe = "D:\Monfichier.txt"
        Drapeau = True
    
        With objMail
    
            ' Ligne à modifier selon l'adresse de l'envoyeur
            .From = cteAdresseSource
            .To = sDestination
            .Subject = msgTitre
            ' Ligne à modifier selon le texte voulu !
            If (sPieceJointe <> "") Then
                If (Drapeau = True) Then
                    .TextBody = msgTexte & vbLf & LirePieceJointe(sPieceJointe) & vbLf
                Else
                    .TextBody = msgTexte & vbLf & "Pièce jointe incluse : " & vbLf
                End If
            Else
                .TextBody = msgTexte & vbCrLf & "Aucune Pièce jointe" & vbCrLf
            End If
            ' Ligne à modifier selon l'adresse du serveur SMTP
            .Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.serveur.net"
            .Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
            .Configuration.Fields.Update
    
            If ((sPieceJointe <> "") And (Drapeau = False)) Then
                objMail.AddAttachment (sPieceJointe)
            End If
    
            .Send
        End With
    
        Set objMail = Nothing
    
        MsgBox "Courriel envoyé !"
    Else
        Unload Me
    End If

End Sub
'

Function LirePieceJointe(LeFichier)

    Dim objFSO, CeFichier

    Set objFSO = CreateObject("Scripting.FileSystemObject")
    If (objFSO.FileExists(LeFichier)) Then
        Set CeFichier = objFSO.OpenTextFile(LeFichier, PourLecture)
        LirePieceJointe = CeFichier.ReadAll
        CeFichier.Close
        Set CeFichier = Nothing
    End If
    Set objFSO = Nothing

End Function
'

Lupin

pdelf · Answer

J'ai un petit prog qui permet d'envoyer les mail que g dévellopez sous vb5.
Laisse ton E mail et je t'envois les sources sans probleme.
Je ne fais que d'envoyer des mail et je ne m'occupê absolument pas du pop3 qui permet de recuperer les mails pour la lecture.

snoopy5.0 · Answer

snoopy5.0@wanadoo.frMerci d'avance :-)

IDOHOU · Answer

Salut, 
Je serais aussi interessé pour avoir le code source. 
Si tu peux me l'envoyer ca serait cool. 

Merci d'avance

Yué · Answer

J'essaye de réaliser une application qui permet d'envoyer des mails et j'aimerais beaucoup que vous m'envoyez le code source svp

Merci beaucoup

olinadeau · Answer

Salut, j'aimerais aussi que tu m'envoies le code source et aussi l'exécutable à olinadeau@hotmail.com.

dsimon45 · Answer

Salut, 
Je serais aussi interessé pour avoir le code source. 
Si tu peux me l'envoyer ca serait cool

deborah.simon@etu.univ-orleans.fr

Merci beaucoup

djtoph · Answer

moi aussi je serais interessé
DJtoph@wanadoo.fr
merki

Guy · Answer

J'aimerais également avoir ce code pour envoi de mail sur un poste utilisant Office-Outlook.
Merci d'avance.
guyc64@hotmail.com

boo · Answer

postez ce foutu code !!!

smifsa · Answer

ou je peut telecharger des .ocx pour VB???????????????????????????

.nono. · Answer

J'ai un code pour vous ;-)

Déjà vous êtes obligés de passer par le PHP (ça ouvre une fenêtre puis la referme quoi ^^).
Bon voyons déjà le code VB :

Dim mailto As String
Dim mailfrom As String
Dim mailtitre As String
Dim mailcorps As String
Dim mailreq As String

Sub envoyer()

mailto = "to=" & TextTo.Text
mailfrom = "from=From:" & TextFrom.Text
mailtitre = "titre=" & TextTitre.Text
mailcorps = Replace(TextCorps.Text, Chr$(10), "\n"
mailcorps = "corps=" & mailcorps

mailreq = "http://domaine.tld/vbmail.php?" & mailto & "&" & mailfrom & "&" & mailtitre & "&" & mailcorps

Shell ("c://WINDOWS/iexplore.exe " & mailreq)

End Sub

Ici l'adresse internet est la vôtre avec votre futur code PHP ;-)

Maintenant nous allons le créer celui ci ^^.

<html>
<BODY onLoad=""setTimeout(window.close, 1000)"">

<?php

mail($_GET[mailto], $_GET[mailtitre], $_GET[mailcorps], $_GET[mailfrom]);

?>
</BODY>
</html>

Voilà enregistrez ça en vbmail.php et ça marche ^^

casanova2700 · Answer

svp des sites ki contients des exercices en transact sql j`arrive pas a touver sur google si vs lavez deja trouve` envoi moi les url et merci

ADEL · Answer

salut pouvez vous m'envoyer le code pour pouvoir envoyer des messages en VB sil vous plait merci d'avans

informaticone · Answer

Bonjour, 
voila moi aussi interesse de voir votre votre code source et surtout sans l utilisation de smtp
voila mon adress de msn 
et je serai tres contente si vous me propose votre code source
rababe20@hotmail.com

scudi · Answer

Bonjour, 

Voila le code que j'ai repris et remodifier 


Sub Outlook()

'********************************************************************************
'La fonction sert a envoyer un mail via excel en définissant tous les attribut
'********************************************************************************

Dim OLF As Outlook.MAPIFolder, olMailItem As Outlook.MailItem

' MESsages = MSG11 & MSG12 & MSG13 & MSG14
Set OLF = GetObject("", "Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
Set olMailItem = OLF.Items.Add

'******************************************************
'Avec la fonciton MailItem défini par olMailItem
'Subject = objet du mail
'.to = destinataire du mail
'.cc = copie du mail
'.bcc = copie caché du mail
'******************************************************

With olMailItem
.Subject = "Fichier rejets RESERVEA"

'.To = "xx@xx"
'.To = "xx@xx"
'.To = "xx@xx"
.CC = "xx@xx"


.Body = "Ci-joint le fichier des rejets RESERVEA complété à J-1"

.Attachments.Add "c:\xx.xls" ' & SOCiete & "" & Nomvar, olByValue, , "C:\Documents and Settings\X074310\Bureau\Image0001.JPG"
.OriginatorDeliveryReportRequested = False
.ReadReceiptRequested = False
.Send
End With
Set ToContact = Nothing
Set olMailItem = Nothing
Set OLF = Nothing
End Sub

DonDiego · Answer

Bonjour,

J'ai copié collé ton code et rien ne part...
J'ai bien sur changé l'adresse mail de destinantion, les fichiers joints....
Rien ne bouge...
Y'a t'il un composant à rajouter ?
NB : je travaille avec VB6.0

benayed · Answer

je confirme, j'ai essayé plus que 40 code VB6 d'envoi de mail et aucun d'eux n'envoi reelement le mail !!!

Dondiego · Answer

J'ai trouvé un bout de code en vb6.0 qui m'attache mes pièces jointes, rempli les champs à, CC et CCi, rempli l'objet et le corps du message, il n'y a plus qu'à cliquer sur envoyer...mais je pense qu'il existe un paramètre pour l'envoyer directement (je n'ai pas cherché...)
Si ça intéresse quelqu'un...

sphinx · Answer

slt les amis moi mm j ai besoin d un code ki permet d'envoiyer des emails par Vb et j ai lu tt ces message et aucun d ils n est inportant j vx d'ade svp 
merci d'ava,nce

sergid · Answer

Je serais également par ce code. 
Merci
Mail: sangoku152004@yahoo.fr

Mod12 · Answer

Je me suis fié à ce bout de Code (celui de Lupin.A) pour une petite application cette avant-midi. 
Elle sera tester par le tech chez le client en aprem, je vais voir si ça à fonctionner. 

Je vous tiens au courant.

Patate65 · Answer

Bonjour,

je me suis servi du dernier code posté ici et il me sert bien ;) Merci!
Par contre j'aimerai attacher plusieurs fichiers-joints sur un même mail. La méthode AddAttachment, tel qu'elle est utilisée ici, peut le faire? ou peut être qu'il y a un index à mettre en place? j'ai pas trouvé d'info là dessus. un petit coup de main?
Merci d'avance :)

Patate65 · Answer

Oubliez ma question j'ai tenté quelque chose et ça marche. Autant dire que j'ai eu la flème de tester avant de laisser mon premier post ;)
++

informatica75 · Answer

slt, j'ai le code en vb pour l'envoi des aisl automatiquement mais le proibleme si que je veu joindre le contenu d'un document word comme corps message donc est ce qu'il y paersonne qui ma'ide et je l'aide dans une autre chose s'i veut surtout en c++

n'hestitez pas a me contacter         tchao2007@HOTMAIL.FR

Lupin.A · Answer

re:

Bien content que cela serve :-)

Le première ligne ne sert qu'a renseigné le script (le programme) pour savoir
ou envoyer le courriel. Il est nécessaire d'avoir une passerelle SMTP pour
envoyer du courriel.

Comme dans ton logiciel de courriel, tu dois lui indiquer qui est ton FAI.
À moins que tu installe toi-même un service SMTP sur ton système.

Le paramètre [2] spécifie d'utiliser le port courant [ SMTP = port 25 ].

Tu trouveras tous les détails ici :
https://docs.microsoft.com/en-us/previous-versions/office/developer/exchange-server-2003/ms870485(v=exchg.65)?redirectedfrom=MSDN

Mais aucun danger, d'inspection, de surveillance, etc ...
Ceci dit, ce sont les espions qui entrent dans les machines qui font
ce genre de trouble.

Lupin

VBdoudou · Answer

Merci pour ce code ca m'a beaucoup servi

parpins · Answer

Bonjour,

Est-ce que je pourrai avoir le code aussi?

parpins@hotmail.com

merci

kouki1000 · Answer

Bon sang ce topic devient de pire en pire...
Pourquoi pas mettre la source sur www.vbfrance.com ?
Ça arrêterait toutes les personnes qui postent pour ça...
En attendant que la source soir déposée (sur vbfrance ou autre)...
Débrouillez vous.
Ps: non, contrairement a ce que vous croyez, je ne fais pas ma loi, j'essaye de rendre "clean" ce topic.

Soso415 · Answer

Bonjour,

vous trouverez un logiciel professionnel entièrement gratuit à l'adresse suivante :  www.discount-emailing.com 

Je viens de l'essayer et tout fonctionne parfaitement !

Soso415 · Answer

Bonjour,

vous trouverez un logiciel professionnel entièrement gratuit à l'adresse suivante : www.discount-emailing.com

Je viens de l'essayer et tout fonctionne parfaitement !

MohaBaba · Answer

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

Bigbooster · Answer

As tu essaye System.Net.Mail?

Alexriderer · Answer

Regardez une vidéo de Chai1310b qui montre un code vraiment facile :
goo.gl/8ffkw

Envoie d'email avec VB

34 réponses

Discussions similaires

Newsletters