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.

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

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

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 :)

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

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

Envoie d'email avec VB

34 réponses

Discussions similaires

Newsletters