Utilisez le composant EasyMailObject pour gérer le code source d'échange (5)

Auteur：Eve Cole Date de mise à jour：2025-03-19 08:16:01

Utilisez le composant EasyMailObject pour traiter le code source d'échange de courrier dans ASP - Mail (p_sendmail.asp)

<% @ Language = vbscript%>

'******************************************

'Ce fichier est utilisé pour envoyer des e-mails

'Auteur: Awayeah

'Courriel: [email protected]

'******************************************

Si session ("strAccount") = "" ou session ("strpassword") = "" puis

Réponse.

terminer si

<html>

<adal>

<Méta name = "générateur" contenu = "Microsoft Visual Studio 6.0">

</ Head>

<Style>

<! -

A {text-décoration: aucun}

</ Style>

<body>

<% Set smtp = createObject ("easymail.smtp.5")

Smtp.licensekey = "awa / s19i500r1ax30c0r3100"

Smtp.mailServer = "192.9.200.89"

Smtp.subject = request.form ("sujet")

Smtp.bodyText = request.form ("bodyText")

Smtp.from = request.form ("from")

Smtp.fromaddr = request.form ("FromAddr")

Smtp.addrecicipient request.form ("from"), request.form ("reçoile1"), 1

'Ajouter la pièce jointe

si request.form ("att") = "" alors

Réponse.WRITE ""

autre

x = smtp.addattachment (request.form ("att"), 0)

Si non x = 0 alors

Response.Write "Insérer une erreur de pièce jointe:" + cstr (x) + "Veuillez contacter l'administrateur."

Terminer si

terminer si

x = smtp.send

Si x = 0 alors

'Response.Write (" ")

'Réponse.write ("<font size =")

Response.Write " L'e-mail a été envoyé avec succès! "

'session ("Envoyé") = "Y"

Autre

Si x = 7 ou x = 5 alors

Réponse.write " Une erreur s'est produite lors de l'envoi d'un e-mail ("+ cstr (x) +").

<entrée type = "bouton" value = "back">

<% Réponse.end

autre

<entrée type = "bouton" value = "return" id = button1 name = Button1>

<% Réponse.end

terminer si

Terminer si

Définir smtp = rien

return </a>

</docy>

</html>