Tema: Enviar email
Ver Mensaje Individual
  #14 (permalink)  
Antiguo 11/12/2008, 11:11
Avatar de JuanRAPerez
JuanRAPerez
Colaborador
 
Fecha de Ingreso: octubre-2003
Mensajes: 2.393
Antigüedad: 21 años, 5 meses
Puntos: 27
Respuesta: Enviar email

código


Código asp:
Ver original
  1. function enviaEmail(para,cc,desde,asunto,mensaje,servidor)
  2.     on error resume next
  3.  
  4.     enviaEmail = false
  5.    
  6.     dim objCDO,objCDOConfig,objFields
  7.     Set objCDO      = CreateObject("CDO.Message")
  8.     Set objCDOConfig  = CreateObject("CDO.Configuration")
  9.     Set objFields    = objCDOConfig.Fields
  10.        
  11.     With objFields
  12.       .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = servidor
  13.       .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
  14.       .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic
  15.       .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "[email protected]"
  16.       .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password"
  17.       .Update
  18.     End With
  19.    
  20.     With objCDO
  21.       .Configuration  = objCDOConfig
  22.       .To          = para
  23.    
  24.     if cc <> false then
  25.       .cc          = cc
  26.     end if  
  27.    
  28.       .From        = desde
  29.       .Subject     = asunto
  30.       .TextBody    = mensaje
  31.       .Send
  32.     End With
  33.    
  34.     Set objFields = Nothing
  35.     Set objCDO = Nothing
  36.     Set objCDOConfig = Nothing
  37.    
  38.     if err.number = 0 then
  39.         enviaEmail = true
  40.     else
  41.         enviaEmail = err.description
  42.     end if
  43.     on error goto 0
  44.  
  45. end function


bueno seria que hicieras tus pruebas de código, así saldría mas fácil ayudarte
__________________
JuanRa Pérez
San Salvador, El Salvador