Hola lista,
Estoy trabajando con Microsoft Visual Studio .NET 2003. En mi sitio Web tengo esta funcion en el global.asax de mi solucion. El problema es que no me funciona en IIS 5 alguien tiene alguna idea de la razon? porque tampoco es que lanza errores, simplemente los mails no llegan...
Código:
Public Sub EnviarMailNotifica(ByVal sFrom As String, ByVal sTo As String, ByVal sSubject As String, ByVal sTextBody As String, Optional ByVal sAddAttachment As String = "")
Const ConfigNamespace As String = "http:"
Dim iConfig As CDO.Configuration = Nothing
Dim Flds As ADODB.Fields = Nothing
Dim oMsg As CDO.Message = Nothing
Try
oMsg = New CDO.Message
iConfig = New CDO.Configuration
Flds = iConfig.Fields
'CONFIGURACION DEL SERVIDOR SMTP (Remoto)
'===========================================
With Flds
' servidor Smpt por ejemplo "smtp.telefonica.net"
.Item(ConfigNamespace & "smtpserver").Value = "smtp.gmail.com "
.Item(ConfigNamespace & "smtpserverport").Value = 587 '25
.Item(ConfigNamespace & "sendusing").Value = CDO.CdoSendUsing.cdoSendUsingPort
' Usuario y palabra de paso para el servidor Smtp
.Item(ConfigNamespace & "sendusername").Value = "[email protected]"
.Item(ConfigNamespace & "sendpassword").Value = "passgmail"
.Item(ConfigNamespace & "smtpauthenticate").Value = CDO.CdoProtocolsAuthentication.cdoAnonymous 'cdoBasic
.Update()
End With
' MONTAR EL MENSAJE
'===========================================
With oMsg
.Configuration = iConfig
.From = sFrom
.To = sTo
.Subject = sSubject
.TextBody = sTextBody
If sAddAttachment <> "" Then
.AddAttachment(sAddAttachment)
End If
.Send()
End With
Catch ex As System.Runtime.InteropServices.COMException
If ex.ErrorCode = -2147220973 Then
Throw New InvalidOperationException( _
" La Conexión con Internet da problemas. " & _
ControlChars.CrLf & _
" Hay en Error de transporte en la conexión al servidor. " & _
ControlChars.CrLf & _
" Comprueba que la conexión con Internet esté establecida", ex)
End If
Throw New InvalidOperationException( _
" Componente CDO. Error no controlado " & ControlChars.CrLf & _
" Numero del error: " & ex.ErrorCode & ControlChars.CrLf & _
" Texto del error : " & ex.Message & ControlChars.CrLf, ex)
Catch ex As Exception
Throw ex
Finally
oMsg = Nothing
Flds = Nothing
iConfig = Nothing
End Try
End Sub
Desde ya Enorme Gracias!!!!!!