Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

en mail vb2005 express

8 réponses
Avatar
Jo
Bonjour a tous,
j'essaye d'envoyer un mail avec vb2005 express après plusieurs essai je
bloque toujours
j'ai essayai dans vb 'insérez un extrait' sa ne fonctionne pas
Dim message As New MailMessage("sender@address", "from@address", "Subject",
"Message Text")
Dim emailClient As New SmtpClient("Email Server Name")
emailClient.Send(message)
sa bloque cote serveur puis,
j'essaye se code et la je n'arrive pas a définir l' expéditeur .From marque
une erreur que je n'arrive pas a corriger
mais se n'ai peut d' être pas la bonne solution pour l'envoi si quelqu'un a
une solution
merci de votre aide
Jo

Dim DotNetMail As New Net.Mail.MailMessage()
With DotNetMail
.From = "joel.decotign@wanadoo.fr" ' défini expediteur
.To.Clear()
.To.Add(destinataire) ' défini la/les cible
.Subject = msubject.Text ' le sujet
.Body = mbody.Text ' le corps du mail
End With
Dim client As New Net.Mail.SmtpClient
client.Host = "smtp.wanadoo.fr"
client.Send(DotNetMail) 'on envoie le mail
lblstat.Text = "Mail envoyé avec succès
MsgBox("Mail envoyé avec succès

8 réponses

Avatar
Gilles TOURREAU
Le Thu, 20 Dec 2007 12:25:21 +0100, Jo a écrit:

Bonjour a tous,
j'essaye d'envoyer un mail avec vb2005 express après plusieurs essai je
bloque toujours
j'ai essayai dans vb 'insérez un extrait' sa ne fonctionne pas
Dim message As New MailMessage("", "",
"Subject", "Message Text")
Dim emailClient As New SmtpClient("Email Server Name")
emailClient.Send(message)
sa bloque cote serveur puis,
j'essaye se code et la je n'arrive pas a définir l' expéditeur .From
marque une erreur que je n'arrive pas a corriger
mais se n'ai peut d' être pas la bonne solution pour l'envoi si
quelqu'un a une solution
merci de votre aide
Jo

Dim DotNetMail As New Net.Mail.MailMessage()
With DotNetMail



A corriger :

.From = new MailAddress("") '
défini expediteur



Inutile :
.To.Clear()




.To.Add(destinataire) ' défini la/les cible
.Subject = msubject.Text ' le sujet
.Body = mbody.Text ' le corps du mail
End With
Dim client As New Net.Mail.SmtpClient
client.Host = "smtp.wanadoo.fr"
client.Send(DotNetMail) 'on envoie le mail
lblstat.Text = "Mail envoyé avec succès
MsgBox("Mail envoyé avec succès



Cordialement

--
Gilles TOURREAU


S.A.R.L. P.O.S
Le spécialiste en motoculture depuis + de 30 ans !
http://www.pos.fr
Avatar
Jo
Bonjour Gilles
je viens de corriger voici le code:
Dim DotNetMail As New Net.Mail.MailMessage()
With DotNetMail
.From = New Net.Mail.MailAddress( MonEmail) ' défini
expediteur
.To.Add(New Net.Mail.MailAddress(SonEmail) ' défini
la/les cible
.Subject = "Le sujet"
.Body = "Le texte"
End With
Dim client As New Net.Mail.SmtpClient
client.Host = "smtp.orange.fr" ' ou wanadoo meme erreur
client.Send(DotNetMail) 'on envoie le mail
MsgBox("Mail envoyé avec succès ")

j'ai toujours un echec d'envoi par contre si je fait avec (system.web)

Dim DotNetMail As New MailMessage()
With DotNetMail
.From = MonEmail
.To = SonEmail
.Subject = "Le Sujet"
.Body = "Le texte"
End With
SmtpMail.SmtpServer ="smtp.orange.fr"
SmtpMail.Send(DotNetMail) 'on envoie le mail
MsgBox("Mail envoyé avec succès ")

la sa fonctionne (juste une info comme quoi mailmessage est obsolète et de
passer net.mail ?

Jo

"Gilles TOURREAU" a écrit dans le message de groupe
de discussion :
Le Thu, 20 Dec 2007 12:25:21 +0100, Jo a écrit:

Bonjour a tous,
j'essaye d'envoyer un mail avec vb2005 express après plusieurs essai je
bloque toujours
j'ai essayai dans vb 'insérez un extrait' sa ne fonctionne pas
Dim message As New MailMessage("", "",
"Subject", "Message Text")
Dim emailClient As New SmtpClient("Email Server Name")
emailClient.Send(message)
sa bloque cote serveur puis,
j'essaye se code et la je n'arrive pas a définir l' expéditeur .From
marque une erreur que je n'arrive pas a corriger
mais se n'ai peut d' être pas la bonne solution pour l'envoi si
quelqu'un a une solution
merci de votre aide
Jo

Dim DotNetMail As New Net.Mail.MailMessage()
With DotNetMail



A corriger :

.From = new MailAddress("") '
défini expediteur



Inutile :
.To.Clear()




.To.Add(destinataire) ' défini la/les cible
.Subject = msubject.Text ' le sujet
.Body = mbody.Text ' le corps du mail
End With
Dim client As New Net.Mail.SmtpClient
client.Host = "smtp.wanadoo.fr"
client.Send(DotNetMail) 'on envoie le mail
lblstat.Text = "Mail envoyé avec succès
MsgBox("Mail envoyé avec succès



Cordialement

--
Gilles TOURREAU


S.A.R.L. P.O.S
Le spécialiste en motoculture depuis + de 30 ans !
http://www.pos.fr


Avatar
Gilles TOURREAU [MVP]
Le Sun, 06 Jan 2008 17:37:54 +0100, Jo a écrit:

Bonjour Gilles
je viens de corriger voici le code:
Dim DotNetMail As New Net.Mail.MailMessage()
With DotNetMail
.From = New Net.Mail.MailAddress( MonEmail) ' défini
expediteur
.To.Add(New Net.Mail.MailAddress(SonEmail) ' défini
la/les cible
.Subject = "Le sujet"
.Body = "Le texte"
End With
Dim client As New Net.Mail.SmtpClient
client.Host = "smtp.orange.fr" ' ou wanadoo meme erreur
client.Send(DotNetMail) 'on envoie le mail
MsgBox("Mail envoyé avec succès ")

j'ai toujours un echec d'envoi par contre si je fait avec (system.web)



Pouvez-vous poster le message d'erreur ?


Dim DotNetMail As New MailMessage()
With DotNetMail
.From = MonEmail
.To = SonEmail
.Subject = "Le Sujet"
.Body = "Le texte"
End With
SmtpMail.SmtpServer ="smtp.orange.fr"
SmtpMail.Send(DotNetMail) 'on envoie le mail
MsgBox("Mail envoyé avec succès ")

la sa fonctionne (juste une info comme quoi mailmessage est obsolète et
de passer net.mail ?

Jo



Cordialement

--
Gilles TOURREAU - MVP C#


S.A.R.L. P.O.S
Le spécialiste en motoculture depuis + de 30 ans !
http://www.pos.fr
Avatar
Jo
Bonjour Gilles,

en mettant:
client.Host = "orange.fr"
client.Send(DotNetMail)
donc en enlevant le smtp devant orange voici le message d'erreur: Service
non disponible, fermeture du canal de transmission. La réponse du serveur
était : Cannot connect to SMTP server 193.252.149.30 (193.252.149.30:25),
connect error 10060
avec devant smtp.orange.fr: le message d'erreur Échec d'envoi du courrier.
smtpexception n'a pas été gérée

Cordialement
Jo

"Gilles TOURREAU [MVP]" a écrit dans le message de
groupe de discussion :
Le Sun, 06 Jan 2008 17:37:54 +0100, Jo a écrit:

Bonjour Gilles
je viens de corriger voici le code:
Dim DotNetMail As New Net.Mail.MailMessage()
With DotNetMail
.From = New Net.Mail.MailAddress( MonEmail) ' défini
expediteur
.To.Add(New Net.Mail.MailAddress(SonEmail) ' défini
la/les cible
.Subject = "Le sujet"
.Body = "Le texte"
End With
Dim client As New Net.Mail.SmtpClient
client.Host = "smtp.orange.fr" ' ou wanadoo meme erreur
client.Send(DotNetMail) 'on envoie le mail
MsgBox("Mail envoyé avec succès ")

j'ai toujours un echec d'envoi par contre si je fait avec (system.web)



Pouvez-vous poster le message d'erreur ?


Dim DotNetMail As New MailMessage()
With DotNetMail
.From = MonEmail
.To = SonEmail
.Subject = "Le Sujet"
.Body = "Le texte"
End With
SmtpMail.SmtpServer ="smtp.orange.fr"
SmtpMail.Send(DotNetMail) 'on envoie le mail
MsgBox("Mail envoyé avec succès ")

la sa fonctionne (juste une info comme quoi mailmessage est obsolète et
de passer net.mail ?

Jo



Cordialement

--
Gilles TOURREAU - MVP C#


S.A.R.L. P.O.S
Le spécialiste en motoculture depuis + de 30 ans !
http://www.pos.fr


Avatar
Gilles TOURREAU [MVP]
"Jo" a écrit dans le message de
news:
Bonjour Gilles,

en mettant:
client.Host = "orange.fr"
client.Send(DotNetMail)
donc en enlevant le smtp devant orange voici le message d'erreur: Service
non disponible, fermeture du canal de transmission. La réponse du serveur
était : Cannot connect to SMTP server 193.252.149.30 (193.252.149.30:25),
connect error 10060
avec devant smtp.orange.fr: le message d'erreur Échec d'envoi du courrier.
smtpexception n'a pas été gérée

Cordialement
Jo

"Gilles TOURREAU [MVP]" a écrit dans le message
de groupe de discussion :
Le Sun, 06 Jan 2008 17:37:54 +0100, Jo a écrit:

Bonjour Gilles
je viens de corriger voici le code:
Dim DotNetMail As New Net.Mail.MailMessage()
With DotNetMail
.From = New Net.Mail.MailAddress( MonEmail) ' défini
expediteur
.To.Add(New Net.Mail.MailAddress(SonEmail) ' défini
la/les cible
.Subject = "Le sujet"
.Body = "Le texte"
End With
Dim client As New Net.Mail.SmtpClient
client.Host = "smtp.orange.fr" ' ou wanadoo meme erreur
client.Send(DotNetMail) 'on envoie le mail
MsgBox("Mail envoyé avec succès ")

j'ai toujours un echec d'envoi par contre si je fait avec (system.web)



Pouvez-vous poster le message d'erreur ?


Dim DotNetMail As New MailMessage()
With DotNetMail
.From = MonEmail
.To = SonEmail
.Subject = "Le Sujet"
.Body = "Le texte"
End With
SmtpMail.SmtpServer ="smtp.orange.fr"
SmtpMail.Send(DotNetMail) 'on envoie le mail
MsgBox("Mail envoyé avec succès ")

la sa fonctionne (juste une info comme quoi mailmessage est obsolète et
de passer net.mail ?

Jo



Cordialement

--
Gilles TOURREAU - MVP C#


S.A.R.L. P.O.S
Le spécialiste en motoculture depuis + de 30 ans !
http://www.pos.fr







Bonjour,

Il faut marquer :
client.Host = "smtp.orange.fr"

Car orange.fr car le serveur SMTP d'orange est le suivant : 193.252.22.74

Cordialement
--
Gilles TOURREAU - MVP C#


S.A.R.L. P.O.S
Le spécialiste en motoculture depuis + de 30 ans !
http://www.pos.fr
Avatar
Jo
bonsoir mais la je ne comprend pas puisque comme je le disait avec le
smtp.orange.fr de toute façon j'ai le message d'erreur
Échec d'envoi du courrier. smtpexception n'a pas été gérée (a chaque
essai ?)
je vous remercie pour votre aide et vais faire puisque cela fonctionne avec
le MailMessage et ignorer l'info que c obselete

Cordialement
Jo

"Gilles TOURREAU [MVP]" a écrit dans le message de
groupe de discussion :
"Jo" a écrit dans le message de
news:
Bonjour Gilles,

en mettant:
client.Host = "orange.fr"
client.Send(DotNetMail)
donc en enlevant le smtp devant orange voici le message d'erreur: Service
non disponible, fermeture du canal de transmission. La réponse du serveur
était : Cannot connect to SMTP server 193.252.149.30 (193.252.149.30:25),
connect error 10060
avec devant smtp.orange.fr: le message d'erreur Échec d'envoi du
courrier. smtpexception n'a pas été gérée

Cordialement
Jo

"Gilles TOURREAU [MVP]" a écrit dans le message
de groupe de discussion :
Le Sun, 06 Jan 2008 17:37:54 +0100, Jo a écrit:

Bonjour Gilles
je viens de corriger voici le code:
Dim DotNetMail As New Net.Mail.MailMessage()
With DotNetMail
.From = New Net.Mail.MailAddress( MonEmail) '
défini expediteur
.To.Add(New Net.Mail.MailAddress(SonEmail) '
défini la/les cible
.Subject = "Le sujet"
.Body = "Le texte"
End With
Dim client As New Net.Mail.SmtpClient
client.Host = "smtp.orange.fr" ' ou wanadoo meme erreur
client.Send(DotNetMail) 'on envoie le mail
MsgBox("Mail envoyé avec succès ")

j'ai toujours un echec d'envoi par contre si je fait avec (system.web)



Pouvez-vous poster le message d'erreur ?


Dim DotNetMail As New MailMessage()
With DotNetMail
.From = MonEmail
.To = SonEmail
.Subject = "Le Sujet"
.Body = "Le texte"
End With
SmtpMail.SmtpServer ="smtp.orange.fr"
SmtpMail.Send(DotNetMail) 'on envoie le mail
MsgBox("Mail envoyé avec succès ")

la sa fonctionne (juste une info comme quoi mailmessage est obsolète et
de passer net.mail ?

Jo



Cordialement

--
Gilles TOURREAU - MVP C#


S.A.R.L. P.O.S
Le spécialiste en motoculture depuis + de 30 ans !
http://www.pos.fr







Bonjour,

Il faut marquer :
client.Host = "smtp.orange.fr"

Car orange.fr car le serveur SMTP d'orange est le suivant : 193.252.22.74

Cordialement
--
Gilles TOURREAU - MVP C#


S.A.R.L. P.O.S
Le spécialiste en motoculture depuis + de 30 ans !
http://www.pos.fr




Avatar
Patrice
Bonjour,

Le code indique t'il au serveur SMTP les informations d'authentification
(surtout ne pas poster le code correspondant !). J'imagine que le serveur
Orange n'acceptera de toute façon d'envoyer du courrier que si l'utilisateur
s'est authentifié. Il peut être intéressant aussi de cliquer sur "détails"
ce qui devrait permettre de voir le détail de l'exception...

Il est également sans doute préférable de ne pas ignorer l'avertissement. Il
indique que ces classes sont "obsolètes" (et elles pourraient pourquoi pas
être enlevées dans une version lointaine du framework). Les classes
maintenant conseillées sont dans System.Net.Mail...

--
Patrice


"Jo" a écrit dans le message de news:

bonsoir mais la je ne comprend pas puisque comme je le disait avec le
smtp.orange.fr de toute façon j'ai le message d'erreur
Échec d'envoi du courrier. smtpexception n'a pas été gérée (a chaque
essai ?)
je vous remercie pour votre aide et vais faire puisque cela fonctionne
avec le MailMessage et ignorer l'info que c obselete

Cordialement
Jo

"Gilles TOURREAU [MVP]" a écrit dans le message
de groupe de discussion :

"Jo" a écrit dans le message de
news:
Bonjour Gilles,

en mettant:
client.Host = "orange.fr"
client.Send(DotNetMail)
donc en enlevant le smtp devant orange voici le message d'erreur:
Service non disponible, fermeture du canal de transmission. La réponse
du serveur était : Cannot connect to SMTP server 193.252.149.30
(193.252.149.30:25), connect error 10060
avec devant smtp.orange.fr: le message d'erreur Échec d'envoi du
courrier. smtpexception n'a pas été gérée

Cordialement
Jo

"Gilles TOURREAU [MVP]" a écrit dans le message
de groupe de discussion :
Le Sun, 06 Jan 2008 17:37:54 +0100, Jo a écrit:

Bonjour Gilles
je viens de corriger voici le code:
Dim DotNetMail As New Net.Mail.MailMessage()
With DotNetMail
.From = New Net.Mail.MailAddress( MonEmail) '
défini expediteur
.To.Add(New Net.Mail.MailAddress(SonEmail) '
défini la/les cible
.Subject = "Le sujet"
.Body = "Le texte"
End With
Dim client As New Net.Mail.SmtpClient
client.Host = "smtp.orange.fr" ' ou wanadoo meme erreur
client.Send(DotNetMail) 'on envoie le mail
MsgBox("Mail envoyé avec succès ")

j'ai toujours un echec d'envoi par contre si je fait avec (system.web)



Pouvez-vous poster le message d'erreur ?


Dim DotNetMail As New MailMessage()
With DotNetMail
.From = MonEmail
.To = SonEmail
.Subject = "Le Sujet"
.Body = "Le texte"
End With
SmtpMail.SmtpServer ="smtp.orange.fr"
SmtpMail.Send(DotNetMail) 'on envoie le mail
MsgBox("Mail envoyé avec succès ")

la sa fonctionne (juste une info comme quoi mailmessage est obsolète
et de passer net.mail ?

Jo



Cordialement

--
Gilles TOURREAU - MVP C#


S.A.R.L. P.O.S
Le spécialiste en motoculture depuis + de 30 ans !
http://www.pos.fr







Bonjour,

Il faut marquer :
client.Host = "smtp.orange.fr"

Car orange.fr car le serveur SMTP d'orange est le suivant : 193.252.22.74

Cordialement
--
Gilles TOURREAU - MVP C#


S.A.R.L. P.O.S
Le spécialiste en motoculture depuis + de 30 ans !
http://www.pos.fr






Avatar
badrazerty1
On 14 jan, 20:27, "Jo" wrote:
bonsoir mais la je ne comprend pas puisque comme je le disait avec le
smtp.orange.fr de toute façon j'ai le message d'erreur
Échec d'envoi du courrier. smtpexception n'a pas été gérée (a chaque
essai ?)
je vous remercie pour votre aide et vais faire puisque cela fonctionne ave c
le MailMessage et ignorer l'info que c obselete

Cordialement
Jo

"Gilles TOURREAU [MVP]" a écrit dans le message de
groupe de discussion : ..> "Jo" a écrit dans le message de
>news:
>> Bonjour Gilles,

>> en mettant:
>> client.Host = "orange.fr"
>> client.Send(DotNetMail)
>> donc en enlevant le smtp devant orange voici le message d'erreur: Servi ce
>> non disponible, fermeture du canal de transmission. La réponse du ser veur
>> était : Cannot connect to SMTP server 193.252.149.30 (193.252.149.30: 25),
>> connect error 10060
>> avec devant smtp.orange.fr: le message d'erreur Échec d'envoi du
>> courrier. smtpexception n'a pas été gérée

>> Cordialement
>> Jo

>> "Gilles TOURREAU [MVP]" a écrit dans le mess age
>> de groupe de discussion :
>>> Le Sun, 06 Jan 2008 17:37:54 +0100, Jo a écrit:

>>>> Bonjour Gilles
>>>> je viens de corriger voici le code:
>>>> Dim DotNetMail As New Net.Mail.MailMessage()
>>>> With DotNetMail
>>>> .From = New Net.Mail.MailAddress( MonEmail) '
>>>> défini expediteur
>>>> .To.Add(New Net.Mail.MailAddress(SonEmail) '
>>>> défini la/les cible
>>>> .Subject = "Le sujet"
>>>> .Body = "Le texte"
>>>> End With
>>>> Dim client As New Net.Mail.SmtpClient
>>>> client.Host = "smtp.orange.fr" ' ou wanadoo meme erreur
>>>> client.Send(DotNetMail) 'on envoie le mail
>>>> MsgBox("Mail envoyé avec succès ")

>>>> j'ai toujours un echec d'envoi par contre si je fait avec (system.web )

>>> Pouvez-vous poster le message d'erreur ?

>>>> Dim DotNetMail As New MailMessage()
>>>> With DotNetMail
>>>> .From = MonEmail
>>>> .To = SonEmail
>>>> .Subject = "Le Sujet"
>>>> .Body = "Le texte"
>>>> End With
>>>> SmtpMail.SmtpServer ="smtp.orange.fr"
>>>> SmtpMail.Send(DotNetMail) 'on envoie le mail
>>>> MsgBox("Mail envoyé avec succès ")

>>>> la sa fonctionne (juste une info comme quoi mailmessage est obsolèt e et
>>>> de passer net.mail ?

>>>> Jo

>>> Cordialement

>>> --
>>> Gilles TOURREAU - MVP C#
>>>

>>> S.A.R.L. P.O.S
>>> Le spécialiste en motoculture depuis + de 30 ans !
>>>http://www.pos.fr

> Bonjour,

> Il faut marquer :
> client.Host = "smtp.orange.fr"

> Car orange.fr car le serveur SMTP d'orange est le suivant : 193.252.22.7 4

> Cordialement
> --
> Gilles TOURREAU - MVP C#
>

> S.A.R.L. P.O.S
> Le spécialiste en motoculture depuis + de 30 ans !
>http://www.pos.fr



SALUT, je vient juste de résoudre le même problème dans mon programme
C#, j'ai passé tout une journée de recherche et puis: a 1h28min du
matin (c'est un problème d'antivirus 8-) ..
Essai de bloquer votre FireWall et tu va être impressionne, oooooh
Bonne nuit ;)
Cordialement Badrazerty