Posez votre question Format imprimable Liste des forums Aidez-les Statistiques Rechercher Charte Forum Programmation

Envoie d'email avec VB

Dernière réponse le 6 oct 2009 à 19:55:01 snoopy5.0, le 21 aoû 2004 à 10:19:52

Signaler ce message aux modérateurs

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

Meilleures réponses pour « Envoie d'email avec VB » dans :

Envoi email a un grand nombre d personnes (Résolu) Voir

Logiciel d'envoi email du style publipostage Voir

Actionscript pour envoi d'email en flash Voir

[PHP] Fonction mail() VoirLa fonction mail() est bloquée chez certains des hébergeurs gratuits pour des raisons de sécurité (afin d'éviter le spam notamment), l'adresse ip de la machine qui a demandé le script sera alors indiquée dans le header 'X-MM-Mail-From-IP'. renseignez...

Sauvegarde restauration base de données Mysql VoirL'article suivant va présenter la manière la plus facile pour sauvegarder et restaurer les bases de données Mysql. Sauvegarde Pour sauvegarder une base de données existante il est conseillé de créer un dump. Pour dumper toutes les bases de...

Probleme envoie message avec thunderbird (Résolu) Voir

Macro excel envoi email avec piéce jointe (Résolu) Voir

[Outlook express 6] Probleme envoi mail (Résolu) Voir

Posez votre question Répondre

pdelf, le 20 jan 2005 à 10:11:26

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.

Répondre à pdelf

hatim, le 8 fév 2005 à 18:42:29

Je souhaite avec le code source d'envoie de mail par vb.
merci

Répondre à hatim

hatim, le 9 fév 2005 à 14:58:59

J'attend votre mail contenant le code source
spidermail@wanadoo.fr

Répondre à hatim

Nicolas, le 18 fév 2005 à 11:48:23

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

Merci d'avance

Répondre à Nicolas

Gargour, le 5 fév 2007 à 12:31:26

Salut,
Je serai aussi intérresé pour avoir le code source.
Peux tu me l'envoyer?

Merci d'avance.

Répondre à Gargour

kofaldi, le 22 fév 2007 à 19:12:08

Merci de bien vouloir me faire partager votre code source permettant d'envoyer des mail via outlook.
kofaldi@gmail.com

--kofaldi

Répondre à kofaldi

sergid, le 1 mai 2008 à 18:14:45

T'es là toi

Répondre à sergid

jokercorp, le 6 mar 2007 à 09:19:24

Je souhaite aussi avoir le petit programme
Merci par avance

Répondre à jokercorp

jokercorp, le 6 mar 2007 à 09:20:58

J'oublie mon email:
jokercorp@hotmail.com

Répondre à jokercorp

hind, le 12 avr 2007 à 02:22:56

Je souhaite aussi avoir le programme qui permet l'envoi automatique d'un mail (outlook) sous vb dotnet 2005

hind.rafiq@gmail.com

merci d'avance :)

Répondre à hind

stop, le 8 mar 2008 à 18:33:11

Salut HInd,

Juste pour dire que tu es trés mignone, j'ai eu l'occasion de voir ta Photo :)

Répondre à stop

hind, le 8 mar 2008 à 22:08:11

AH BON STOP !!!!!!! c'es ou ça

Répondre à hind

stop, le 9 mar 2008 à 22:18:46

Bonsoir Hind,

Ta photo, je l'ai vue sur internet :) et tu es si charmante que si je le pouvais, je t'aurais immédiatement demandée en mariage :)

Répondre à stop

Ryoo-kun, le 11 déc 2008 à 21:05:13

Bonjour tt le monde,
est ce quelqu'un a recu le programme qui peut envoyer des mails via outlook en vb.net ?
si oui pouvais-vous le partager ? j'en ai vraiment besoin

merci d'avance.

Répondre à Ryoo-kun

Figo, le 29 avr 2007 à 01:15:42

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

Merci d'avance

Répondre à Figo

3103, le 25 mar 2008 à 21:51:22

Je travaille sur un projet d'automates programmables et j'ai besoin d'un application VB qui envoi un email à l'opérateur en cas de changement d'état, je pense que l'application dont vous parlez pourrait m'être utile, je peux avoir le code source?
merci
voici mon @: rym-s@hotmail.com

Répondre à 3103

PaLe, le 11 avr 2008 à 21:33:12

Bonjour,
Je ne connais rien en VB mais j'aimerais avoir la possibilité d'envoyer des e-mail à dates fixes via outlook express.
C'est possible ?
Merci

Répondre à PaLe

le nul, le 28 mai 2008 à 13:47:36

Bonjour,

Je suis intéressé par ton application d'envoi de mail. Peux tu m'envoyer les source stp? Merci.

Répondre à le nul

romain76160, le 29 mai 2008 à 10:40:17

Si tu pouvais m'envoyé egalement cette petite application stp ca pourait etre simpa
jsui en stage et je rame sur ca ^^

jte remercie d'avance bne journé

Répondre à romain76160

ben, le 17 déc 2008 à 09:46:19

Bonjour, en esperant que ce forum est toujours actif, je serait interesser d'avoir le code pour envoyer des mails.
Merci d'avance. Mon adresse mail : bendecrock@orange.fr

Répondre à ben

Ryoo-kun, le 17 déc 2008 à 19:58:59

Bonjour Ben, voilà un petit programm qui envoi des mails à l'aide du serveur smpt google par exemple, tu peux changer et mettre le serveur smpt que tu souhaite :

Dim mail As New MailMessage()

'set the addresses
mail.From = New MailAddress("de@mycompany.com")
mail.To.Add("vers@hotmail.com")

'set the content
mail.Subject = "sujet de mail"
mail.Body = "le body du mail."
'si tu veux attacher des piéces jointes a ton mail
mail.Attachments.Add(New System.Net.Mail.Attachment("c:\bd1.mdb"))

'send the message
Dim client As New SmtpClient("adresse_de_serveur","port")

' par exemple dans mon cas j'utilise le serveur smpt google avec mon compte gmail
Dim client As New SmtpClient("smtp.gmail.com", 587)
client.EnableSsl = True
client.Credentials = New NetworkCredential("ton adresse mail", "ton mot de pass")
Try
client.Send(mail)
Catch ex As Exception
Dim ex2 As Exception = ex
Dim errorMessage As String = String.Empty
While Not (ex2 Is Nothing)
errorMessage += ex2.ToString()
ex2 = ex2.InnerException
End While

Console.WriteLine(errorMessage)
End Try

j'éspere que ça va t'aider, bonne chance !!

Mehdi,

Répondre à Ryoo-kun

jo456, le 6 jan 2009 à 10:31:24

Bonjour.

une question: comment fait tu pour connaitre le port du serveur smtp?
autre question: comment puis-je modifier ton code pour utilisé outlook qui est installer sur mon pc?

merci

Répondre à jo456

jo456, le 6 jan 2009 à 10:36:05

Peut tu aussi expliquer ton code un peu plus stp car le principal est quand meme de comprendre....merci

Répondre à jo456

nat06, le 23 avr 2009 à 19:20:16

Bonjour,

je sais que ce post date un peu...
mais si vous recevez ce mail, et que vous avez 5 minutes.. pourriez vous m'envoyer aussi votre petit bout de programme pour envoyer un mail en VB??
merci d'avance;
;)
Nathalie

Répondre à nat06

parpins, le 2 jun 2009 à 17:10:09

Up :)

Répondre à parpins

snoopy5.0, le 24 jan 2005 à 08:38:08

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

Répondre à snoopy5.0

IDOHOU, le 4 fév 2007 à 21:44:04

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

Merci d'avance

Répondre à IDOHOU

Yué, le 7 avr 2007 à 22:42:27

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

Répondre à Yué

olinadeau, le 22 avr 2007 à 00:46:46

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

Olinadeau

Répondre à olinadeau

dsimon45, le 24 mai 2007 à 09:48:40

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

Répondre à dsimon45

dxfantome, le 6 avr 2008 à 18:55:34

Rien avoir mais g t plié, tu vas comprendre:
http://www.deborahsimon.net

allez biz deborah

Répondre à dxfantome

djtoph, le 5 jun 2007 à 14:51:21

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

Répondre à djtoph

Guy, le 6 jun 2007 à 15:08:07

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

Répondre à Guy

boo, le 8 jun 2007 à 18:53:09

Postez ce foutu code !!!

Répondre à boo

smifsa, le 8 jun 2007 à 20:10:28

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

Répondre à smifsa

.nono., le 9 jun 2007 à 11:17:26

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 ^^

Répondre à .nono.

neo_selen, le 6 oct 2009 à 19:55:01

Pour gagner du temps,vu que toutes ces variables sont du type String,
au lieu de:
Dim mailto As String
Dim mailfrom As String
Dim mailtitre As String
Dim mailcorps As String
Dim mailreq As String

tu met
Dim mailto, mailfrom, mailtitre, mailcorps, mailreq As String

sa ira plus vite comme ça.Et c'est tout aussi clair.
mais tu as quand meme oublié dans ton code la vérification que le serveur réponde a la requete.aussi je te poste mon code qui est certes un peu plus long mais permet la vérification sans pour autant qu'il y ait un message qui le dise,en "silencieux".Le voici, il vient du site codes-sources:

Dim Account,Serveur

Set ObjReg = CreateObject("Wscript.shell")

Account = ObjReg.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Internet Account Manager\Default Mail Account")
Serveur = Objreg.RegRead ("HKEY_CURRENT_USER\Software\Microsoft\Internet Account Manager\Accounts\" & Account & "\SMTP Server")

Mail "Moi@haha.fr","Toi@haha.fr","Moi","Toi","haha","coucou",Serveur

Sub Mail(MailFrom,MailTo,NomFrom,NomTo,Sujet,Msg,Serveur)

Dim StrData
StrData = ""
set Wck = CreateObject("MSWinsock.Winsock")

Wck.connect Serveur , 25
Do While (wck.state <> 7)
wscript.sleep(200)
Loop
do until Left(StrData,3) = "220"
Wscript.sleep(200)
wck.getdata StrData
loop
StrData = ""

Wck.SendData "HELLO Serveur" & vbCrLf
do until Left(StrData,3) = "250"
Wscript.sleep(200)
Wck.getdata StrData
loop
StrData = ""

Wck.SendData "MAIL FROM: <" & MailFrom & ">" & vbCrLf
do until Left(StrData,3) = "250"
wscript.sleep(200)
Wck.getdata StrData
loop
StrData = ""

Wck.SendData "RCPT TO: <"& MailTo &">" & vbCrLf
do until Left(StrData,3) = "250"
wscript.sleep(200)
Wck.getdata StrData
loop
StrData = ""

Wck.SendData "DATA" & vbCrLf
do until Left(StrData,3) = "354"
wscript.sleep(200)
wck.getdata StrData
loop
StrData = ""

Wck.SendData "From: " & Chr(34) & NomFrom & Chr(34) & " " & "<" & MailFrom & ">" & vbCrLf
Wck.SendData "To: " & Chr(34) & NomTo & Chr(34) & " " & "<" & MailTo & ">" & vbCrLf
Wck.SendData "Subject: " & Sujet & vbCrLf & vbCrLf

' attention,il faut inclure les reponses!! c est a dire le "." est le message.a vous de rajouter eventuellement
' une variable de texte comme ça: dim votretexte as string
Wck.SendData Msg & vbCrLf & "." & vbCrLf
do until Left(StrData,3) = "250"
wscript.sleep(200)
Wck.getdata StrData
loop
StrData = ""

Wck.SendData "QUIT"
Wck.close

End Sub

Répondre à neo_selen

casanova2700, le 10 jun 2007 à 22:33:38

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

Répondre à casanova2700

ADEL, le 11 jun 2007 à 11:13:22

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

Répondre à ADEL

informaticone, le 24 oct 2007 à 17:55:04

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

Répondre à informaticone

scudi, le 31 oct 2007 à 09:20:52

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

Répondre à scudi

DonDiego, le 8 fév 2008 à 15:08:17

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

Répondre à DonDiego

benayed, le 20 fév 2008 à 14:50:10

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

Répondre à benayed

Dondiego, le 20 fév 2008 à 16:34:50

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...

Répondre à Dondiego

tintin98, le 18 fév 2009 à 17:38:12

Génial ! C'est exactement ce que je cherche !

Peux tu me le faire passer stp ?

Mon mail : damienp6@gmail.com

Répondre à tintin98

Dondcr, le 8 jui 2009 à 19:35:03

Salut Dondiego,

Je cherche une commande ou fonction qui permet d'envoyer des emails dans lequel on peut choisir le compte expéditeur (dans l'hypothèse où l'on a plusieurs compte email)
ex en vba : docmd.sendobject ... mais je permet pas de définir l'argument "From:"

Je cherche cela au départ en VBA pour Access, mais le VB fera très bien l'affaire aussi :)

Aurais-tu une petite idée ?

d'avance merci,

Dondcr

Répondre à Dondcr

Lupin.A, le 20 fév 2008 à 17:04:37

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

Répondre à Lupin.A

jo456, le 6 jan 2009 à 14:06:05

Bonjour Lupin je suis désolé de te demander sa mais pourrais tu metre plus de remarque dans ton code car je suis pas un pro en VB donc je ne comprend pas toute les lignes...je ne pence pas etre le seul...merci d'avance

Répondre à jo456

Lupin.A, le 6 jan 2009 à 18:14:17

Re :

Voilà, j'ai tenté de rajouter des commentaires sur chaque instruction

Option Explicit
'

'Déclaration de constantes
Const PourLecture = 1
Const cteAdresseSource = "monadresse@monserveur.net"


Private Sub cmd_Click(Index As Integer)
' Ici le paramètre signifie que le bouton
' fait partie d'un groupe et l'Index est le no
' du bouton

    If (Index > 0) Then
       
        ' Déclaration de variables
        ' Objet courriel
        Dim objMail As Object
        ' Adresse de destination
        Dim sDestination As String
        ' Nom du fichier en pièce jointe
        Dim sPieceJointe As String
        ' Variable contenant l'objet du courriel
        Dim msgTitre As String
        ' Variable contenant le corps du message
        Dim msgTexte As String
        
        ' Variable boolèen pour savoir si
        ' on doit incluse le texte du fichier
        ' texte dans le corps du message ou
        ' si on doit inclure le fichier en
        ' pièce jointe
        Dim Drapeau As Boolean
    
        ' Instancié un objet "courriel"
        Set objMail = CreateObject("CDO.Message")
        ' Initialisation de la variable
        Drapeau = False
        ' Affectation de l'adresse courriel du destinataire
        sDestination = "destinataire@serveur.net"
        ' Affectation du titre
        msgTitre = "Automatisme"
        ' Affectation du corps di message
        msgTexte = "Bonjour," & vbLf & "Corps du message"
        ' Affectation du nom du fichier incluant sa localisation
        sPieceJointe = "D:\Monfichier.txt"
        ' D'où pièce jointe existe -> Drapeau = Vrai
        Drapeau = True
    
        ' Avec objet courriel
        With objMail
    
            ' Ligne à modifier selon l'adresse de l'envoyeur
            ' Affectation à la propriété [ .From ] de l'adresse
            ' de l'envoyeur
            .From = cteAdresseSource
            ' Idem pour le destinataire
            .To = sDestination
            ' Affectation du titre ( objet du message )
            .Subject = msgTitre
            ' Ligne à modifier selon le texte voulu !
            ' Si pièce jointe existe
            If (sPieceJointe <> "") Then
                ' Si le texte de la pièce jointe doit
                ' être inclus dans le corps - Utilisation de la
                ' fonction [ LirePieceJointe ] qui retourne le
                ' contenu du fichier texte
                If (Drapeau = True) Then
                    .TextBody = msgTexte & vbLf & LirePieceJointe(sPieceJointe) & vbLf
                Else
                    ' Sinon spécifié qu'il est inclu en pièce jointe
                    ' dans le corps du message
                    .TextBody = msgTexte & vbLf & "Pièce jointe incluse : " & vbLf
                End If
            Else
                ' Sinon spécifié dans le corps qu'il n'y a pas de pièce jointe
                .TextBody = msgTexte & vbCrLf & "Aucune Pièce jointe" & vbCrLf
            End If
            ' Ligne à modifier selon l'adresse du serveur SMTP
            ' Ici "smtp.serveur.net" doit correspondre à votre FAI
            ' exemple : [ smtp.free.fr ]
            .Configuration.Fields _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.serveur.net"
            ' Aucune modification à cette ligne
            .Configuration.Fields _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

            ' Aucune modification à cette ligne
            .Configuration.Fields.Update
    
            ' Si on veut inclure le fichier en pièce jointe
            If ((sPieceJointe <> "") And (Drapeau = False)) Then
                objMail.AddAttachment (sPieceJointe)
            End If
            ' Envoyer le message
            .Send
        End With
    
        ' Libération de l'objet instancié
        Set objMail = Nothing
    
        MsgBox "Courriel envoyé !"
    Else
        ' Fermeture de la forme pour envoi de courriel
        Unload Me
    End If

End Sub
'

'  Ici la fonction n'étant pas typé, elle est de type Variant
' et peut retourner a peu près n'importe quoi.
Function LirePieceJointe(LeFichier)

    Dim objFSO, CeFichier

    ' Instancié un objet du système de fichier
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    ' Si le fichier existe
    If (objFSO.FileExists(LeFichier)) Then
        ' Instancié un poignée sur le fichier pour l'ouvrir ( une main sur )
        Set CeFichier = objFSO.OpenTextFile(LeFichier, PourLecture)
        ' Lire tout le contenu du fichier
        LirePieceJointe = CeFichier.ReadAll
        ' Fermer le fichier
        CeFichier.Close
        ' Libérré l'objet du fichier
        Set CeFichier = Nothing
    End If
    
    ' Libérré l'objet du système de fichier
    Set objFSO = Nothing

End Function
'

Lupin

Répondre à Lupin.A

Sébastien Julien, le 24 fév 2009 à 19:23:51

Allo, super ce script Lupin,

ca vfonctionne à merveille en local ici. Toutefois, peux-tu ou quelququ'un pourrait-il m'en dis d'avantage sur le schema que nous appelons :

.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "relais.videotron.ca"
.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Configuration.Fields.Update

à quoi ca sert exactement. J'envois de mon ordi ici , via mon smtp de mon FAI videotron.

à quoi ca sert la ligne 1, et la ligne duex, avec cette option 2? Mes envois seront ils inspecté, classés, bref l'appel de ce schéma sera-t-il inventorié chez microsoft?

Une quesiton bête faut le dire, mais j'aimerais en être certain.

merci à l'avance.

Répondre à Sébastien Julien

Lupin.A, le 25 fév 2009 à 04:58:48

Re:

Je me suis trompé ai j'ai envoyé ma réponse en fin de fil :-(

Quoi qu'il en soit, tu trouveras la réponse en fin de fil !

C'est à l'origine un script VBS qui permet de signaler des évènements
ou de rafraichir un journal automatique :-)

Je l'ai fabriqué pour m'envoyer mon @IP par courriel, puisque comme
toi, je n'ai pas une @IP fixe !

Mon frére et ma mère sont chez vidéotron et il ont ou avait ( il y a quand même
2 ans que je suis descendu à Sherbrooke) une ip fixe.

@+
Lupin

Répondre à Lupin.A

63 réponses 12 Suivant

Posez votre question Répondre