function enviargmail(origen,destino,asunto,texto)
Const cdoSendUsingMethod = _
“http://schemas.microsoft.com/cdo/configuration/sendusing”
Const cdoSendUsingPort = 2
Const cdoSMTPServer = _
“http://schemas.microsoft.com/cdo/configuration/smtpserver”
Const cdoSMTPServerPort = _
“http://schemas.microsoft.com/cdo/configuration/smtpserverport”
Const cdoSMTPConnectionTimeout = _
“http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout”
Const cdoSMTPAuthenticate = _
“http://schemas.microsoft.com/cdo/configuration/smtpauthenticate”
Const cdoBasic = 1
Const cdoSendUserName = _
“http://schemas.microsoft.com/cdo/configuration/sendusername”
Const cdoSendPassword = _
“http://schemas.microsoft.com/cdo/configuration/sendpassword”
Const cdoSMTPUseSSL = _
“http://schemas.microsoft.com/cdo/configuration/smtpusessl”
Dim objConfig ‘ As CDO.Configuration
Dim objMessage ‘ As CDO.Message
Dim Fields ‘ As ADODB.Fields
‘ Get a handle on the config object and it’s fields
Set objConfig = Server.CreateObject(“CDO.Configuration”)
Set Fields = objConfig.Fields
‘ Set config fields we care about
With Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = “smtp.gmail.com”
.Item(cdoSMTPServerPort) = 465
.Item(cdoSMTPConnectionTimeout) = 10
.Item(cdoSMTPAuthenticate) = cdoBasic
.Item(cdoSendUserName) = “direccion@gmail.com”
.Item(cdoSendPassword) = “password”
.Item(cdoSMTPUseSSL) = true
.Update
End With
Set objMessage = Server.CreateObject(“CDO.Message”)
Set objMessage.Configuration = objConfig
With objMessage
.To = destino
.From = origen
.Subject = asunto
.HTMLBody = texto
.Send
End With
If Err=0 Then
Else
Response.Write “<html><body><h1>The following error occured when sending</h1>Error (” & Err & “) :” & Err.Description & “</body></html>”
End If
Set Fields = Nothing
Set objMessage = Nothing
Set objConfig = Nothing
End function
En Damoin somos especialistas en ASP, si necesitas programación web escríbenos a contacto@damoin.es
