Discussion :

[forsay1]

Bonjour,

je souhaite via visual basic envoyer des mail...

J'ai recupéré le code suivant sur un forum

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
 
'objet mail
        Dim email As New MailMessage
 
'addresse de l'envoyeur
        email.From = "tintin@domaine.com"
'addresse de reception 
        email.To = "milou@domaine.com"
'sujet du message
        email.Subject = "salut"
'corps du message
        email.Body = "ou es tu milou?"
'addresse du server smtp
        SmtpMail.SmtpServer = "xxx.xxx.xxx.xxx"
'type d 'autentification (ds ce cas autentification de base)
        email.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", "1")
'login de messagerie ( par exemple ds ce cas, monlogin pourrait etre "Tintin")
        email.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusername", monlogin)
'pass de messagerie
        email.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", monpassword)
'gestion d'erreur
        Try
            SmtpMail.Send(email)
 
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

Et bien sur en ayant importé System.Net.Mail

J'ai retrouvé ce code sur des forum différents le soucis c'est qu'il ne marche pas chez moi... en fait il me trouve des erreurs car la syntaxe du code serait mauvaise j'ai toujours les "email.to", "email.fields" etc... qui sont soulignés...

Que faire ?? Merci

[eikeshi]

Bonjour,

je souhaite via visual basic envoyer des mail...

J'ai recupéré le code suivant sur un forum

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
 
'objet mail
        Dim email As New MailMessage
 
'addresse de l'envoyeur
        email.From = "tintin@domaine.com"
'addresse de reception 
        email.To = "milou@domaine.com"
'sujet du message
        email.Subject = "salut"
'corps du message
        email.Body = "ou es tu milou?"
'addresse du server smtp
        SmtpMail.SmtpServer = "xxx.xxx.xxx.xxx"
'type d 'autentification (ds ce cas autentification de base)
        email.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", "1")
'login de messagerie ( par exemple ds ce cas, monlogin pourrait etre "Tintin")
        email.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusername", monlogin)
'pass de messagerie
        email.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", monpassword)
'gestion d'erreur
        Try
            SmtpMail.Send(email)
 
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

Et bien sur en ayant importé System.Net.Mail

J'ai retrouvé ce code sur des forum différents le soucis c'est qu'il ne marche pas chez moi... en fait il me trouve des erreurs car la syntaxe du code serait mauvaise j'ai toujours les "email.to", "email.fields" etc... qui sont soulignés...

Que faire ?? Merci

Salut, peux tu me donner la ligne de déclaration de SmtpMail stp ?

[forsay1]

Et bien le smtpmail n'est pas declaré car je pense qu'initialement ca doit faire parti du system.net.mail et apriori c vrai que la syntaxe exacte n'existe pas ou y retrouve divers smtp mais pas celui present dans le code que j'ai copié collé

[eikeshi]

Et bien le smtpmail n'est pas declaré car je pense qu'initialement ca doit faire parti du system.net.mail et apriori c vrai que la syntaxe exacte n'existe pas ou y retrouve divers smtp mais pas celui present dans le code que j'ai copié collé

Regarde içi :
http://faqvbnet.developpez.com/?page=netw#netw_sendmail

[forsay1]

COOL CA MARCHE ! merci beaucoup ! cela dit il m'annonce que utiliser la reference web.mail est obsolete...

j'ai quand même des anomalies mais le mail est parti en tout cas

[eikeshi]

COOL CA MARCHE ! merci beaucoup ! cela dit il m'annonce que utiliser la reference web.mail est obsolete...

j'ai quand même des anomalies mais le mail est parti en tout cas

C'est normal, utilise:

Code :

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

Imports System.net.Mail