Discussion :

[Syrrus]

Bonjour,

je fais une appli en vb.net qui se connecte à une base de donnée access.

Mon appli doit à un moment donné envoyer un mail, voilà que j'ai utilisé :

Code :

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

1
2
3
4
5
6
Dim mss As New Net.Mail.MailMessage
        mss.From = New System.Net.Mail.MailAddress(de)
        mss.To.Add(pour)
        mss.Body = bodi
        Dim mailclient As New Net.Mail.SmtpClient("smtp.yyyy.com")
        mailclient.Send(mss)

je ne vois pas ce qui cloche, mais je lance l'appli et que je clique pour envoyer un mail il me met

Code :

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

Échec de la transaction. La réponse du serveur était*: <mathias.xx@yyyy.com>: Recipient address rejected: Access denied"}

je ne comprend pas à quoi c'est du, si quelqu'un peut m'aider svp
merci d'avance...

[Aspic]

Recipient address rejected: Access denied

Ca veut dire que ton adresse email est fausse !

[Aspic]

Tien voila une classe pour envoyer un mail :

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
   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 Exception
            MsgBox(ex.Message)
        End Try
    End Sub

[Syrrus]

merci bcp pour la classe je vais l'essayer de ce pas

Tu me dis que l'adresse est fausse mais pas du tout, est ce que ça a un rapport avec la boite mail qui est configuré sur l'ordi qui exécute l'appli ???

enfin bon merci j'essaye la classe....

[Aspic]

Non pas de rapport avec ton logiciel de messagerie. Avec ma classe ca devrais passer...

[Syrrus]

Bonjour,

j'ai des erreurs avec la classe que tu m'as donné : il me dit qu'il ne connait pas les types : SmtpClient, Attachment et que celui est obsoléte : MailMessage

En désespoir de cause j'ai importé tout ça :

Code :

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

1
2
3
4
5
6
7
 
Imports System.net.Mail.MailMessage
Imports System.net.Mail.SmtpClient
Imports System.net.Mail.Attachment
Imports System.Web.Mail.MailAttachment
Imports System.Net.Mime
Imports System.Web.Mail

Merci pour votre aide

[Aspic]

Normal tu n'as pas importé les bon trucs ^^

Code :

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

1
2
3
Imports System.net.Mail
Imports System.net.Mail.SmtpClient
Imports System.net.Mail.Attachment

++

[Syrrus]

Merci bcp pour tes réponses

Mon pb est résolu ça marche trés bien, au début ça foirait pour cause de mauvais smtp

Merci beaucoup