Bonjour!

Je n'arrive pas envoyer de mail via Microsoft outlook...ça fonctionne parfaitement avec un windows form et ça plante avec un web form....
 j'ai une erreur au niveau de l'application:
---------------------------------------------------------------------------------------------

Accès refusé.

Description : Une exception non gérée s'est produite au moment de l'exécution de la demande Web actuelle. Contrôlez la trace de la pile pour plus d'informations sur l'erreur et son origine dans le code.

Détails de l'exception: System.UnauthorizedAccessException: Accès refusé.

ASP.NET n'est pas autorisé à accéder à la ressource demandée. Accordez des droits d'accès à la ressource pour l'identité de la demande ASP.NET. ASP.NET a une identité de processus de base (en règle générale {MACHINE}\ASPNET sur IIS 5 ou Network Service sur IIS 6) qui est utilisée si l'application n'emprunte pas d'identité. Si l'application emprunte une identité via <identity impersonate="true"/>, l'identité sera l'utilisateur anonyme (en règle générale IUSR_MACHINENAME) ou l'utilisateur de la demande authentifié.

Pour accorder un accès en écriture ASP.NET à un fichier, cliquez avec le bouton droit sur le fichier dans l'Explorateur, choisissez "Propriétés" et sélectionnez l'onglet Sécurité. Cliquez sur "Ajouter" pour ajouter l'utilisateur ou le groupe approprié. Sélectionnez le compte ASP.NET et activez les cases à cocher pour l'accès souhaité.

Erreur source:

Ligne 13 : Public Function startOutlook(ByVal toVal As String, ByVal subjectVal As String, ByVal bodyVal As String) Ligne 14 : 'Return a reference to the MAPI layer Ligne 15 : Dim ol As New Outlook.Application Ligne 16 : Dim ns As Outlook.NameSpace Ligne 17 : Dim fdMail As Outlook.MAPIFolder

Fichier source : c:\inetpub\wwwroot\crystalreport\OutlookMail.vb    Ligne : 15

-------------------------------------------------------------------------------------------------
Si qq'un pouvait m'aider
Merci d'avance

Tu as essayé de faire ce que te demande de faire le message d'erreur ?

Poppyto
Cours de basse gratuits avec vidéos et ralentis
Cours de guitare gratuits avec vidéos et ralentis/A>

oui...ça ne marche toujours pas,ça serait pas au nivo du code?
WebForm.aspx.vb

Imports

System
Imports System.Drawing
Imports System.Collections
Imports System.ComponentModel
Imports System.web
Imports System.Data

PublicClass WebForm15

Inherits System.Web.UI.Page

#

Region " Web Form Designer Generated Code "

'This call is required by the Web Form Designer.

<System.Diagnostics.DebuggerStepThrough()>

PrivateSub InitializeComponent()

EndSub

ProtectedWithEvents txtTo As System.Web.UI.WebControls.TextBox

ProtectedWithEvents txtSubject As System.Web.UI.WebControls.TextBox

ProtectedWithEvents txtBody As System.Web.UI.WebControls.TextBox

ProtectedWithEvents btnSend As System.Web.UI.WebControls.Button

ProtectedWithEvents btnClear As System.Web.UI.WebControls.Button

'NOTE: The following placeholder declaration is required by the Web Form Designer.

'Do not delete or move it.

Private designerPlaceholderDeclaration As System.Object

PrivateSub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Init

'CODEGEN: This method call is required by the Web Form Designer

'Do not modify it using the code editor.

InitializeComponent()

EndSub

#

EndRegion

PrivateSub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load

'Put user code to initialize the page here

EndSub

PrivateSub btnSend_Click(ByVal sender AsObject, ByVal e As System.EventArgs) Handles btnSend.Click

If txtTo.Text.Length > 0 And txtSubject.Text.Length > 0 And txtBody.Text.Length > 0 Then

Dim oMail AsNew crystalreport.OutlookMail

Console.WriteLine("crystalreport.OutlookMail initialisé")

oMail.startOutlook(txtTo.Text, txtSubject.Text, txtBody.Text)

Console.WriteLine("Email est ajouté à outbox")

EndIf

EndSub'btnSend_Click

End

Class
-------------------------------------------------------------------------------------------------------------------------------------------------

OutlookMail.vb

Imports

System

Imports

Outlook

Public

Class OutlookMail

'Public Function startOutlook(ByVal toVal As String, ByVal subjectVal As String, ByVal bodyVal As String)

'Param - toVal as String: email address of recipient

'Param - subjectVal as String: subject string

'Param - bodyVal as String: Email Text

PublicFunction startOutlook(ByVal toVal AsString, ByVal subjectVal AsString, ByVal bodyVal AsString)

Dim ol AsNew Outlook.Application

Dim ns As Outlook.NameSpace

Dim fdMail As Outlook.MAPIFolder

ns = ol.GetNamespace("MAPI")

ns.Logon(, , True, True)

Dim newMail As Outlook.MailItem

fdMail = ns.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderOutbox)

newMail = fdMail.Items.Add(Outlook.OlItemType.olMailItem)

newMail.Subject = subjectVal

newMail.Body = bodyVal

newMail.To = toVal

newMail.SaveSentMessageFolder = fdMail

newMail.Send()

EndFunction

End

Class
-------------------------------------------------------------------------------------------------------------------------
Merci de m'avoir répondu!
 

je te remercie beaucoup!
Je ne pourrais pas créer des utlisateurs car je n'ai pas les droits qu'il faudrait...Je vais en parler avec l'administrateur de réseau pour résoudre ce problème.
Au départ je n'avais pas compris si ça venait mon code ou de mes droits..

C'est bien clair maintenant que ça vient de mes droits...

Merci beaucoup pour la rapidité de ta réponse...

A bientôt!