Discussion :

[dv-2008]

Bonjour,
svp j'ai petit souci concernant les mails asp.net
voila un code que j'ai trouvé dans une autre source ésperant qu'il va servir un jour à quelqu'un
mais voila le probléme c'est quand je veux attacher un fichier lor de l'envoi d'un mail
est ce que quelqu'un peut me proposer une modification pour permettre d'attacher un fichier

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
 
   Const cdoSendUsingMethod = "http://schemas.microsoft.com/cdo/configuration/sendusing"
        Const cdoSendUsingPort = 2
        Const cdoSMTPServer = "http://schemas.microsoft.com/cdo/configuration/smtpserver"
        Const cdoSMTPServerPort = "http://schemas.microsoft.com/cdo/configuration/smtpserverport"
        Const cdoSMTPConnectionTimeout = "http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"
        Const cdoSMTPAuthenticate = "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"
        Const cdoBasic = 1
        Const cdoSendUserName = "http://schemas.microsoft.com/cdo/configuration/sendusername"
        Const cdoSendPassword = "http://schemas.microsoft.com/cdo/configuration/sendpassword"
        Dim objConfig
        Dim objMessage
        Dim Fields
 
        objConfig = Server.CreateObject("CDO.Configuration")
        Fields = objConfig.Fields
 
        With Fields
            .Item(cdoSendUsingMethod) = cdoSendUsingPort
            .Item(cdoSMTPServer) = "smtp.gmail.com"
            .Item(cdoSMTPServerPort) = 465
            .Item(cdoSMTPAuthenticate) = cdoBasic
            .Item(cdoSendUserName) = "monlogin"
            .Item(cdoSendPassword) = "monpass"
            .Update()
        End With
        objMessage = Server.CreateObject("CDO.Message")
        objMessage.Configuration = objConfig
        With objMessage
            .To = TextBox5.Text
            .From = TextBox3.Text
            .Subject = "zefzefzfzefzef"
            .TextBody = "zezzefzefzefzefzefzezefzzf"
            .Send()
        End With
        Fields = Nothing
        objMessage = Nothing
        objConfig = Nothing

[tomlev]

Je sais pas où tu as pêché ce code, mais j'ai l'impression qu'il utiliser une API complètement obsolète... d'ailleurs ce n'est pas du VB.NET, mais plutôt du VBA ou VBScript

Regarde ce tuto, il explique comment envoyer un mail en .NET (y compris comment mettre une pièce jointe) :
http://lgmorand.developpez.com/dotnet/mail/
C'est en C#, mais pas bien compliqué à traduire en VB.NET...

[dv-2008]

Merci Pour ton aide
mais quand je teste le code
la page tourne tourne ......... puis m'affiche que le délai d'attente de l'opération a expiré

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 Dim Mail As New MailMessage
        Mail.From = New MailAddress("mon Adresse")
 
        Mail.To.Add(New MailAddress("mail1"))
        Mail.To.Add(New MailAddress("mail2"))
        Mail.To.Add(New MailAddress("mail3"))
 
        Mail.Subject = "Mail de test"
        Mail.Body = "Hello les gens"
 
        Dim client As New SmtpClient("smtp.gmail.com", 465)
        client.EnableSsl = True
        client.Send(Mail)

[tomlev]

essaie avec le port 587 au lieu de 465
et cherche dans le forum, y a plein de discussions qui parlent de l'envoi de mails en .NET avec GMail

[dv-2008]

essaie avec le port 587 au lieu de 465
et cherche dans le forum, y a plein de discussions qui parlent de l'envoi de mails en .NET avec GMail

merci beaucoup pour ton aide,587 marche tres bien