我需要通过电子邮件将用户凭据发送给我的应用程序的用户,这是在 asp
classic 中构建的,这是我的问题,从电子邮件帐户向用户发送信息,但不发送用户名并从该用户传递,我的代码是这样的,如何管理用户/密码?最好的方法是什么?提前致谢。
t1 = time()
estado=""
email="soporte.web@ipsos.com"
mail_from = "Soporte <soporte.web@myenterprise.com>"
mail_destino = "Soporte Web Ipsos" & " <" & email &">"
mail_asunto = "Acceso BCI Satisfaccion " & user
ruta=request.ServerVariables("APPL_PHYSICAL_PATH")
on error resume next
mail_cc=""
Dim myMail
Set myMail = CreateObject("CDONTS.NewMail")
myMail.MailFormat = 0 '0 (Mime format), 1 (default Plain Text format)'
myMail.BodyFormat = 0 '0 html, 1 texto'
myMail.Importance = 1 '0 Low, 1 Normal, 2 High '
myMail.From = mail_from
myMail.To = mail_destino
myMail.Cc = mail_cc
'myMail.Cco = mail_cco'
myMail.Subject = mail_asunto
myMail.Body = texto_email
'myMail.AttachFile ruta&"Carta2006.pdf"'
myMail.Send
Set myMail = Nothing
If err.num <> 0 Then
Response.Write nombre & " / " & email & " / " & "CDONTS Error: " & err.num & " - " &
err.description
estado="no"
End If
结束子