Envoi d'email : Sa ne marche pas ??

scottmat Messages postés 438 Date d'inscription samedi 24 mai 2003 Statut Membre Dernière intervention 23 janvier 2011 - 13 mars 2008 à 05:54
scottmat Messages postés 438 Date d'inscription samedi 24 mai 2003 Statut Membre Dernière intervention 23 janvier 2011 - 7 avril 2008 à 15:17
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

scottmat Messages postés 438 Date d'inscription samedi 24 mai 2003 Statut Membre Dernière intervention 23 janvier 2011 1
7 avril 2008 à 15:17
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 !
0
Rejoignez-nous