Discussion :

[crapouye]

bonjour,
j'ai trouvé qu'on pouvait envoyé des mails avec system.web.mail, cependant je ne parviens pas à importer avec "imports system.web.mail", il s'arrête à "imports system.web" et je ne peux donc pas utiliser les fonctions nécessaires.

comment puis je faire pour importer les références nécessaires ?

Merci d'avance de votre aide.

Crapouye

[crapouye]

il semblerait qu'il faut utiliser .net.mail ds vb 2005 mais je n'y arrive pas.
pouvez vous me donner un exemple s'il vous plait.

[Aspic]

il semblerait qu'il faut utiliser .net.mail ds vb 2005 mais je n'y arrive pas.
pouvez vous me donner un exemple s'il vous plait.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Imports System.Web.mail

[crapouye]

Merci mais c'est mon problème dans mon premier message j'explique que cela n'est pas reconnu ds vb 2005 : "imports system.web.mail" .

Sur certains forum, il est indiqué que cela ne fonctionne pas dans vb 2005 et qu'il faut utiliser system.net.mail mais je n'y parvient pas.

Merci d'avance,

Crapouye

[SaumonAgile]

mais je n'y parvient pas.

Ce genre de réponse ne nous sert à rien. Qu'est ce que tu as déjà fait ? Qu'est ce qui ne fonctionne pas ? Plantage ? Compilation ? Exception ?

Merci de préciser ta demande.

[crapouye]

désolé. Tout simplement je n'arrive pas comprendre la logique de l'utilisation avec .net.mail qui à l'air plus complexe qu'avec web.mail.

C'est pour ça que je pense comprendre plus facilement avec un exemple qui envoi un email.

Merci d'avance

[Aspic]

Voici un exemple complet et en plus avec gestion des pièces jointes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 Public Sub CreateMessageWithAttachment(ByVal server As String, ByVal file As String, ByVal [From] As String, ByVal [To] As String, ByVal Texte As String, Optional ByVal CC As String = "", Optional ByVal Sujet As String = "")
        Try
            Dim message As New MailMessage([From], [To], Sujet, Texte)
            Dim data As New Attachment(file, Net.Mime.MediaTypeNames.Application.Octet)
            Dim disposition As Net.Mime.ContentDisposition = data.ContentDisposition
 
            With disposition
                .CreationDate = System.IO.File.GetCreationTime(file)
                .ModificationDate = System.IO.File.GetLastWriteTime(file)
                .ReadDate = System.IO.File.GetLastAccessTime(file)
            End With
 
            message.Attachments.Add(data)
 
            Dim client As New SmtpClient(server)
 
            client.Credentials = Net.CredentialCache.DefaultNetworkCredentials
            client.Send(message)
        Catch ex As SmtpException
            B_Send.Enabled = True
            MsgBox(ex.Message)
        End Try
    End Sub

[Nikkobass]

J'ai eu le même problème sur vb2003: pour que mon Imports System.Web.mail marche, j'ai du ajouter la référence .NEt "System.Web", et après l'import a réussi. J'espère que ca pourra t'aider.

Je profite du post pour vous faire part d'un problème que j'ai rencontré avec la fonction smtpmail.send: (voila mon code)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
 
Function CreateMail(ByVal _Destinataire As String, ByVal _Objet As String, ByVal _Message As String, Optional ByVal _Pathjoint As String = "") As Boolean
        Dim email As New System.Web.Mail.MailMessage
 
        email.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusername", nomuser)
        email.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", passuser)
 
        SmtpMail.SmtpServer = ServeurExterne       'choix du smtp
 
        email.From = AdresseDp
        email.To = _Destinataire
        email.Subject = _Objet
        email.Body = _Message
        email.Priority = MailPriority.Normal
 
        Dim chemin() As String
        If _Pathjoint <> "" Then  'envoi des pieces jointes
            Try
                chemin = _Pathjoint.Split(";")
                Dim i As Integer
                For i = 0 To chemin.Length - 1
                    email.Attachments.Add(New MailAttachment(chemin(i)))
                Next
            Catch
                MsgBox("Echec de l'ajout de pièces jointes, envoi interrompu")
                Return False
            End Try
 
        End If
 
  Try
            SmtpMail.Send(email)
            msgbox("Mail envoyé")
            Return True
        Catch ex As Exception
            MsgBox(ex.Message & "   Envoi interrompu")
            Return False
        End Try
    End Function

J'ai programmé une fonction qui envoi un mail lorsqu'on appui sur un bouton et qui affiche une messagebox lorsque l'envoi est effectué.
Le problème: lorsque l'exécution arrive à la ligne "SmtpMail.Send(email)", le programme commence a envoyer le mail et revient sur le formulaire du bouton et continu de tourner normalement et des que l'email est envoyé la msgbox apparait. Ainsi, alors que le premier mail n'est pas encore envoyé, l'utilisateur peut ré-appuyer sur le bouton, voir meme quitter le formulaire!
J'aimerai pouvoir freeze le programme le temps de l'envoi du mail.

Est ce que vous avez déjà rencontré ce problème?

[crapouye]

Merci beaucoup messieurs !!! :-) cela fonctionne pour les 2 solutions !