ENVOYER UN MAIL EN ASP.NET
cs_rodcobalt22
Messages postés
193
Date d'inscription
dimanche 10 février 2002
Statut
Membre
Dernière intervention
16 février 2016
-
27 mai 2002 à 16:21
sergeszebe Messages postés 180 Date d'inscription mardi 15 novembre 2005 Statut Membre Dernière intervention 8 octobre 2009 - 5 août 2009 à 11:42
sergeszebe Messages postés 180 Date d'inscription mardi 15 novembre 2005 Statut Membre Dernière intervention 8 octobre 2009 - 5 août 2009 à 11:42
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/8710-envoyer-un-mail-en-asp-net
https://codes-sources.commentcamarche.net/source/8710-envoyer-un-mail-en-asp-net
5 août 2009 à 11:42
ok moi c'est pareil.
en effet je veux faire la meme chose.
Mais sauf que ton code ne marche pas chez moi.et on me demande d'inserer les information du formulaire (envoimsg)dans une base BDmessagerie
la base est en Sql server.
mais je ne parviens pas a envoyer mes mail en gros a creer un enregistrement dans une table.
pourvoir par la suite afficher ds un tablo l'historique des message.
pour vl'envoit des message voici ce que j'ai fait.
à l'aide please
code:
<%@ Page Language="VB" AutoEventWireup="false" %>
<%@ Import Namespace="System.Data.SqlClient" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<script runat="server">
Protected Sub objet_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs)
End Sub
Protected Sub btn_envoi_msg_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Dim InsertText, lblMsg As String
Dim j As Integer
Dim int_Admin As Integer = 0
Dim int_Fact As Integer = 0
Dim int_Devis As Integer = 0
' Connection à la base de données
Dim cn As New SqlConnection()
cn.ConnectionString = ConfigurationSettings.AppSettings("WTS_ExtraSQL")
cn.Open()
'création d'un mail
InsertText = "INSERT INTO wts_messagerie_interne(expediteur,destinateur,objet,message) VALUES ( lb_expediteur.Text, lb_destinataire.Text lb_objet, txtmsg )"
Dim Ins1 As New SqlCommand(InsertText, cn)
Try
j = Ins1.ExecuteNonQuery()
lblMsg = "l'Agent a été Ajouté"
Response.Redirect("accueil_societe.aspx")
Catch ex As Exception
lblMsg = "erreur lors de l'ajout"
End Try
Ins1 = Nothing
cn.Close()
End Sub
</script>
<html>..........</html>
5 août 2009 à 11:34
Mon code est du VB.net est fait parti d'une page ".aspx".
Il s'agit donc d'asp.net codé en VB.net.
;)
5 août 2009 à 10:57
Nouveau je voudrait savoir s'il est logique qu'au debut on ait:
Page Language="VB" mais l'extension aspx il s'agit de quoi dans ce cas'asp.net ou vb.net?
je voudrais savoir si quelqu'un a le meme code en aspx ?
4 janv. 2006 à 17:09
Parser Error Message: The XML file c:\winnt\microsoft.net\framework\v1.1.4322\Config\machine.config could not be loaded. Attempted to access an unloaded AppDomain.
quelqu'un pour m'aider:(
4 janv. 2006 à 12:29
Merci d'avance
14 oct. 2005 à 14:06
24 nov. 2004 à 03:09
Ou est ce qu'on met l'addresse l'email qui va chargee de collect le donnees saisies dans les champs?
Qu'est ce qu'on doit mettre dans expediteur.txt?destinateur.txt?
Quand tu dis simple a utiliser,alors montre toutes les parties qu'on doit modifier.
Merci
28 août 2004 à 10:57
G_____
18 mai 2003 à 12:21
Merci, a+.
18 mai 2003 à 11:09
mais je comprendd tj pas pourkoi ca marche pas
18 mai 2003 à 09:37
Trop bête !! J'ai trouvé ! Les accents passent enfin sans aucuns problémes...
La soluce ?
Ben j'ai enlevé le :
"ContentType="text/html" ResponseEncoding="iso-8859-1" de ma directive @page c'est tout !
Pas besoin de replace ou server.htmlencode, ca passe tout seul finalement.
C'est fou non ? Keske tu en penses jesus ?
18 mai 2003 à 09:24
T'as un message d'erreur avec "attendu" ?
Koi ki est attendu ?
18 mai 2003 à 01:26
Ligne 8 :
Ligne 9 : // Création de l'instance d'une nouvelle classe MailMessage
Ligne 10 : MailMessage maildef=New MailMessage();<== ligne coupable
Ligne 11 :
Ligne 12 : // adresse de l'expéditeur et du destinataire
je vous en remercie par avance
17 mai 2003 à 17:00
Oui les requiredfield validator sont prévus mais la je bloque sur ca ...
17 mai 2003 à 16:54
17 mai 2003 à 14:27
Mais les accents passent toujours pas..
C a devenir fou.
Je passe l'url si tu veux essayer par toi même jesus..tu peux t'envoyer un petit mail..
http://marloon.zapto.org/admin/mail.aspx
17 mai 2003 à 14:11
L'exemple suivant code une chaîne en vue de sa transmission par HTTP. La chaîne nommée TestString qui contient le texte "This is a <Test String>." est codée, puis copiée dans la chaîne nommée EncodedString sous la forme "This+is+a+%3cTest+String%3e.".
Dim TestString As String = "This is a <Test String>."
Dim EncodedString As String = Server.HtmlEncode(TestString)
HtmlEncode est aussi un membre de System.Web.HttpUtility et s'utilise de la meme facon donc tu as juste a choisir l'une des deux methodes, je prendrais celle la car elle utilise un classe et c peut etre plus simple, mais normalement ca devrait qd meme marcher
.Body &= "Message : " & htmlencode(mymessage.text) & "
"
devient
.Body &= "Message : " & System.Web.HttpUtility.htmlencode(mymessage.text) & "
"
17 mai 2003 à 13:18
quand j'enleve la fonction (ki est vide?) il me fait :
BC30451: Le nom 'htmlencode' n'est pas déclaré.
17 mai 2003 à 12:29
" mais cette ligne te sert a rien:
Overloads Public Shared Function HtmlEncode(ByVal s As String) As String
End Function
et c peut etre pas impossible qu'elle est la cause du probleme car qd t'appeles cette fonction tu retournes aucun string donc se serait pour ca que t'as rien essaye sans cette ligne et normalement c bon
17 mai 2003 à 12:11
Voila comment je l'ai modifié..
.Body &= "Message : " & htmlencode(mymessage.text) & "
"
17 mai 2003 à 12:10
17 mai 2003 à 12:00
<%@ Page Language="VB" ContentType="text/html" ResponseEncoding="iso-8859-1" trace="true" %>
<%@ Import Namespace="System.Web.Mail" %>
<%@ Import Namespace="System.IO" %>
<script language="VB" runat="server">
Sub Page_load(sender As Object,e As EventArgs)
If Request.IsAuthenticated = true Then
lblStatus.Text = "..:: Bienvenue " & User.Identity.Name
lblStatus.visible = "True"
end if
End sub
Overloads Public Shared Function HtmlEncode(ByVal s As String) As String
End Function
Sub btn_gomail_click(s as object, e as eventargs)
Dim myMail as New mailmessage
With myMail
Dim strlocation as string = "c:inetpubwwwrootpouitadmin emp"
Dim strfichierup as string
strfichierup = Path.GetFileName(fichierup.PostedFile.FileName)
.from = "zoomzoom@pouit.fr"
.To = destinataire.text
.Subject = sujet.text
.Body = "Message envoyé !
"
.Body &= "A : " & destinataire.text &"
"
.Body &= "Sujet : " & sujet.text & "
"
.Body &= "Message : " & mymessage.text & "
"
.Body &= "Fichier joint : " & strfichierup & "
"
.Body &= ""
.Body &= "MarloonInc
Sommaire"
.Body = replace(.body,vbCrLf,"
")
.BodyFormat = MailFormat.Html
If strfichierup <> "" then
fichierup.PostedFile.SaveAs(strlocation & strfichierup)
Dim ofichierup as New MailAttachment(strlocation & strfichierup)
myMail.Attachments.Add(ofichierup)
End if
Try
SmtpMail.SmtpServer = "monserveur.fr"
SmtpMail.Send(myMail)
lblInfo.text &= .Body
Tabcompose.visible = false
If strfichierup <> "" then
File.Delete(strlocation & strfichierup)
End if
Catch ex as Exception
lblinfo.text = "Une erreur est survenue dans le traitement de votre message" & ex.Message.ToString
Tabcompose.visible = true
End Try
End With
end sub
</script>
17 mai 2003 à 11:43
sinon regarde ce que vaut htmlencode(sujet.text) dans un response.write et regarde le code HTML générer pour voir si le codage est effectué ou non normalement le é devient & eacute;
17 mai 2003 à 11:35
17 mai 2003 à 10:57
alors j'ai essayé :
replace(mymessage.text,"é","é")
Mais ca ne fonctione pas !!!
J'ai aussi essayé htmlencode mais ca a pas l'air de changer grand chose...
17 mai 2003 à 10:39
merci pour tes reponses !!
J'ai essayé ca :
replace(mymessage.text,"é","é")
Mais ca ne fonctione pas !!!
Je sais pas comment faire...help !
Quand un é est programmé, il passe sans probléme mais si j'en mets dans mon textbox, y passe pas !!
Comment faire ?
Je vais essayer htmlencode mais je sais pas bien comment faire...
15 mai 2003 à 21:06
apres verification dans le SDK voici la syntaxe precise
HttpUtility.HtmlEncode, méthode (String) [Visual Basic]Voir aussi
HttpUtility, classe | HttpUtility, membres | System.Web, espace de noms | HttpUtility.HtmlEncode, liste de surcharge
Configuration requise
Plates-formes : Windows 2000, Windows XP Professional, Windows .NET Server family
Langage
C#
C++
JScript
Visual Basic
Afficher tout
Convertit une chaîne en chaîne codée en HTML pour une transmission HTTP fiable du serveur Web vers un client.
[Visual Basic]
Overloads Public Shared Function HtmlEncode( _
ByVal s As String _
) As String
[C#]
public static string HtmlEncode(
string s
);
[C++]
public: static String* HtmlEncode(
String* s
);
[JScript]
public static function HtmlEncode(
s : String
) : String;
Paramètres
s
Chaîne à coder.
Valeur de retour
Chaîne codée.
Notes
Si des caractères tels que des espaces et des signes de ponctuation sont passés dans un flux HTTP, ils risquent d'être mal interprétés à la réception. Le codage HTML convertit des caractères qui ne sont pas autorisés dans le langage HTML en équivalents d'entités de caractères ; le décodage HTML inverse le codage. Par exemple, lorsqu'ils sont incorporés dans un bloc de texte, les caractères < et > sont codés en tant que < et > pour une transmission HTTP.
normalement c bon ;-)
@+
15 mai 2003 à 20:49
replace(.body,vbCrLf,"
")
qui fonctionne impeccablement.
Mais maintenant, j'ai le même probléme avec les accents....
Kelkun sait ?? Merci encore jesus !! ;-)
15 mai 2003 à 20:28
ou sinon essaye /n voila mais c pas sur
15 mai 2003 à 19:21
Par contre, si kelkun sait comment faire passer les sauts de ligne dans ce genre de mail, ca m'interesse fortement... Merci.
MarloonInc.
13 mars 2003 à 19:13
SmtpMail.SmtpServer = "smtp.infonie.fr";
pourkoi infonie ou wanadoo c au pif comment qu'on fait pour savoir ce qu'il faut mettre
10 oct. 2002 à 15:16
Si qq'un connait cette taille limite ou a une soluc'... Merci !
27 mai 2002 à 16:21
rodcobalt22