Envoi d'email : Sa ne marche pas ??

Signaler
Messages postés
438
Date d'inscription
samedi 24 mai 2003
Statut
Membre
Dernière intervention
23 janvier 2011
-
Messages postés
438
Date d'inscription
samedi 24 mai 2003
Statut
Membre
Dernière intervention
23 janvier 2011
-
Bonjours à tous,

J'ai configurer un serveur et également un serveur SMTP dessus.

Quand j'utilise le service SMTP à distance sur n'importe ordinateur avec Outlook, sa marche ! Mais avec mon code sa ne marche pas !

Franchement je ne vois vraiment pas d'où sa vient, pourtant il doit y'avoir un problème dans mon code que voici :
        Dim lst_dest AsNew System.Net.Mail.MailAddressCollection<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" /??>

        lst_dest.Add("adressedest@domain.com")

 

        Dim name_exp AsNew System.Net.Mail.MailAddress("adresseExp@domain.com")

        Dim SmtpMail As Net.Mail.SmtpClient = New Net.Mail.SmtpClient("monserver")

        Dim login AsString = "pseudo"

        Dim pass AsString = "motdepasse"

 

        Dim obj_message AsString = "objet"

        Dim body_message AsString = "corps du texte"

 

        'définition de l'objet mail

        Dim email AsNew Net.Mail.MailMessage(name_exp, liste_dest.Item(0))

        With email

            .Subject = obj_message

            .Body = corps_message

            .IsBodyHtml = False

        EndWith

 

        'envoi du mail

        SmtpMail.Credentials = New System.Net.NetworkCredential(login, pass)

        SmtpMail.DeliveryMethod = Net.Mail.SmtpDeliveryMethod.Network

        SmtpMail.Send(email)

        SmtpMail = Nothing

        MsgBox("message envoyé ok")

Quand j'envoi les messages avec outlook, je les reçois immédiatement sans problème. Et quand mon code s'éxecute, il envoi bien l'email (du moins c'est ce qu'il me fait croire) !! Sans aucun message d'erreur !

j'ai fouiner partout sur le site vbfrance, mais bon j'ai eu beau comparer je ne sais combien de source, c'est la même structure.

J'ai essayer en mode anonyme, et sa ne change rien.

Si vous avez une idée

Merci d'avance

1 réponse

Messages postés
438
Date d'inscription
samedi 24 mai 2003
Statut
Membre
Dernière intervention
23 janvier 2011

bon bin finalement sa marche maintenant ! mais je ne sais pas pourquoi.

C'est bien le truc qui m'agace lol ! sa marche c'est cool mais bon !