Discussion :

[adaneels]

Bonjour,

J'ai fait une page ASP.NET (v.1.1) avec un bouton qui doit envoyer un mail en utilisant un smtp (sans authentification).

Ce code fonctionne sur ma machine de développement (un Windows XP) mais ne fonctionne pas sur une autre machine (un windows 2000 webedition).
Le serveur web utilisé est IIS.

Lorsque le code est exécuté sur le windows 2000, j'ai le message "Could not access 'CDO.Message' object".

les deux machines ont bien les autorisations nécessaires au niveau du serveur smtp.

Avez-vous une idée ?

Voici le code que j'utilise :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
procedure TWebForm1.BtnEnvoi_Click(sender: System.Object; e: System.EventArgs);
var msg : MailMessage;
begin
  try
    msg:= MailMessage.Create;
    msg.From := 'adresse@email.com' ;
    msg.&To := 'adresse@email.com' ;
    msg.Subject := 'test mail' ;
    msg.BodyFormat := MailFormat.Text ;
    msg.Priority := MailPriority.High ;
    msg.Body := 'test envoi mail';
 
    SmtpMail.SmtpServer := 'smtp.mondomaine.com' ;
    SmtpMail.Send(msg) ;
    Label1.Text:= 'envoi réussi';
  except
    on e: exception do Label1.Text:= 'erreur lors de l''envoi : ' + e.Message;
  end;
end;

(Sorry, le code est en Delphi, il ne fonctionne pas avec C# non plus, cela provient apparemment d'une config asp.net)

[adaneels]

le code C# correspondant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
private void btEnvoyer_Click(object sender, System.EventArgs e)
{
 try {
  MailMessage email = new MailMessage();
  email.From = "adresse@email.com";
  email.To = "adresse@email.com";
  email.Subject = "test mail";
  email.Body = "test envoi mail";
  email.Priority = MailPriority.High;
  SmtpMail.SmtpServer = "smtp.mondomaine.com";
  Label1.Text = "envoi réussi";
  SmtpMail.Send(email);
 } catch (Exception e) {
  Label1.Text = e.Message;
 }
}

[adaneels]

Je ne sais pas pourquoi mais en remplaçant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SmtpMail.SmtpServer := 'smtp.mondomaine.com' ;

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SmtpMail.SmtpServer.Insert(0, 'smtp.mondomaine.com');

source qui m'a aidé et où la démarche à suivre pour régler l'erreur obscure est très bien expliquée :
http://www.systemwebmail.com/faq/4.2.3.aspx

cette erreur peut venir de plein d'autres raisons. voir le lien donné pour plus d'infos.

[lirakien]

merci