Class Library

Question

Bonsoir,

comme je l'ai d&#233;ja dit plusieurs fois je fais des test en faisant des projets class library afin de ne pas faire un programme seul et gros, mais un .exe avec des dll, 

j'essai de faire une class qui permettra d'envoyer un mail a celui qui a fait le code, je fini donc ma class et j'ins&#232;re un winform dans le projet class library, je fais ensuite

 Dim WindevelForm As New ContactForm (ContactForm etant le nom du winform),

lors de l'envoi du mail tout marche bien, adresse email r&#233;cup&#233;r&#233; sur le control textbox du winform etc... sauf le message en lui m&#234;me, voici le code

   Public Function EnvoiMessage(ByVal MsgFrom As String, ByVal MsgTo As String, ByVal MsgProg As String, ByVal Message As String, ByVal SmtpHote As String) As Integer
        Dim WindevelForm As New ContactForm
        Dim sendMail As New MailMessage()
        sendMail.From = New MailAddress(MsgFrom)
        sendMail.To.Add(New MailAddress(MsgTo))
        sendMail.CC.Add(New MailAddress(MsgFrom))


        sendMail.Subject = "Windevel : Contact Formulaire" & MsgProg
        sendMail.Body = "test de mail de support:" & vbCRLF & WindevelForm.TextMessage.Text


    End Function

Le message est envoy&#233;, on vois bien "test de mail de support: puis le sautage de ligne, mais le texte n'y est pas :\

cs_Jack · Answer

Salut
D'abord, il faut respecter les syntaxes pour les objets :
Dim maCopieObjet As monObjet
Et ensuite
Set maCopieObjet = New monObjet
Sans oublier, &#224; la fin du code, la suppression de l'objet
Set maCopieObjet = Nothing

Ensuite, je pense que tout fonctionne, mais :
Tu cr&#233;es un nouvel objet ContactForm sous le nom WindevelForm 
A la cr&#233;ation, tout est vide, y compris TextMessage

Si tu veux r&#233;cup&#233;rer le contenu d'un TextBox existant, il ne faut pas cr&#233;er un nouvel objet mais utiliser l'existant, &#231;a parait logique, non ?
Alors, il faut passer le message en param&#232;tre : Mais &#224; quoi sert donc ta variable "Message" ? 

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Champion du monde de boule de cristal - 2005
Le savoir est la seule mati&#232;re qui s'accro

shadow1779 · Answer

c'est bon j'ai touv&#233; mon erreur c'&#233;tait du a ma b&#233;tise...

Class Library

2 réponses

Discussions similaires