Conversion C en VB pour envoie formulaire [Résolu]

Signaler
Messages postés
26
Date d'inscription
lundi 20 octobre 2003
Statut
Membre
Dernière intervention
23 juillet 2010
-
Messages postés
26
Date d'inscription
lundi 20 octobre 2003
Statut
Membre
Dernière intervention
23 juillet 2010
-
Bonjour à tous,


voilà, je vous écris car j'ai terminé d'écrire ma page qui permet de récupérer tous les champs d'1 formulaire et de les envoyer dans un message mis en forme comme je le désire. (en C)
En revanche, je souhaiterai inclure plusieurs pages avec 1 MASTERPAGE mais le problème est le code pour celle-ci et pour la masterpage est en VB.
Cela pose donc problème pour ma page de formulaire qui est en C# car impossible dans la même page d'indiquer :


<%@ Page Language= "C#" %> et <%@ Page MasterPageFile="MasterSupport.master" Language="VB" %>


Je pense donc que la seule solution est de convertir la partie de la page écrite en C# en VB, mais malheureusement, j'ai toujours différentes erreurs. (Dy type Property 'To' is 'ReadOnly'...).
Est-ce que quelqu'un pourrait m'aider dans la convertion de ce code. (Ci-dessous)


En C#
<%@ Import Namespace="System.Web.Mail" %>


void Button1_Click(Object sender, EventArgs e) {




MailMessage objEmail = new MailMessage();


objEmail.To = "[mailto:Monmail@toto.com Monmail@toto.com]";


objEmail.From = mail.Text;


objEmail.Bcc = "[mailto:monmail2@toto.com monmail2@toto.com]";


objEmail.Subject = "test de formulaire en VB:" + " " + ref_pb.Text;


objEmail.BodyFormat = MailFormat.Html;


objEmail.Priority = MailPriority.High;


objEmail.Body = "Message du" + " " + ladate.Text + Nom.Text + " " + Prenom.Text + "
" + adresse.Text + "
" + cp.Text + " " + ville.Text + "
" + tel.Text + "
" + mail.Text + "
" + "_______________________________________________________________" + "
" + "
" + "Ce client rencontre 1 problème non répertorié avec le produit :" + " " + " " +ref_pb.Text + " " + "
" + "
" + "" + "Détail du problème ci-dessous :" + "" + "
" + detail_pb.Text;


 




try{


SmtpMail.Send(objEmail);


Response.Redirect("Confirmation.aspx");


}


catch (Exception exc){


Response.Write("Votre message n'a pas été expédié!: ");


}




}




Essai de conversion en VB
<%@ Import Namespace ="System.Net.Mail" %>


Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs)




Dim objEmail As New MailMessage()


objEmail.To = "[mailto:monmail@toto.com monmail@toto.com]"


objEmail.From = mail.Text


objEmail.CC = "[mailto:monmail2@toto.com monmail2@toto.com]"


objEmail.Subject = "Test de formulaire en VB:" + " " + ref_pb.Text


objEmail.Priority = MailPriority.High


objEmail.Body = "Message du" + " " + ladate.Text + Nom.Text + " " + Prenom.Text + "
" + adresse.Text + "
" + cp.Text + " " + ville.Text + "
" + tel.Text + "
" + mail.Text + "
" + "_______________________________________________________________" + "
" + "
" + "Ce client rencontre 1 problŠme non r‚pertori‚ avec le produit :" + " " + "" + ref_pb.Text + "" + "
" + "
" + "" + "D‚tail du problŠme ci-dessous :" + "" + "
" + detail_pb.Text


 




Try


SmtpMail.Send(objEmail)


Response.Redirect("Confirmation.aspx")


Catch exc As Exception


Response.Write("Votre message n'a pas expédié!: ")


End Try




End Sub


PS : Il a fallut également passer de System.web.mail à System.net.mail.


Merci pour votre aide.

2 réponses

Messages postés
26
Date d'inscription
lundi 20 octobre 2003
Statut
Membre
Dernière intervention
23 juillet 2010

Bonjour à tous,


j'ai enfin trouvé!!! Ci-dessous le code de ma page.



<%




@



Import



Namespace
="System.Net.Mail"
%>


<



script



runat
="server">







Private



Sub
Button1_Click(

ByVal
sender

As



Object
,

ByVal
e

As
EventArgs)












Dim
objEmail

As



New
MailMessage()objEmail.To.Add(



[mailto:monmail1@test.fr monmail1@test.fr]

)objEmail.From =


New
System.Net.Mail.MailAddress(mail.Text)objEmail.Bcc.Add(


"monmail2@test.fr"
)objEmail.Subject =


"Message en VB :"
+

" "
+ ref_pb.TextobjEmail.Priority = MailPriority.High

objEmail.IsBodyHtml =


"true"

objEmail.Body =




"Message du"
+

" "
+ ladate.Text +

"
"
+ Nom.Text +

" "
+ Prenom.Text +

"
"
+ adresse.Text +

"
"
+ cp.Text +

" "
+ ville.Text +

"
"
+ tel.Text +

"
"
+ mail.Text +

"
"
+

"_______________________________________________________________"
+

"
"
+

"
"
+

"Ce client rencontre 1 problème non répertorié avec le produit :"
+

" "
+

""
+ ref_pb.Text +

""
+

"
"
+

"
"
+

""
+

"Détail du problème ci-dessous :"
+

""
+

"
"
+ detail_pb.Text


Dim
Smtp

As



New
SmtpClient(

"mon serveur smtp"
)

Smtp.Send(objEmail)

Response.Redirect(


"Confirmation.aspx"
)


End



Sub
Messages postés
26
Date d'inscription
lundi 20 octobre 2003
Statut
Membre
Dernière intervention
23 juillet 2010

Bonsoir,

en fait j'ai quasi trouvé la solution mais il me reste encore 1 problème. J'espère que quelqu'un pourra m'aider! Je met le code ci-dessous :
<%

@
Page
Language= "VB"
Debug="true"%>
<%
@
Import
Namespace="System.Net.Mail" %>

<script
runat="server"
>

Private
Sub Button1_Click(
ByVal sender
As
Object,
ByVal e
As EventArgs)

Dim objEmail
As
New MailMessage()

objEmail.To.Add("monmail@test.fr")

objEmail.From = mail.Text

objEmail.Bcc.Add("monmail2@test.fr")

objEmail.Subject = "Message en VB :" +
" " + ref_pb.Text

objEmail.Priority = MailPriority.High

objEmail.Body = "Message test en VB" +
" " + ladate.Text + Nom.Text +
" " + Prenom.Text +
"
" + adresse.Text +
"
" + cp.Text +
" " + ville.Text +
"
" + tel.Text +
"
" + mail.Text +
"
" +
"_______________________________________________________________" +
"
" +
"
" +
"Ce client rencontre 1 problŠme non r‚pertori‚ avec le produit :" +
" " +
" " + ref_pb.Text +
" " +
"
" +
"
" +
" +
"D‚tail du problŠme ci-dessous :" +
" +
"
" + detail_pb.Text

Dim Smtp
As
New SmtpClient(
"mon serveur smtp")

Smtp.Send(objEmail)

Response.Redirect("Confirmation.aspx")

End
Sub

Mon problème est sur la ligne "objEmail.From = mail.Text" sur lauqelle je récupère le champs mail en tant qu'expéditeur du message mais j'ai l'erreur suivante : "BC30311: Value of type 'String' cannot be converted to 'System.Net.Mail.MailAddress'."

Est-ce quelqu'un aurait 1 idée.
Merci.