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

Utilisateur anonyme · 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

Envoie d'email avec VB

34 réponses

Discussions similaires

Newsletters